Private Sub Command5_Click()
Dim x As Integer
Do
Call CmdRnd_Click'产生随机数
Call Command6_Click’将产生的随机数度添加到list2中
x = x + 1’统计循环多少次
If List2.List(i) = List4.List(0) Then Exit Do
Loop
List3.AddItem x
End Sub

X＝X+1 实时错误6 溢出，为什么？请求高手指点