rprt.net
当前位置:首页 >> vB中sElECt CAsE语句 >>

vB中sElECt CAsE语句

select case a 意思就是判断a是什么内容.然后根据不同内容执行不同的代码.如:select case a case "李" '注:当a="李"时,执行下面这句: msgbox "他是姓李的" case "543" '注:当a="543"时,执行下面这句: msgbox "哈哈,a的内容是543" case else 'a为其它内容时,执行下面这句: msgbox "a是什么东东哦~" end select '结束判断

是一种条件语句,类似if语句 例如:select case x case x mod2=0 msgbox “偶数" case else msgbox "奇数" end select 上面一个一句就是判断x是奇偶数的问题

任何数值表达式或字符串表达式.expressionlist-n 如果有 Case 出现,则为必要参数.其形式为 expression,expression To expression,Is comparisonoperator expression的一个或多个组成的分界列表.To 关键字可用来指定一个数值范围.如果使

语法 Select Case <指示变量或表达式><默认语句组,以上语句组都因情形不符合实际时执行> End Select 其中,表述情形的关键字,有IS和TO,多个情形要并列在一起时,使用逗号(英文)连接.当省略Case Else语句并且语句组都因情形不符

case 中的is不能表达 上下限的范围 只能用 24 to 35 来代替了

在 select case end select语句中, Select Case Text1.TextCase Like "*a*" 不需要再次在case后面指名text1.text了

select case i case i的值 执行语句 case i的值 执行语句 case i的值 执行语句 case i的值 执行语句end case

这里不是不能用select case写,而是if和select case适用于不同的选择中.在这道题中,使用if显得条理很清楚,使用的语句也少.而使用select case显得太麻烦和不可理喻,请看:rivate Sub Form_Click() Dim year As Integer, b As String year =

第一个水仙花数能在详细描述一下么第二个inputbox(n,"应交金额") if n

private sub form_click() static count as integer select case count mod 4 case 0 print "欢迎使用visual basic" fontname = "黑体" case 1 print "欢迎使用visual basic" fontname = "楷体_gb2312" case 2 print "欢迎使用visual basic" fontname = "隶书" case 3 form1.cls end select count = count + 1 end sub

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