玩过头了,痛苦啊!

sizz123

Private Sub Form_Load()
w$ = Weekday(Now)
wc$ = w$ - 1
Dim x As Integer
Dim n As Integer
n = 55
For x = 1 To n
MsgBox ("打开电脑了？恭喜恭喜")
MsgBox ("这也是没有办法的事情啊")
MsgBox ("今天是不是星期" + wc$ + "啊？")
MsgBox ("你怎么知道今天是星期" + wc$ + "?")
MsgBox ("我可是电脑啊。")
MsgBox ("哦！想玩游戏还是想聊天？")
MsgBox ("你说你要学习？！")
MsgBox ("电脑可不是学习机")
MsgBox ("那么请尽情玩吧！")
MsgBox ("不要忘记去蓝猫圣教")
MsgBox ("坚决抵制邪恶的日漫")
MsgBox ("并且记得去6r灌溉")
MsgBox ("废话终于说完了")
If x = n Then
MsgBox ("感激伟大的sizz123吧！")
Else
MsgBox ("别急嘛我还要说" + Str(n - x) + "次d")
End If
Unload Me
Next
End Sub
-----------------------------------------------
把以上vb程序放在启动菜单中,然后重新启动机器....怨念啊!本来想重复5次,结果却按成了55

sizz123

Private Sub Form_Load()
w$ = Weekday(Now)
wc$ = w$ - 1
Dim x As Integer
Dim n As Integer
n = 55
For x = 1 To n
MsgBox ("打开电脑了？恭喜恭喜")
MsgBox ("这也是没有办法的事情啊")
MsgBox ("今天是不是星期" + wc$ + "啊？")
MsgBox ("你怎么知道今天是星期" + wc$ + "?")
MsgBox ("我可是电脑啊。")
MsgBox ("哦！想玩游戏还是想聊天？")
MsgBox ("你说你要学习？！")
MsgBox ("电脑可不是学习机")
MsgBox ("那么请尽情玩吧！")
MsgBox ("不要忘记去蓝猫圣教")
MsgBox ("坚决抵制邪恶的日漫")
MsgBox ("并且记得去6r灌溉")
MsgBox ("废话终于说完了")
If x = n Then
MsgBox ("感激伟大的sizz123吧！")
Else
MsgBox ("别急嘛我还要说" + Str(n - x) + "次d")
End If
Unload Me
Next
End Sub
-----------------------------------------------
把以上vb程序放在启动菜单中,然后重新启动机器....怨念啊!本来想重复5次,结果却按成了55

sizz123

以下引用神州巨龙于2007-5-15 22:34:59的发言：

我笨看不明白

如果不小心进了一个网站,然后不停得出现对话筐,就是那个程序的模仿.我设置的是开机执行,以上全部话语,重复55次.

Benavii

作茧自缚{/fd}

张永

强迫学习的好方法

暴风の龙

天……楼主学VB学疯掉了……

以前我学VB的时候，第一个要做的程序……就是要你一开机就马上关机的病毒……{/cy}