VB 下标越界 不会了

来源：百度知道 编辑：UC知道 时间：2024/06/28 06:08:49
Option Base 1
Dim a(1 To 4, 1 To 4), b(1 To 4, 1 To 4） As Integer
Private Sub Command3_Click()
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * (70 - 30 + 1) + 30)
b(i, j) = Int(Rnd * (135 - 101 + 1) + 101)
Next j
Next i
Picture1.Print a(i, j)
Picture2.Print b(i, j)
End Sub

等你循环结束,i=j=5,没有a(5,5)和b(5,5)啊

想打印,就放在循环里面,看下面的

Option Base 1
Dim a(1 To 4, 1 To 4), b(1 To 4, 1 To 4) As Integer
Private Sub Command3_Click()
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * (70 - 30 + 1) + 30)
b(i, j) = Int(Rnd * (135 - 101 + 1) + 101)
Picture1.Print a(i, j)
Picture2.Print b(i, j)
Next j
Next i
End Sub