分类：电脑/网络-软件
问题：VB让系统死机的程序谁能够给我一个用VB实现系统死循环的程序代码 
谁能够给我一个用  实现 系统死循环的程序代码，让CPU占用率一直是100%，我不是做坏事，只是我个人有需要这样的代码。越简单越好，语句别过于复杂
回答：这个代码仅供参考
1.在窗体上添加一个picturebox控件和1个timer控件并且把他们都设置为控件组（把控件复制粘贴一次就可以）
2.代码如下：
Private Sub Form_Load()
    Me.Hide
    Dim i As Long
    i = 1
    Dim arry(i, i, i) As String * 65535
    While True
        On Error Resume Next
        ReDim arry(i, i, i) As String * 65535
        Load Timer1(i)
        Load Picture1(i)
        Picture1(i).PSet (i, i)
        i = i + 1
    Wend
End Sub