Question

vb猜数字游戏代码（其中一部分）错误，求修改

Dim mystr, str1 As String
For i = o To 9
Lb1_info(i).Caption = ""
Next i
Text1.Text = ""
aa = ""
For i = 0 To 3
Randomize
Number = Rnd * 9
For j = 0 To i - 1
If Num(j) = Number Then
i = i - 1
Exit For
Else
Num(i) = Number
End If
Next j
Next i
Text1.SetFocus
End Sub

显示的是“If Num(j) = Number Then”这里错误，求修改

Answer 1

你这里没有定义Num数组
应该在前面加上 Dim Num(3) as Integer

还有，前面的
For i = o To 9
Lb1_info(i).Caption = ""
Next i
其中o是数字0吧？

追问

求大神qq……

Answer 2

Num(j) 没定义吗