1、If ... Then

语法：If 逻辑表达式 Then 语句

例如：If 职称 = "工程师" Then 工资 = 工资 + 100

注：如果语句有多条，则需在结尾添加 End If

语法:

If 逻辑表达式 Then

        语句1

        语句2

        ......

End If

2、If ... Then ... Else

语法：

If 逻辑表达式 Then

        语句1

    Else

        语句2

End If

3、If ... Then ... ElseIf

语法：

If 逻辑表达式1 Then

        语句1

ElseIf 逻辑表达式2 Then

        语句2

        ......

Else

        语句n

End If

4、Select Case

语法：

Select Case 测试表达式

             Case 表达式1

                         语句1

             Case 表达式2

                         语句2

                         ......  

             Case Else

                         语句n

End Select

示例：

Dim Number

    Number = 8    '设置变量初值。

Select Case Number    '判断Number的值。

    Case 1 To 5    ' Number的值在1到5之间，包含1和5。

          Debug.Print "Between 1 and 5"'下一个Case子句是本示例中唯一判断值为True的子句。

    Case 6, 7, 8    ' Number的值在6到8之间。

          Debug.Print "Between 6 and 8"

    Case 9, 10    ' Number的值为9或10。

          Debug.Print "Greater than 8"

    Case Else'其他数值。

          Debug.Print "Not between 1 and 10"

End Select