7,763
社区成员
发帖
与我相关
我的任务
分享下标越界为什么？？？
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 检查时它说“下标越界了”
在线等候，一定不吝啬分数！！！！！！
...全文
请发表友善的回复…
发表回复
luyantl 2003-04-30
- 打赏
- 举报
thanks
freezx 2003-04-30
- 打赏
- 举报
是不是你的VB有问题呀，试了你的程序，没问题的
penper 2003-04-30
- 打赏
- 举报
不会吧，应该是对的。
ProgramLE 2003-04-30
- 打赏
- 举报
请给出其它部分的代码！
ProgramLE 2003-04-30
- 打赏
- 举报
我在我机子上运行了代码完全没有错！
xing0091 2003-04-30
- 打赏
- 举报
我试了，没有问题
你再看看，可能是别的地方出问题了
你再看看，可能是别的地方出问题了
馮強 2003-04-30
- 打赏
- 举报
Print a(i, j),
这句后面不该有,号吧。
这句后面不该有,号吧。
lihonggen0 2003-04-30
- 打赏
- 举报
没错呀
