恶搞程序 恶搞程序代码


恶搞程序 恶搞程序代码

文章插图
大家好,小跳来为大家解答以上的问题 。恶搞程序代码,恶搞程序这个很多人还不知道,现在让我们一起来看看吧!
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 。
【恶搞程序 恶搞程序代码】本文到此分享完毕,希望对大家有所帮助 。