vbs脚本基础编程（之⼀）-----VBS基础语法（含控制语句）VBS是基于Visual Basic的脚本语⾔，是⼀种windows脚本。VBS的全称是：Microsoft Visual Basic Script Editon。
它编写的脚本代码不能编译成⼆进制⽂件，直接由windows系统执⾏。vbs语⾔不区分⼤⼩写，语句以换⾏结束。
1.  两个内建函数和 “Hello World！”程序编辑
Inputbox语法：Inputbox("对话框内容","对话框标题")
eg：name=Inputbox("请输⼊你的名字:","名称")
Msgbox语法：msgbox"对话框内容", , "对话框的标题"
eg：msgbox"Hello World!" , , "系统提⽰"
2.初始VBS、常⽤的关键字
'初始VBS
'dim    声明变量：批量名称声明，多个变量之间⽤逗号分隔
'rem    注释，同  '
'const  　声明常量；也可⽤Private或者Public来改变变量的公有和私有属性；
'set    赋值
'常⽤的关键字
inputbox, msgbox， const, dim, rem,
3.流程控制语句---条件判断
(1) if ...else 语句
'这段程序让你输⼊两个值, 必须都⼤于10, 只要有⼀个不⼤于, 就输出错误提⽰
dim a,b
a=inputbox("输⼊⼀个数 >10")
b=inputbox("输⼊另⼀个数 >10")
a=int(a)
b=int(b)
if a>10 and b>10 then
msgbox "正确"
elseif a<=10 or b<=10 then
  msgbox "⾄少有⼀个数不⼤于10"
else
msgbox "错误"
end if
（2）select.. case的语法结构
dim a
a=inputbox("输⼊⼀个1--3的值")
a=int(a)      　'处理inputbox返回字符串的问题
select case a    'a为变量名
case 1        '1为变量值
msgbox "壹"    '语句
case 2
msgbox "贰"
case 3
msgbox "叁"
case else
msgbox "输⼊错误"
end select
注：select ⽤于定值判断
4.流程控制语句---循环结构
(1) do（until）……loop ，当程序执⾏到 do 之前，⾸先判断 until 条件是否成⽴，如成⽴则不执⾏下⾯代码，如不成⽴，则执⾏⼀遍，再判断条件。在do..loop结构中还有⼀个语句:exit do, 这个语句将终⽌循环, 跳到loop后⾯的语句继续执⾏。
dim input="",ctr    '注意：常量不需要在dim⾥⾯声明，否则会引发错误vbs小程序代码大全
ctr=0 '设置计数器
const pass="pas123_"'这是⼀个字符串请⽤""包裹起来. 设定密码为常量, 不可变更
do until input=pass
input=inputbox("请输⼊密码")
if ctr=3 then
msgbox "已经达到认证上限, 认证程序关闭"
exit do
end if
ctr = ctr + 1'注意：这⼀句是赋值句，要从右往左读，即每出错⼀次就把ctr加上1，然后再放回ctr⾥⾯，使得这个常量加1
loop
msgbox "成功"
要在do...loop加上验证的功能，也可以⽤while，while可以放在do或者是loop后⾯, 然后再接⼀个表达式, 当表达式的值为true的时候(表达式成⽴)，才运⾏循环体
dim a,ctr
ctr=0
const pass="pas123_"
do while ctr<3
a=inputbox("请输⼊密码")
if a=pass then
msgbox "认证成功"
msgbox "(你可以在这⾥加⼀段成功后得到的信息)"
exit do
else
ctr=ctr+1 '如果密码出错就增加⼀次错误认证计数
msgbox "认证出错, 请检查密码"
end if
loop
(2) t, 这种循环结构是基于计数的
dim i,j
for i=1 to 9
for j=1 to 9
str=str & i * j & ""'&是和并字符串的符号
next'每个next对应⼀个for
str=str & vbCrlf  'vbCrlf相当于键盘上的回车键，因为你不能在键盘上输⼊，所以系统定义了⼀个默认的常量
next
msgbox (str)
这次运⾏完成以后, 输出结果按照乘数进⾏了分割, 每⼩for运⾏完⼀次, 就换⼀⾏(通过,  vbCrLf相当于键盘上的回车键).
5.⼦程序（过程）与函数（将sub替换成function）
区别：sub⽆返回值，function有返回值
Dim yname
yname=inputbox("请输⼊你的名字:")
who(yname)
sub who(yname)  'who为⼦程序名或函数名，（）中为参数列表，⽤逗号隔开
msgbox "你好" + yname    '&和+ 都可以⽤来拼接字符串
msgbox "感谢你阅读我的课程"
msgbox "这是基础部分的最后⼀课"
end sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。