Question

vb6死机程序

帮我编一个程序，一运行内存爆满，cpu卡死，让电脑死机的 代码越简单越好

Answer 1

占用CPU的...现在内存都 很大,,很难搞掉...
这样能让CPU耗些资源..

Private Sub Command1_Click()
Dim tr As Boolean, i, m, x
tr = True
i = 0
While tr
i = i + 1.36
m = i * i * 0.54
x = m / 2 * 0.36
tr = True
Wend
End Sub

追问

可以解释一下是什么意思嘛

追答

Private Sub Command1_Click()
Dim tr As Boolean, i, m, x '定义变量.
tr = True '变量 TR为真,是为了程序一运行时就执行..
i = 0 '变量初史为0值 ..
While tr '当变量为真时执行程序...这就是为什么TR要写为真..
i = i + 1.36
m = i * i * 0.54
x = m / 2 * 0.36
tr = True '以上三例为乱算的,符点运算...目的是为了耗CPU...没有目的,永没终点的算下去..如果'电'脑不关机,,,那么当运行很长一些时间后,内存会满..当然..这不怎么可能实现,,现在的内存很大'的..'还有虚拟内存的..
Wend
End Sub '程序结束....

Answer 2

VB操作还是不错的哦！
挺好的哦！
谢谢！

Answer 3

你要用来干什么啊？

追问

玩

追答

.........................那我..........无语了-_-|||