hsfl.net
当前位置:首页 >> VB中的CASE语句 >>

VB中的CASE语句

Select Case Int(x) 'x取整 Case Is >= 5, Is < -5 'x如果大于等于5到或小于-5 Print "A" Case 2, 10, 0 To 5 'x取值2,10,或0到5 Print "B" Case Else '不在以上取值范围时,比如-1 Print "C" End Select

select case a 意思就是判断a是什么内容。然后根据不同内容执行不同的代码。 如: select case a case "李" '注:当a="李"时,执行下面这句: msgbox "他是姓李的" case "543" '注:当a="543"时,执行下面这句: msgbox "哈哈,a的内容是543" ca...

语法 Select Case End Select其中,表述情形的关键字,有IS和TO,多个情形要并列在一起时,使用逗号(英文)连接。当省略Case Else语句并且语句组都因情形不符合实际时,语句的执行,会直接到达End Select。如果在执行语句的时候,有需要跳过没有...

那当然了,因为你在B = c + d + g 后又写了句 B = Val(Text10.Text) 所以不管你三个TXT中输入什么,B永远是text10的值。

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语句条理清晰!!!

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.C...

比如在一个文本框里输人一个分数,按一下按钮,根据分数判断出级别,代码如下: Private Sub Command1_Click() Select Case Val(Text1.Text) Case 0 To 59 MsgBox ("不及格") Case 60 To 79 MsgBox ("及格") Case 80 To 89 MsgBox ("良好") Case...

MSDN帮助 语法 Select Case testexpression [Case expressionlist-n [statements-n]] ... [Case Else [elsestatements]] End Select Select Case 语句的语法具有以下几个部分: 部分 描述 testexpression 必要参数。任何数值表达式或字符串表达...

Select Case 不支持多个变量,要实现这个的话一个简单的办法就是变成一个变量。。看你这个貌似每个S的值都是1位的数吧,那就这样改 Dim flag as Integerflag = S1 * 100000 + _ S2 * 10000 + _ S3 * 1000 + _ S4 * 100 + _ S5 * 10 + _ S6Select...

A 错误! 因为 Case后面的表达式是一个或多个表达式的分界列表,比如: Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber A如果这样写语法上就对了: Case Is>10, Is10 或者 10 And Is10 And Is

网站首页 | 网站地图
All rights reserved Powered by www.hsfl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com