文章目录
- 一、简单语法
- 1、变量
- 2、输入
- 3、输出
- 4、选择语句
- 5、循环
- 二、用记事本编译中文乱码问题
- 三、制作一个简单vbs脚本表白
一、简单语法
1、变量
语法： dim 变量名
例：
dim a,b
a=1
b=2
msgbox a+b
运行：
2、输入
语法：InputBox(Prompt,[Title],[Default],[XPos],[YPos],[Helpfile],[Context])
Prompt：必需的。作为对话框消息出现的字符串表达式
Title： 可选的。显示对话框标题栏中的字符串表达式
Default：可选的。显示文本框中的字符串表达式
例：
dim str
str=inputbox("你的名字是?","标题")
msgbox str
运行：
3、输出
语法：MsgBox (Prompt,[Buttons],[Title],[Helpfile,Context])
输出基本与输入相同，上面案例也均用到了输出
4、选择语句
语法：
if 判断语句 then
执行语句
end if
例：
dim str
str=msgbox("你喜欢我吗?",vbYesNo,"喜欢")
if str=vbYes then
msgbox "我也喜欢你"
else
msgbox "又是愉快的一天呢"
end if
vbYesNo，是buttons属性中的，只显示“是”和“否”按钮，vbYes即选中“是”
运行：
5、循环
语法：
do
执行语句
loop
例：
do
msgbox"停不下来"
loop
运行：（不断循环关不掉）
想要关掉的话可以通过任务管理器，找到该进程结束进行即可
一种do—loop结束方法 until
例：
dim str
do until str="yes"
msgbox"你喜欢我？"
str=inputbox("yes or no","遵从内心的选择")
loop
很显然循环结束的条件是输入yes，否则就一直循环
二、用记事本编译中文乱码问题
问题：用记事本编写vbs脚本时，发现输出的中文为乱码
解决：
只需要另存为，将原来的编码UTF-8改为ANSI即可
三、制作一个简单vbs脚本表白
- 新建一个文本文档
-
复制以下代码到文本文档中
MsgBox " 十年相遇" MsgBox " 百年回眸" MsgBox " 千年同船渡" MsgBox " 我愿以万年的等待" MsgBox " 百世的轮回" MsgBox " 换你今朝一世情缘" MsgBox " 可否" dim a(5) a(0)=" 天大，地大，女友最大" a(1)=" 工资上交" a(2)=" 房写你名" a(3)=" 帮清购物车" a(4)=" 永远宠着你" a(5)=" 你就答应我把^o^" Dim j Do Select Case msgbox ("姑娘，做我女朋友吧",4) Case 6 MsgBox " ---- ----"+Chr(10)+" / \ / \"+Chr(10)+" / \/ \"+Chr(10)+" / I \ "+Chr(10)+" \ LOVE /"+Chr(10)+" \ U /"+Chr(10)+" \ xx /" +Chr(10)+" \ xx / "+Chr(10)+" \ xx /"+Chr(10)+" \ /"+Chr(10)+" \/",4096 ," 此心似我心" MsgBox " you are my girlfriend，" + Chr(13)+" from this day until to my last days.",," " exit do Case 7 msgbox a(i) i=i+1 if i >= 6 then i = 0 end if end Select Loop -
把粘贴好的文件另存为，编码格式改为ANSI（解决中文乱码），文件名后缀改为vbs即可
运行：
