上述代码拷贝下来,整理后则老差测试可以执行,代码并没有问题,如下:
---
msgbox"小仙女不要生气了好不好"
msgbox"我知道自己错了"
msgbox"但是请相信我,我不是有意的"
msgbox"原谅我好吗?"
dim i
do while i<1
Select Case msgbox("如果你原谅我了请点是",68,"")
Case 6
i=1
Case 7
msgbox"你再考虑一下呗,我向你保证,以后绝对不会再犯了!"
end Select
loop
msgbox"谢谢你原谅我,爱你呦"
---
整理过程中,也出现过上述问题,应该是文本编码问题,即:如果保存为UTF-8编码,执行出错;如果保存孙皮为GB2312,执行正常。
在Windows 8上用“记事本”写VBS代码是GB2312格式,用Notepad++新含贺建文件是UTF-8格式,执行出错(如上图)。