Option Explicit；
Sub ArrayTest()；
Dim arr As Variant '定义变量；
将1到10十个自然数赋给数组arr；
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)；
MsgBox "arr数组的第2个元素为：" & arr(1)；
End Sub。
Option Explicit
Sub ArrayTest()
Dim arr As Variant '定义变量
'将1到10十个自然数赋给数组arr
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MsgBox "arr数组的第2个元素为：" & arr(1)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024