[按键精灵] 纯文本查看 复制代码
Dim a, b(1)
b(0) = 1
b(1) = 2
TracePrint b(0) & " , " & b(1)
a = b
TracePrint a(0) & " , " & a(1)
Dim MyIndex
Dim MyArray (3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyIndex = Filter(MyArray, "Mon") 'MyIndex(0) 包含 "Monday"。