Private Sub Command1_Click()
Dim min(1 To 4) As Integer
Dim max(1 To 4) As Integer
Dim a(1 To 4, 1 To 4) As Integer
Dim b(1 To 4, 1 To 4) As Integer
Dim z As Boolean
z = True
For i = 1 To 4
  For j = 1 To 4
    a(i, j) = Rnd() * 100 + 1
    Print a(i, j),
      If j = 4 Then
        Print
      End If
  Next j
Next i
Print
这是我的一段程序代码,为什么我按F8 检查时它说“下标越界了”
在线等候,一定不吝啬分数!!!!!!