VBS 控制语句

1.if...then...end if

if [条件] then

[执行语句]

end if

可以嵌套 多个if

if [条件] then

[执行语句]

else if [条件] then

[执行语句]

end if

eg.

Dim a,b

a=inputbox("please input a")

b=inputbox("please input b")

if a>b

then

msgbox("a>b")

else if a<b

then

msgbox("a<b")

end if

2.select case 变量名

            case 变量值

                    [执行语句]

            case 变量值

                    [执行语句]

select  case var

case 1

msgbox "this is room a"

case 2

msgbox "this is room b"

3. do while

1) do while 条件

[执行语句]

loop

当想要中途退出循环时，可以使用exit

2)do

[执行语句]

loop while 条件

先执行语句块，后面判断条件

4. while 条件

            [执行语句]

    wend

5. do while 条件

                 [执行语句]

    loop

    until 条件

6.for i=0 to ubound(Array)

       [执行语句]

    next

ubound表示数组的最大下标，数组下标从0开始，想要中途退出循环可以使用exit for

7. for each x in array

        [执行语句]

    next

想要中途退出循环可以使用exit for