1. 基本格式
dim 指定一个存储空间；
必须有loop；
2. 实现步骤
a. 文件名
XX.vbs；
b. 改变图标
- 画图工具打开图片并保存为 bmp 格式；
- 将图片的保存格式 .bmp 修改为 .ico；
- 创建快捷方式；
- 打开属性，替换图标；
3. 实例集
a. QQ.vbs
do
msgbox("小混蛋，又玩电脑，回去给你买两套寒假作业！")
loop
b. 搭讪.vbs
msgbox "美女，你好！"
msgbox "我来了"
msgbox "你好漂亮啊",vbQuestion,"真滴"
dim j
do while j<1
Select Case msgbox("愿意做我的女朋友吗",4+32)
Case 6 j=1
Case 7 msgbox("再想一想")
end Select
loop
msgbox "么么哒"
c. 表白.vbs
msgbox "我有一件事想跟你说"
msgbox "自从第一天遇见你，我便对你难以忘怀了"
msgbox "我喜欢上你了"
msgbox "希望你能接受我的爱意"
dim i
do while i<1
Select Case msgbox("2020我们一起过",68,"")
Case 6 i=1
Case 7
msgbox "你再考虑下呗"
end Select
loop
msgbox "爱你"
