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 检查时它说“下标越界了”
在线等候,一定不吝啬分数!!!!!!
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
End If
Next j
Next i
这是我的一段程序代码,为什么我按F8 检查时它说“下标越界了”
在线等候,一定不吝啬分数!!!!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货