www.qwmp.net > sElECt CAsE DEFAult

sElECt CAsE DEFAult

那就不要一次性case完 ,分成两个 select case 独立的语句块。 如果有必要关联起来,就在前面一个的default里判断一下是否已经匹配了,如果匹配了,下面的select语句就不用再执行,可以节省时间。 如果还提示过程太大,那可能不是这个语句问题,...

Select Case 变量 Case 1 ...................... Case 2,3,4 ...................... ......................

用法不一样,。net中使用swithch vb中代码 Select Case itemc Case 1 Response.Write("1") Case 2 Response.Write("2") Case 3 Response.Write("3") Case 4 Response.Write("4") Case Else Response.Write("other") End Selectvb。net中代码 swi...

一步就跳的是if,case要遇到break语句或者没有相应条件语句时通过default语才会跳,不然就在那扫描,你找本书看看吧…

select case when x

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

就是你要选择判断的内容.比如一个变量 Select Case a Case 1 : '... Case 2 : '... End Select 或是表达式 Select Case a+10 Case 11 : '... Case 12 : '... End Select

Private Sub CB1_Click() Select Case Sheet1.Range("A1") Case "A" Sheet1.Range("A3") = "联想" Case "B" Sheet1.Range("A3") = "华硕" Case "C" Sheet1.Range("A3") = "惠普" Case "D" Sheet1.Range("A3") = "IBM" Case "E" Sheet1.Range("A3...

dim a a=inputbox("随便填") a=int(a) select case a case 6,7,8,9 msgbox("还行") case 10,11,12,13,14,15 msgbox("一般") case 16,17,18,19,20 msgbox("可以了") case 21,22,23,24,25 msgbox("无敌了") case else msgbox("做梦呢") end select

Option按钮的值在选中的时候是-1,未选中的时候是0. 建议你在点击按钮的事件中确定X的值。 Private Sub Option1_click() x=1 end sub Private Sub Option2_click() x=2 end sub 然后再判定: Private Sub Command1_Click() select case x case 1...

网站地图

All rights reserved Powered by www.qwmp.net

copyright ©right 2010-2021。
www.qwmp.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com