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

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

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