1.新建一个txt文档
2.文档里面编写内容：
msgbox "美女，你好！"
msgbox "我来了"
msgbox "你好漂亮啊",vbQuestion,"真滴"
msgbox "今天520呀"
msgbox "有没有约会啊"
dim j
do while j<1
Select Case msgbox("没有的话是不是在等我呀",4 32)
Case 6 j=1
Case 7 msgbox("再想一想")
end Select
loop
msgbox "么么哒"
3.文档格式改为.vbs
注意：
1.如果出现中文乱码的情况，文档用notepad 打开；选择Encoding——Convert to ANSI——Ctrl s保存；
2." "中的内容可以更改
