VB编写的程序运行就卡死

说实话用vb6来编写这种复杂的计算程序，不卡死才不正常。

必须小心地定义变量类型，预测运算结果，保证不能超出范围，还要考虑特殊解等。

建议你用matlab之类的工具来计算。

这样就好了：

For i = 0 To 100

Sleep 1000

Beep

DoEvents '让程序响应系统指令，防止锁死

Next i

Private Sub Command1_Click()

s = 2

i = 2

Do While i <= 1000

If s <= i Then '执行判断时 s 和 i=2 ，条件成立，加入list1,但不会执行else后的句子，也就是说 I 一直为2 永远到不了1000

List1.AddItem s

Else

If s Mod i >0 Then

i = i + 1

Else

s = s + 1

End If

End If

Loop

End Sub

给你一个实例，你看看就能明白了

Private Sub Command1_Click()

Dim S As Long, I As Long

Do While I <= 1000

For S = 2 To I

If I Mod S = 0 Then Exit For

If S >I / 2 Then

List1.AddItem I

Exit For

End If

Next

I = I + 1

Loop

End Sub

---