您正在看的VB|VB.NET是:vb变量、常数和数据类型及过程概述(四)。 味。在这种情况下可以使用 Select Case 判定结构。

　　详细信息 请参阅《Visual Basic 6.0语言参考手册》中的“If...Then...Else 语句”。

　　Select Case

　　Visual Basic 提供 Select Case 结构替代 If...Then...Else，从而可在多个语句块中有选择地执行其中一个。Select Case 语句的能力与 If...Then...Else 语句类似，但对多重选择的情况，Select Case 语句使代码更加易读。

　　Select Case 在结构的上方处理一个测试表达式并只计算一次。然后，VisualBasic 将表达式的值与结构中的每个 Case 的值进行比较。如果相等，就执行与该 Case 相关联的语句块。

　　Select Case testeXPression

　　[Case eXPressionlist1

　　[statementblock-1]]

　　[Case eXPressionlist2

　　[statementblock-2]]

　　.

　　.

　　.

　　[Case Else

　　[statementblock-n]]

　　End Select

　　每一个 eXPressionlist 是一个或几个值的列表。如果在一个列表中有多个值，就用逗号把值隔开。每一个 statementblock 中含有零个或多个语句。

　　如果不止一个 Case与测试表达式相匹配，则只对第一个匹配的 Case 执行与之相关联的语句块。如果在表达式列表中没有一个值与测试表达式相匹配，则 Visual Basic 执行 Case Else 子句(此项是可选的)中的语句。

　　例如，假定在 If...Then...Else 的例子中要向“编辑”菜单添加命令。为此可以另加一个 ElseIf 子句，或用 Select Case 来写函数：

　　Private Sub mnuCut_Click (Index As Integer)

　　Select Case Index

　　Case 0　'“剪切”命令。

　　CopyActiveControl　'调用通用过程。

　　ClearActiveControl

　　Case 1　'“复制”命令。

　　CopyActiveControl

　　Case 2　'“清除”命令。

　　ClearActiveControl

　　Case 3　'“粘贴”命令。

　　PasteActiveControl

　　Case Else

　　frmFind.Show　'显示找到的对话框。

　　End Select

　　End Sub

　　注意 Select Case 结构每次都要在开始处计算表达式的值。而 If...Then...Else结构为每个 ElseIf 语句计算不同的表达式。只有在 If 语句和每一个 ElseIf语句计算相同表达式时，才能用 Select Case 结构替换 If...Then...Else 结构。