Option ExplicitSub 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
