最佳答案
VB6.0中无swit，只有个Switch 函数。
Switch 函数
计算一组表达式列表的值，然后返回与表达式列表中最先为 True 的表达式所相关的 Variant 数值或表达式。
Switch 函数示例
本示例使用 Switch 函数返回和城市名称匹配的语言名称。
Option Explicit Dim CityName As StringPrivate Sub Command1_Click() CityName = "Rome" Debug.Print MatchUp(CityName)End SubFunction MatchUp(CityName As String) MatchUp = Switch(CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French")End Function