vbs脚本

前言：VBS是VBScript的简单，是由微软推出的一套基于Windows的脚本语言，该脚本无需编译成EXE可执行文件，而是直接将源代码通过宿主（Hosts）进行解释并执行。

---

一.编写及运行VBS代码

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 str

 

2.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