VB中Case是什么意思

VB中Case是把变量的内容与多个模板进行匹配，再根据成功匹配的模板去决定应该执行哪部分代码。在语句头上的表达式必须是有序类型（整型、字符型、布尔型等）。值表是一些由逗号分开的常数，表达式所有可能的值必须在值表中出现，且每个值只能出现一次。

扩展资料：

当变量表达式所表达的量与其中一个case语句中的常量相符时，就执行此case语句后面的语句，并依次下去执行后面所有case语句中的语句，除非遇到break；语句跳出switch语句为止。如果常量表达式的量与所有case语句的常量都不相符，就执行default语句中的语句。

case语句必须是惟一性的表达式；不允许两个case具有相同的值。同时，case语句只能判断一种条件关系，而if可以判断多种条件关系。

Private

Sub

Text1_Change()

Select

Case

Val(Text1.Text)

Case

0

To

60

Label1.Caption

=

"不及格"

Case

60

To

70

Label1.Caption

=

"及格"

Case

70

To

80

Label1.Caption

=

"中"

Case

80

To

90

Label1.Caption

=

"良"

Case

90

To

100

Label1.Caption

=

"优秀"

Case

Else

Label1.Caption

=

"输入错误"

End

Select

End

Sub

在VB.NET中VB.NET CASE语句就是比较常用的一种，下面是详细的介绍和代码的演示：

1、可以用 Select...Case 语句来替换 If...Then...Else 语句，所不同的是If 和 ElseIf 语句可在每个语句中计算不同的表达式，而 Select 语句对单个表达式只计算一次，然后将其和不同的值比较。

Function bonus(ByVal performance As Integer, _  ByVal salary As Decimal) As Decimal  

Select performance  

Case 1  

Return salary * 0.1  

Case 2  

Return salary * 0.3  

Case 3  

Return salary * 0.7  

Case 4  

Return salary * 0.9  

Case 5  

Return salary * 1.2  

End Select  

End Function

2、VB.NET Case语句可包含多个值和某个范围的值，代码案例如下：

Function bonus(ByVal performance As Integer, _  ByVal salary As Decimal) As Decimal  

Select performance  

Case 1  

Return salary * 0.1  

Case 2,3  

Return salary * 0.3  

Case 3 To 7  

Return salary * 0.7  

Case 8 To 9  

Return salary * 0.9  

Case Is <= 15  

Return salary * 1.2  

Case Else  

Return 0  

End Select  

End Function

---