大家好,今天小六子来为大家解答以下的问题，关于恶搞程序员图集序列一，恶搞程序这个很多人还不知道，现在让我们一起来看看吧！

1、窗口炸弹Private Sub Form_Load()For a = 1 To 10Shell "cmd /c echo 轰隆——一切的全完了！ & pause", vbNormalFocusNextEnd Sub 2、数羊程序Private Sub Form_Load()MsgBox "困死我了，睡不着，帮我数羊", , "数羊"MsgBox "就一百只羊吧！", , "数羊"For a = 1 To 100MsgBox a & "只羊", , "数羊"NextMsgBox "身边没个人。

2、好孤单，好寂寞……", "64", "数羊"Shell "shutdown -s -t 0"End Sub3、按十万次回车Private Sub Form_Load()For a = 1 To 100000SendKeys "{enter}"NextEnd Sub。

本文分享完毕，希望对你有所帮助。