焦点速讯：恶搞程序大全（恶搞程序）
- 来源：聚焦网
- 2022-12-03 19:07:50
-
收藏
(资料图片)
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。
本文到此分享完毕，希望对大家有所帮助。
标签： 对大家有
