代码如下
Private Sub Form_load()
n = 1
h = 1
Do While n = 1
For j = 1 To 1000000
h = j + h
Next j
Loop
Print h
End Sub
详情点http://user.qzone.

卡
不死

可以的，两个该程序就会使双核cpu达到100%

直接就是死循环，卡，不死，
按 CTRL+BREAK 中断执行，
如果你编译成 EXE，那就 卡死吧。

死循环啊

有问题

有问题

这样重复发贴会被警告请注意

死循环

！！！