vb程序case语句

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

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

书上讲到 case 语句 是多分支 判断语句

比IF语句好用，但我怎么也不明白，Case 语句是什么意思，

怎么样逻辑判断，高手帮讲下，最好能举出几个单单的例子出来

让我能一目了然，最好能说出和IF 语句的区别

谢谢 例子别要太难，我水平太浅

解析:

if a = 1 then 事件A

if a = 2 then 事件B

if a = 3 then 事件C

if a = 4 then 事件D

if a = 5 then 事件E

转换为CASE 语句

select case a

case 1

事件A

case 2

事件B

case 3

事件C

case 4

事件D

case 5

事件E

end select

CASE语句条理清晰！！！

在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

---