自己设计了一个学习循环和数组的脚本,成功了。
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim SUM1
Dim I,J
Dim ArrAY(9,9)
Set SUM1 = HMIRuntime.Tags ("SUM")
SUM1.VALUE = 0
For J = 0 To 9
For I = 0 To 9
SUM1.VALUE = SUM1.VALUE + 1
ArrAY(J,I) = SUM1.VALUE
Next
Next
SUM1.WRITE
'MsgBOX SUM1.VALUE
MsgBOX ArrAY(8,7)
End Sub