switch函数的功能是：计算一组表达式列表的值，然后返回与表达式列表中最先为 True 的表达式所相关的 Variant 数值或表达式。
一、switch语法
Switch(expr-1, value-1[, expr-2, value-2 _ [, expr-n,value-n]])
Switch 函数的语法具有以下几个部分：
参数说明
expr 必要参数。要加以计算的 Variant 表达式。
value 必要参数。如果相关的表达式为 True，则返回此部分的数值或表达式。
说明
Switch 函数的参数列表由多对表达式和数值组成。表达式是由左至右加以计算的，而数值则会在第一个相关的表达式为 True 时返回。如果其中有部分不成对，则会产生一个运行时错误。如果 expr-1 为 True 则 Switch 返回 value-1，如果 expr-1 为 False，但 expr-2 为 True，则 Switch 返回 value-2，以此类推。
Switch 会返回一个 Null值，如果：
没有一个表达式为 True。
第一个为 True 的表达式，其相对应的值为 Null。
虽然它只返回其中的一个值，但是 Switch 会计算所有的表达式。因此应该注意到所产生的副作用。例如，只要其中一个表达式导致被零除错误，就会发生错误。
二、Switch 函数示例
Dim CityName As String, MatchUp As String
CityName = "北京"
MatchUp = Switch(CityName = "伦敦", "英国", _
CityName = "罗马", "意大利", _
CityName = "北京", "中国", _
CityName = "巴黎", "法国")
MsgBox MatchUp