vb中下标越界,这东西在怎么解决,菜鸟问下面是代码

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

我来回答

共3个回答

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

Private Sub Command1_Click()
Dim a(1 to 10) As Integer, b As Integer, i As Integer
For i = 1 To 10
Randomize
a(i) = Int(90 * Rnd) + 1
If a(i) > 10 Then
Text1 = Text1 & Space(4) & a(i)
End If
If a(i) > 100 Then
Text1 = Text1 & Space(3) & a(i)
End If
If a(i) < 10 Then
Text1 = Text1 & Space(5) & a(i)
End If
Next i
End Sub

Private Sub Command2_Click()
Text1 = ""
Text1.SetFocus
End Sub

你的数组元素固定，有10个，所以不要定义为动态的！应是：a(1 to 10)

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

用dim声明了动态数组，再使用前必须用redim重新定义。以便系统分配存储单元。你可以在Randomize句后加
Redim a(10)

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

如果你想用动态数组做的话可以加一句ReDim a(10)