Question

VB中怎么给数组赋值

For i = 1 To 3
For j = 1 To 3
d(i, j) = Array(1, 2, 3, 1, 2, 3, 1, 2, 3)
Next
Next

这样给二维数组赋值怎么老不对

Answer 1

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 i

End Sub

Answer 2

Dim d(1 To 3, 1 To 3) As Long
Dim i As Long, j As Long
For i = 1 To 3
For j = 1 To 3
Randomize
d(i, j) = Int(Rnd * 10)
Next
Next