VB下标越界问题
发布网友
发布时间：2024-10-24 07:04
共3个回答
热心网友
时间：2024-10-24 20:31
你前面的定义是a%(1 To 10), 到了后面你却要 i = 1 To 99 ，a(i)能不下标越界吗？这样改一下：
Private Sub Command1_Click()
Dim a%(1 To 10), i%, max%, min%
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Print a(i)
Next i
max = 0: min = 100
For i = 1 To 10
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Text1.Text = max
Text2.Text = min
End Sub
热心网友
时间：2024-10-24 20:31
执行完第一个循环以后i的值为11
此时进行赋值时出错
热心网友
时间：2024-10-24 20:31
你的数组是 1 to 10
改0 to 10
