Select Case语句允许根据值列表测试变量的相等性。 每个值称为大小写,并且为每个选择大小检查打开的变量。
Select [ Case ] expression
[ Case expressionlist
[ statements ] ]
[ Case Else
[ elsestatements ] ]
End Select
expression: 是必须求值到VB.Net中的任何基本数据类型的表达式,即布尔值,字节,字符,日期,双精度,小数,整数,长整型,对象,SByte,短,单,字符串,UInteger, ULong和UShort。
expressionlist:
表达式子句表示表达式的匹配值的列表。用逗号分隔多个表达式子句。
statements: 语句如果select表达式匹配expressionlist中的任何子句,则运行的案例。
elsestatements: 如果select表达式与任何Case语句的expression列表中的任何子句不匹配,则运行Case Else后的语句。
Dim grade As Char grade = "B" Select grade Case "A" Proj.MsgDebug.Add("Excellent!") Case "B", "C" Proj.MsgDebug.Add("Well done") Case "D" Proj.MsgDebug.Add("You passed") Case "F" Proj.MsgDebug.Add("Better try again") Case Else Proj.MsgDebug.Add("Invalid grade") End Select Proj.MsgDebug.Add("Your grade is {0}", grade) '返回结果:Well done '返回结果:Your grade Is B |