前言：VBS是VBScript的简单，是由微软推出的一套基于Windows的脚本语言，该脚本无需编译成EXE可执行文件，而是直接将源代码通过宿主（Hosts）进行解释并执行。
VBS代码中：
用“REM”和“'”进行注释操作
用Inputbox和Msgbox实现输入输出操作
1.Const关键字来定义，例如：const PI=3.1415926 ；按约定俗成的定义，常量全部使用大写字母来表示
2.用DIM来定义变量（建议在定义变量的同时指定数据类型）
例如：Dim i,j,k as Integer
i=3
j=4
k=5
3.实操代码：
const PI=3.1415926
Dim i,area
i=Inputbox("请输入圆的半径：")
area=PI*i*i
Msgbox "园的面积为："&area
1.if 条件表达式 then 条件表达式为真的执行语句代码
例如：dim i
i=inputbox("请输入要判断的数")
if i<10 then msgbox("小了点")
if i>10 then msgbox("大了点")
2.if 条件表达式 then 表达式为真时执行代码块
else
表达式为假时执行代码块
end if
例如：dim i,j
i=inputbox("输入第一个比较数")
j=inputbox("输入第二个比较数")
if i>j then
msgbox("第一个大于第二个")
else
msgbox("第二个大于第一个")
end if
3.除了if判断语句之外，还可以使用select Case来判断多分支条件语句。具体语法如下：
select case 变量或表达式
case 值1
语句1
case 值2
语句2
......
end select
例如：
dim a
a=inputbox("输入一个1-3的数")
a=int(a) rem 处理inputbox返回字符串的问题
select case a
case 1
msgbox "壹"
case 2
msgbox "贰"
case 3
msgbox "叁"
end select
1.do...loop循环结构：do...loop循环将永远执行do和loop之间的语句，除非遇到exit do语句。
举例说明：
dim j,str
j=1
do
str=str&" "&cstr(j) '&j
j=j+1
if j=11 then
exit do
end if
loop
msgbox str2.do while循环结构：
do while循环结构只有在条件 满足的情况下才执行循环体，其基本语法结构为：
do while 条件表达式
循环体
Loop
例如：
dim j,str
j=1
do
str=str&" "&cstr(j)
j=j+1
loop while j<11
msgbox str
3.for...next循环结构
其基本结构为：
for 变量初始值 to 变量终止值 step 步长
循环体
Next
例如：（打印1--10数字）
dim j,str
for j=1 to 10
str=str&" "&cstr(j)
next
msgbox str
例如：（打印10--1数字）
dim j,str
for j=10 to 1 step -1
str=str&" "&cstr(j)
next
msgbox str
4.打印九九乘法表
dim i,j
dim str
for i=1 to 9
for j=1 to i
str=str&cstr(j)&"*"&cstr(i)&"="&i*j&" "
next
str=str&vbcrlf
next
msgbox str
1.函数是指用于完成某一特定任务的结构体，我们通常使用如下的结构来定义函数：
function 函数名(参数1, 参数2...参数n) '列表可以是空的, 但括号不能省略, 参数之间用","分割
...
exit function '结束函数, 不是必需的
...
end function
例如：
rem 这里是调用函数
dim jcsum,y
for y=1 to 3
jcsum=jcsum+jiecheng(y)
next
msgbox "1-3的阶乘再求和为"&jcsum
REM 以下是定义阶乘函数
function jiecheng( i)
dim jc
jc=1
for j=1 to i
jc=jc*j
next
jiecheng=jc '计算结果返回
end function
2.当我们不需要函数返回值时，我们可以利用“子程序”来实现。
“子程序”可以通过sub关键字进行定义。其语法格式为：
sub 子程序名(参数列表）
...
end sub
之后让我们定义一个主程序，将子程序通过call关键字进行调用执行。
例如：
rem 这里是一个子程序
sub hello(name)
msgbox "你好亲爱的："&name&vbcrlf&"很高兴认识你！！"
end sub
dim name
name=inputbox("请填写姓名：")
call hello(name)
1.数组通常用于存储大量的数据，从而避免了多次定义变量所带来的繁琐。
数组组成：变量名+“（）”
数组定义如：dim array(10)
表示定义了一个名为array的数组，其包含10个变量，分别为array(0),array(1)...array(9)
例如：
dim array(10) '这里定义的是数组
dim str
for i=0 to 9
array(i)=i
str=str&"array"&"("&i&")"&"="&array(i)&" "
next
msgbox str
2.二维数组可以看做是一维数据变量的扩展，其中每一个数据变量本身又是一个一维数据：
例如：
dim array(3,3),i,j,str
for i=0 to 2
for j=0 to 2
array(i,j)=i+j
str=str&"array"&"("&i&","&j&")"&"="&array(i,j)&""
next
str=str+vbcrlf
next
msgbox str
