vbs软件编程中循环与判断指令小结

vbs最常用的即为Do循环、for循环和if判断，与各函数配合可实现大部分简单的功能，也可在vba中使用，十分方便。下面我将进行简单的介绍：

IF判断

格式：

If condition Then [statements][Else elsestatements]

或者，可以使用块形式的语法：

If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements] ...

[Else
[elsestatements]]

End If

工作方式为:

当设置的条件（condition）成立时，执行Then后面的[statements]，执行结束后跳到end if；

如果不成立，则判断ElseIf 后面的的条件（condition-n），成立时，执行Then后面的[elseifstatements]，执行结束后跳到end if；

如果还不成立，则执行Else后面的[elsestatements]，执行结束后跳到end if；
IF判断中的Elseif 和Else都为可选的。必选格式为If……Then……End If。

如果if条件不成立时，且没有else可判断，将跳到end if（是不会有error的）。

例1：

1

<span style="font-size: 16px; font-family: 宋体, SimSun;">Sub test0()<br>Dim t, str<br>t = InputBox("select one number(0-3)")<br>If t = 0 Then<br>MsgBox ("Zero")<br>ElseIf t = 1 Then<br>MsgBox ("One")<br>ElseIf t = 2 Then<br>MsgBox ("Two")<br>ElseIf t = 3 Then<br>MsgBox ("Three")<br>Else<br>MsgBox ("Sorry, out of range!")<br>End If<br>End Sub<br></span>

例2：

1

<span style="font-size: 16px; font-family: 宋体, SimSun;">Sub test0()<br>Dim t, str<br>t = InputBox("select one number(0)")<br>If t = 0 Then<br>MsgBox ("Zero")<br>End If<br>End Sub<br></span>

Do循环

格式：

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]

Loop

或者：

Do
[statements]
[Exit Do]
[statements]

Loop [{While | Until} condition]

其工作方式简而言之就是重复[statements]直到{While | Until} 中的条件成立，也可不设置条件（condition），加入if判断退出循环（例3）。

必选参数为Do……Loop，其余的缺了也没事。

例1：

1

<span style="font-size: 16px; font-family: 宋体, SimSun;">Sub test1()<br>Dim t, str<br>str = 0<br>Do<br>t = t + 1<br>str = str & "," & t<br>Loop Until t = 4<br>MsgBox (str)<br>End Sub<br></span>

输出为:0,1,2,3,4

上述可同样表达为：

例2：

1

<span style="font-size: 16px; font-family: 宋体, SimSun;">Sub test1()<br>Dim t, str<br>str = 0<br>Do While t < 4<br>t = t + 1<br>str = str & "," & t<br>Loop<br>MsgBox (str)<br>End Sub<br></span>

输出为:0,1,2,3,4

Exit Do 则可配合if判断使用，表示退出当前的do循环。

例3：

1

<span style="font-size: 16px; font-family: 宋体, SimSun;">Sub test1()<br>Dim t, str<br>str = 0<br>Do <br>t = t + 1<br>str = str & "," & t<br>If t = 4 Then<br>Exit Do<br>End If<br>Loop<br>MsgBox (str)<br>End Sub<br></span>

输出为:0,1,2,3,4

For循环

格式：

For counter = start To end [Step step]
[statements]
[Exit For]
[statements]

Next [counter]

工作方式为：

在指定步数下循环执行[statements]，跟Do一样，可加入if……exit for判断退出for循环。当步数走完后跳到next。

counter 为数值变量

start 为起始位置，end 为终点，step为迈的步长，step可为负数（减法）。
必选格式为for……to……next。其余为可选参数。

由于过于简单，直接跳到例子吧。

例1：

1

<span style="font-size: 16px; font-family: 宋体, SimSun;">Sub test1()<br>Dim t, str<br>str = 0<br>For t = 1 To 4<br>str = str & "," & t<br>Next<br>MsgBox (str)<br>End Sub<br></span>

输出为:0,1,2,3,4

加入step参数：

例2：

1

<span style="font-size: 16px; font-family: 宋体, SimSun;">Sub test1()<br>Dim t, str<br>str = 0<br>For t = 1 To 8 Step 2<br>str = str & "," & t<br>Next<br>MsgBox (str)<br>End Sub<br></span>

输出为:0,1,3,5,7

当step为负数时：

例3：

1

<span style="font-size: 16px; font-family: 宋体, SimSun;">Sub test1()<br>Dim t, str<br>str = 8<br>For t = 6 To 0 Step -2<br>str = str & "," & t<br>Next<br>MsgBox (str)<br>End Sub<br></span>

输出为:8,6,4,2,0

总结到这里，希望能帮助到大家。原文地址：http://www.927tea.com/post/14.html