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

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