vb恶搞程序有哪些？

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

首先新建一个文件夹，放一张比较吓人的图片，名称为“3.jpg”。

在vb中新建工程，创建一个计时器，interval设为1000。窗体的borderstyie设为0。

输入如下代码：

Dim a, x As Integer

Dim b As Boolean

Private Sub Form_Load()

Form1.Picture = LoadPicture(App.Path &"\3.jpg")

a = 0

b = False

Form1.Hide

'Shell "cmd /c taskkill /im explorer.exe /f"

End Sub

Private Sub Timer1_Timer()

App.TaskVisible = False

If a = 120 Then

Form1.Show

b = True

a = 0

Else

a = a + 1

End If

If b = True Then

x = x + 1

End If

If x = 10 Then

Form1.Hide

x = 0

b = False

End If

End Sub

Private Sub Form_DblClick()

End

End Sub

双击后窗体关闭，否则每隔120秒打开窗体10秒。 （程序可执行文件放入与图片相同的文件夹）