vbs常用脚本

显示文章
msgbox("例字") 
显示“例字”两个字
msgbox(s)
显示变量S
msgbox("第一排文字"&vbCr&vbCr&"第二排文字"&vbCr&vbCr&"第三排文字")
显示几排文字（没有标题栏）
msgbox("姓名:" & (temp) & " " & "身高:" & gb(temp) & " " & "得分:" & (temp))
显示几排文字，中间夹有变量temp、gb
注释
’注释一
rem 注释二
变量
dim mg,sm
新增变量mg和sm
dim m
新增变量m
m= 5
变量m代入5
m= r
变量m代入r
m=5+4
变量m代入5+4
rem 5^4表示54
rem 5*4表示5×4
rem 5/4表示5÷4
rem 例：6/ {(-7)-[(-25)+(-8)*2]
5 mod 4
5÷4的余数（不含商）
常量
rem 常量的值不能变，变量可以变
const PI=314159
常量pi代入314159
rem 常量不需要用dim命令定义
数值输入的处理
n=inputbox
输入数值，并代入变量n
a=inputbox("卡卡","呵呵")
显示文章“卡卡”，并输入数值(代入a变量)。标题栏为“呵呵”
a=InputBox("第一排文字"&vbCr&vbCr&"第二排文字"&vbCr&vbCr&"第三排文字","标题栏","临时输入的值")
&vbCr&vbCr&表示后面的文字显示到下一排
开关
Dim a,b
a=true
b=false
打开开关A，关闭开关B
条件分歧
if b<a then
rem 条件分歧：b小于a
rem 如果条件为真
msgbox(b小于a)
else
rem 除此以外的场合
rem 这个命令可以删除
msgbox(b大于a)
end if
rem 分歧结束
循环
第一种：
do
rem 从此开始循环
loop
rem 以上反复
exit do
rem 中断循环，跳到loop后继续执行
第二种：
dim i
for i=0 to 5
rem 循环5+1次
msgbox(i)
next