求10个VB简单小程序

第一个
text1="哎，现在的人啊..."
第二个
label1.cpation="能学到什芹斗尺么呢？"
第三个销裂
me.caption="作业还要别人做....."
第四个
print "这个样子不是在欺骗自己么"
第五个
msgbox "学不到东西的，这样...."
第六个
do
print "没嫌高前途"
loop
第七个
for a = 1 to 9999....99
print "哎~~ "
next a
第八个
if 现在学习=true then 还有得救
第九个
unload me
第十个
end
----------------全写在按钮事件中....够简单了把.....(-_-)|||

我做了芦坦个简单的~~
Function Sub Stupid() As Boolean
Stupid="并哗袭求10VB简单小程序"
End Sub

Private Sub Form1_Load()
if Stupid Then
Msgbox"无药可救了…绝兄…"
End If
End Sub

哎~ 我做个好人把我给你几个我自己写的游戏，好好玩玩把

王晶86年的不好好学习，请教吧，还有人帮你，要人帮你做，那你也好意思老早尘啊。

你还不如直接在睁皮网上找11个小程序来呢。你在书店就可以买100个实例程序来。自己可以学，又可以交作业，不爽吗？侍禅

恐怕你都还不会进VB编程环境

你们楼上的的够狠啊！~！~！
dim 现在学习 As Boolean
老大你要什么样碧友慧式的程序啊
说明下啊
为悔答了分！~·#·！￥告坦·~！#·￥%#￥%￥……#%￥#%#￥%