点击下载此附件

代码如下:

Private Sub Combo1_AfterUpdate()
    Select Case Me.Combo1
    Case "A"
        MsgBox "你选的是A"
    Case "B"
        MsgBox "你选的是B"
    Case "C"
        MsgBox "你选的是C"
    Case else
         MsgBox "你选的是D"

    End Select
End Sub

Private Sub Combo2_AfterUpdate()
    If Me.Combo2 = "A" Then
        MsgBox "你选的是A"
    ElseIf Me.Combo2 = "B" Then
        MsgBox "你选的是B"
    ElseIf Me.Combo2 = "C" Then
        MsgBox "你选的是C"
    Else
        MsgBox "你选的是D"
    End If
End Sub

----------------------------------------------------------------

根据表达式的值，来决定执行几组语句中的其中之一。

语法

Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]

End Select

Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。

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

If...Then...Else 语句示例
本示例示范 If...Then...Else 语句的两种格式：“区块格式”及“单行格式”，也示范了 If TypeOf...Then...Else 的用法。

Dim Number, Digits, MyString
Number = 53    ' 设置变量初始值。
If Number < 10 Then
    Digits = 1
ElseIf Number < 100 Then
' 若判断结果为 True，则完成下一行语句。
    Digits = 2
Else
    Digits = 3
End If

' 使用“单行格式”语法来设置变量值。
If Digits = 1 Then MyString = "One" Else MyString = "More than one"

演   示: