下面VB语句为什么会显示下标越界?

发布网友发布时间：2024-10-24 07:04

共1个回答

热心网友时间：2024-10-24 20:30

你标错了。
Private Sub Command1_Click()
Dim a(4, 5) As Integer, i As Integer, j As Integer, x%, y%
Picture1.Cls
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
Next
Picture1.Print a(i, j); 《——实际是这里下标越界。因为内层For循环结束时，j的值为6。
Next
Picture1.Print
If a(x, y) = a(1, 1) Then
For i = 1 To 4
For j = 1 To 5
If a(i, j) > a(x, y) Then a(x, y) = a(i, j)
Next j
Next i
End If
Picture1.Print "数组中最大元素为第" & i & "行" & "第" & j; "列的" & a(x, y)

End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com