点击下载此附件
代码如下:
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"
演 示: