求助：实时错误6 溢出

味无味发布于 2013-12-18 15:06， 539 次点击

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 溢出，为什么？请求高手指点

2 回复

vbvcr512013-12-19 12:35

溢出就是超出数据范围了。你定义x为integer，运行时候就是超出数据了。把他定义数据量大的类型。

seafish0112013-12-19 23:50

检查你这句什么时候会执行：If List2.List(i) = List4.List(0) Then Exit Do