虽然你这个程序很无聊，虽然我以前没写过 VBS，但为了回答你的问题，我专门去 google 了一下，循环的方式写于下：
WScript.Echo（"嘿，谢谢你打开我哦，我等你很久拉！"&TSName）
WScript.Echo（"你是可爱的小朋吗？"）
WScript.Echo（"哈，我想你拉，这你都不知道吗？"）
WScript.Echo（"怎么才来，说~是不是不关心我"）
WScript.Echo（"哼，我生气拉，等你这么久，心都凉啦。"）
WScript.Echo（"小强很生气，后果很严重哦。"）
WScript.Echo（"嘿嘿！你也会很惨滴哦"）
WScript.Echo（"是不是想清除我？"）
WScript.Echo（"那你要点上50下哦，不过会给你惊喜滴"）
WScript.Echo（"还剩49下，快点点哦"）
WScript.Echo（"还剩48下，快点，小笨蛋！"）
WScript.Echo（"还剩47下对，就这样快点点！"）
WScript.Echo（"还剩46下。你啊就是笨，要快哦，我先不打扰你工作。"）
WScript.Echo（"还剩45下，记得要快哦！"）
Dim myNum
myNum = 44
Do While myNum > 13
WScript.Echo（"还剩" & myNum &； "下"）
myNum = myNum - 1
Loop
WScript.Echo（"还剩13下停停！！！慢点，我有话要说"）
WScript.Echo（"还剩12下，你继续点我就会消失滴"）
WScript.Echo（"还剩11下，以后就看不到我拉。555555"）
WScript.Echo（"还剩10下，你现在可以选择停止！"）
WScript.Echo（"还剩9下。你还点啊，不要我拉？"）
WScript.Echo（"还剩8下，有点伤心拉，干嘛丢弃人家"）
WScript.Echo（"还剩7下。疯了，你有点负意！"）
WScript.Echo（"还剩6下。对。你就点吧，我恨你！"）
WScript.Echo（"还剩5下，不明白，删除我你就好吗？"）
WScript.Echo（"还剩4下！真要删除我？"）
WScript.Echo（"还剩3下。可是我真的很眷恋你。。。"）
WScript.Echo（"还剩2下。不要这么绝情嘛，人家是爱你的！"）
WScript.Echo（"还剩1下。哼，既然你这么绝情。也别怪我无义！！！"）
WScript.Echo（"我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。"）
myNum = 8
Do While myNum > 0
WScript.Echo（"想结束我么？那你就再多点一次"）
myNum = myNum - 1
Loop
怎么编成 VB 代码我没法回答你，我这木有开发环境。
2.C++程序设计,那里错了,中间那步循环体怎么写#include
