1、窗口炸弹
Private Sub Form_Load()
For a = 1 To 10
Shell "cmd /c echo 轰隆——一切的全完了！ & pause", vbNormalFocus
Next
End Sub
2、数羊程序
Private Sub Form_Load()
MsgBox "困死我了，睡不着，帮我数羊", , "数羊"
MsgBox "就一百只羊吧！", , "数羊"
For a = 1 To 100
MsgBox a & "只羊", , "数羊"
Next
MsgBox "身边没个人，好孤单，好寂寞……", "64", "数羊"
Shell "shutdown -s -t 0"
End Sub
3、按十万次回车
Private Sub Form_Load()
For a = 1 To 100000
SendKeys "{enter}"
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024