VBScript 流程控制语句140

在 VBScript 中，流程控制语句用于控制程序执行的顺序。这些语句允许您根据条件判断或用户输入创建不同的执行路径。

条件语句If...Then...Else
```vbscript
If 条件 Then
语句块1
Else
语句块2
End If
```
该语句检查条件是否为真。如果是，则执行语句块 1；否则，执行语句块 2。
Select Case
```vbscript
Select Case 值
Case 值1
语句块1
Case 值2
语句块2
...
Case Else
语句块3
End Select
```
该语句根据值的匹配情况执行不同的语句块。

循环语句For...Next
```vbscript
For 变量 = 初始值 To 终值 [Step 步长]
语句块
Next
```
该语句重复执行语句块，每次迭代都会增加变量的值。
Do...Loop
```vbscript
Do While | Until 条件
语句块
Loop
```
该语句根据条件重复执行语句块。
For Each...In
```vbscript
For Each 变量 In 集合
语句块
Next
```
该语句用于遍历集合中的每个元素。

分支语句Goto
```vbscript
Goto 标签
```
该语句将程序执行跳转到指定的标签。
Exit For 和 Exit Do
```vbscript
Exit For
Exit Do
```
这些语句用于退出当前循环。
Continue For 和 Continue Do
```vbscript
Continue For
Continue Do
```
这些语句跳过当前循环的剩余部分并继续执行下一轮。

错误处理On Error
```vbscript
On Error Resume Next
On Error Goto 标签
```
该语句指定在发生错误时采取的操作。
Err 对象
```vbscript

```
该对象提供有关发生的错误的信息。

示例计算阶乘
```vbscript
' 初始化变量
n = 5
fact = 1
' 循环计算阶乘
For i = 1 To n
fact = fact * i
Next
' 输出结果
MsgBox "阶乘：" & fact
```
选择菜单
```vbscript
' 显示菜单
Select Case MsgBox("选择一个选项：", vbQuestion + vbYesNoCancel, "菜单")
Case vbYes
' 执行选项 1 的操作
Case vbNo
' 执行选项 2 的操作
Case vbCancel
' 执行退出程序的操作
End Select
```
错误处理
```vbscript
' 启用错误处理
On Error Resume Next
' 尝试打开不存在的文件
Set fso = CreateObject("")
("不存在的文件.txt")
' 检查是否发生错误
If 0 Then
' 处理错误
MsgBox "无法打开文件：" &
Else
' 正常处理文件
End If
```