1、Private Sub Command1_Click() Dim a(10) As Integer 媪青怍牙'定义数组a,下标最大值为10 For i = 0 To 10 a(i) = i'这里可以直接给数组赋值了 Print "a(" & i & ")的值" & a(i) '打印数组 NextEnd Sub
2、Private Sub Command1_Click() Dim a() As Integer &#泌驾台佐39;定义数组a，这里未设置下标 For i = 0 To 10 ReDim Preserve a(i)'ReDim 语句改变数组的元素以及维数的数目 a(i) = i'这里可以直接给数组赋值了 Print "a(" & i & ")的值" & a(i) NextEnd Sub
3、Private Sub Command1_Click() a = Array(1, 5, 2, 43, 222) MsgBox "a(0)原来的值是：" & a(0) a(0) = 100 MsgBox "a(0)赋值后的值是：" & a(0)End Sub
4、Private Sub Command1_Click() Dim d d = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9)) Dim i As Integer Dim j As Integer For i = 0 To 2 For j = 0 To 2 Print d(i)(j) Next j Next iEnd Sub
5、Dim d(1 To 3, 1 To 3) As LongDim i As Long, j As LongFor i = 1 To 3 For j = 1 To 3 Randomize d(i, j) = Int(Rnd * 10) NextNext
