程序控制语句详解

### 程序控制语句详解 在编程中，程序控制语句起着至关重要的作用，它能决定在特定条件下执行哪些语句，控制程序执行的路径。主要的控制语句分为决策语句（或条件语句）和循环语句。下面将详细介绍决策语句。 #### 决策语句概述 决策语句代表程序中的分支点，根据某些条件，程序可以执行一组语句、另一组语句，或者不执行任何语句。常见的决策语句包括各种`If`语句、`Choose`语句和`Select Case`语句。 #### 单行`If Then`语句 单行`If Then`语句有两种基本形式： 1. **形式一**：如果某个条件为`True`，则执行单个语句。语法如下： ```vb If condition Then statement ``` 例如，检查`emp`对象的`IsManager`属性，如果为`True`，则将`emp`对象的`Salary`属性设置为 90,000： ```vb If emp.IsManager Then emp.Salary = 90000 ``` 2. **形式二**：使用`Else`关键字。语法如下： ```vb If condition Then statement1 Else statement2 ``` 如果条件为`True`，则执行第一个语句；如果条件为`False`，则执行第二个语句。例如： ```vb Dim txt As String If X = 1 Then txt = “One” Else If X = 2 Then txt = “Two” Else txt = “?” ``` 当语句过长时，多行`If Then Else`语句更易于理解和调试。如果能编写简单的单行`If Then`语句且无`Else If`或`Else`子句，并且能在一行内清晰显示，可使用单行语句；否则，建议使用多行语句。 #### 多行`If Then`语句 多行`If Then`语句在条件为`True`时可以执行多行代码。最简单形式的语法如下： ```vb If condition Then statements ... End If ``` 多行`If Then`语句也可以包含`Else If`和`Else`子句，`ElseIf`在多行语句中拼写为一个单词。语法如下： ```vb If condition1 Then statements1 ... ElseIf condition2 statements2 ... Else statements3 ... End If ``` 程序会依次检查条件，直到找到为`True`的条件并执行相应代码。执行完任何一个语句块后，程序会立即退出`If Then`结构，不再检查其他条件，这可以节省程序时间。 #### `Select Case`语句 `Select Case`语句根据单个值执行多个代码块中的一个。基本语法如下： ```vb Select Case test_value Case comparison_expression1 statements1 Case comparison_expression2 statements2 Case comparison_expression3 statements3 ... Case Else else_statements End Select ``` 如果`test_value`与某个`comparison_expression`匹配，则执行相应的语句块。如果不匹配任何表达式，且有`Case Else`部分，则执行`else_statements`；若省略`Case Else`部分，则不执行任何代码。 `Select Case`在功能上等同于`If Then Else`语句，但有时更易于理解，且通常更快，尤其是当`test_value`代表一个缓慢的函数调用时。例如： ```vb Select Case num_items Case 1 To 10 ProcessSmallOrder() Case 11 To 100 ProcessLargeOrder() Case Else Beep() End Select ``` `Select Case`的比较表达式可以使用`To`和`Is`关键字指定范围，也可以包含用逗号分隔的表达式列表。 以下是`Select Case`语句中不同关键字和表达式的使用示例表格： | 关键字/表达式类型 | 示例代码 | 说明 | | --- | --- | --- | | `To` | `Select Case num_items`<br>` Case 1 To 10`<br>` ProcessSmallOrder()`<br>` Case 11 To 100`<br>` ProcessLargeOrder()`<br>` Case Else`<br>` Beep()`<br>`End Select` | 指定`test_value`应匹配的值范围 | | `Is` | `Select Case num_items`<br>` Case I