数组声明:
Option Explicit
Sub ArrayTest()
Dim arr As Variant '定义变量
' 数组
arr = Array(11, 22, 33, 44, 55, 66, 77, 88, 79, 710)
MsgBox "arr数组的第1个元素为:" & arr(0)
End Sub
|
数组声明:
Option Explicit
Sub ArrayTest()
Dim arr As Variant '定义变量
' 数组
arr = Array(11, 22, 33, 44, 55, 66, 77, 88, 79, 710)
MsgBox "arr数组的第1个元素为:" & arr(0)
End Sub
|
BeforeDoubleClick, :在本工作表鼠标双击 之前 ,将触发 代码程序...