Private Sub Command1_Click()
Dim i As Integer
Dim b(7) As Integer
Randomize
b(0) = Int(35 * Rnd + 1)
Print b(0)
For i = 1 To 6
b(i) = Int(35 * Rnd + 1)
If b(i) <> b(i - 1) And b(i) < 36 Then
Print b(i)
End If
Next
End Sub
这样就可以实现你说的功能了,如果哪里不懂,可以在百度Hi里问我。
这个越界啦: b(i + 1)
当你的i到达上限的时候 b(i + 1)就会越界,另外,你这个程序还有两处错误:
1. ReDim b(i) As Integer
2. 0 < b(i) < 36
程序没有提示你语法错误吗?
Dim i As Integer 是变量定义 语句
定义后 初始值 为0
ReDim b(i) As Integer 即为 ReDim b(0) As Integer
所以 你 后面 肯定 会 出现VB下标越界