要根据Expression的值执行一组语句, 则使用Switch Case。在此, 每个值称为案例, 并且根据案例将变量切换为ON。如果测试表达式与用户指定的任何Case不匹配, 则执行其他语句case。
Case Else是选定Case中的可选语句。但是, 始终使用Case Else语句是一种好的编程习惯。
句法:
Select Case expression
Case expressionlist1
Statement 1
Statement 2
.................
.................
Statement n
Case expressionlist2
Statement 1
Statement 2
.................
.................
Statement n
Case expressionlistn
Statement 1
Statement 2
.................
.................
Statement n
Case Else
Elsestatement 1
Elsestatement 2
....
....
End Select
流程图
例
让我们借助函数查找整数的类型。
Private Sub switch_demo_Click ()
Dim MyVar As Integer
MyVar = 1
Select Case MyVar
Case 1
MsgBox "A number is the least composite number"
Case 2
MsgBox "A number is the only even prime number"
Case 3
MsgBox "A number is the least odd prime number"
Case Else
MsgBox "unknown number"
End Select
End Sub
之后, 执行上面的代码, 你将获得如下输出:
The number is the least composite number
让我们看一下switch语句的更多示例, 例如
例如, 你要使用switch语句创建一个自定义函数(UDF)。
可以像使用任何常规工作表功能一样使用它, 它将返回学生的成绩。
用于创建自定义公式的代码如下:
Function GetGrade(StudentMarks As Integer)
Dim FinalGrade As String
Select Case StudentMarks
Case Is < 33
FinalGrade = "F"
Case 33 To 50
FinalGrade = "E"
Case 51 To 60
FinalGrade = "D"
Case 61 To 70
FinalGrade = "C"
Case 71 To 90
FinalGrade = "B"
Case Else
FinalGrade = "A"
End Select
GetGrade = FinalGrade
End Function
现在, 你可以在工作表中使用功能GetGrade, 如以下屏幕截图所示, 例如:
评论前必须登录!
注册