VB中,select case 超级难!一定要用select case做!现在有2个string.string1=textbox1是输入4位邮政编码的,string2是显示邮政编码所对应的地区的.依照表如下:地区缩写-邮编范围NSW 1000—1999 2000—2599 2619—28

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 07:56:36
VB中,select case 超级难!一定要用select case做!现在有2个string.string1=textbox1是输入4位邮政编码的,string2是显示邮政编码所对应的地区的.依照表如下:地区缩写-邮编范围NSW 1000—1999 2000—2599 2619—28
xW[OW+ UP*wOHUho kB'Cj N* @"@PEƀ_=承9{I4ʮR_̙ofη]N变mZF14by{Zks*9\^L{{x6^s׊Syig'8}pYaVO?z!:;Y6՟bԙwmWߵ?Epkx Bܩ{ޙq*' ︰G_0˲9S,sj>Z?OjRoayߙ}gQ3RoFHj3dDQ5{$tJN/#S ]nz:($Bm(XHai ,}SK<. Mu $.sydyb东J]~miO>^YE&f68.&@ 2(6WU86NX*PQ\z ȸP"4(cѯAT4l}:K7 "%_X,}:+wY}RZ6v ct 7TB7\~"@Z)tOTKi)74_wը>H.NVߨuR:oV-{8 wn+9Ҝ .' ZN * ɩlCx~]r̄E48|y•Smz.=P:92^g:'+U~"& @p@0o"iFX eT Q.EB&]TSTTY0P4zEN%#JRT䰽peh#hڴjXCݚ4B?Hz| -ж Y p$䩐ȁI&G9$Y *z4jogVʤ~4 xaR]ɱal=y\ =atd 3>̌i;kIs2n?$M-&܄énQ$p*nZ*Za) V&}Hd5ykq9!P5N0L@*V\D"_bR! q4e T Gʅڕ3Zr=

VB中,select case 超级难!一定要用select case做!现在有2个string.string1=textbox1是输入4位邮政编码的,string2是显示邮政编码所对应的地区的.依照表如下:地区缩写-邮编范围NSW 1000—1999 2000—2599 2619—28
VB中,select case 超级难!一定要用select case做!
现在有2个string.string1=textbox1是输入4位邮政编码的,string2是显示邮政编码所对应的地区的.依照表如下:地区缩写-邮编范围
NSW 1000—1999 2000—2599 2619—2898 2921—2999
ACT 0200—0299 2600—2618 2900—2920
VIC 3000—3999 8000—8999
QLD 4000—4999 9000—9999
SA 5000—5799 5800—5999
WA 6000—6797 6800—6999
TAS 7000—7799 7800—7999
NT 0800—0899 0900—0999
例外情况:
0872 SA 或者WA (string2显示不明确邮编)
2540 JBT
2620 ACT
2611,3500 ,3585 ,3586 ,3644 ,3644 ,3707 NSW
如果所输入邮编即不再表内,也不再例外内,string2 显示无效邮编.
例外情况中:只有0872 string2才显示不明确邮编,其余string2显示例外中的对应地区邮编,例如:3500,显示NSW,而非上表中的VIC

VB中,select case 超级难!一定要用select case做!现在有2个string.string1=textbox1是输入4位邮政编码的,string2是显示邮政编码所对应的地区的.依照表如下:地区缩写-邮编范围NSW 1000—1999 2000—2599 2619—28
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
a = Val(a)
Select Case a '这个编程只要把特殊的写在前面就可以了,因为就算有两个满足条件也只执行第一个,这下明白了吧!其实很简单的!
    Case 872
    Text2 = "不明确邮编"
    Case 2540
    Text2 = "jbt"
    Case 2620
    Text2 = "act"
    Case 2611, 3500, 3585, 3586, 3644, 3644, 3707
    Text2 = "nsw"
    Case 200 To 299
    Text2 = "act"
    Case 800 To 999
    Text2 = "nt"
    Case 1000 To 2599
    Text2 = "nsw"
    Case 2600 To 2618
    Text2 = "act"
    Case 2619 To 2898
    Text2 = "nsw"
    Case 2900 To 2920
    Text2 = "act"
    Case 2921 To 2999
    Text2 = "nsw"
    Case 3000 To 3999
    Text2 = "vic"
    Case 4000 To 4999
    Text2 = "qld"
    Case 5000 To 5999
    Text2 = "sa"
    Case 6000 To 6797
    Text2 = "wa"
    Case 6800 To 6999
    Text2 = "wa"
    Case 7000 To 7999
    Text2 = "tas"
    Case 8000 To 8999
    Text2 = "vic"
    Case 9000 To 9999
    Text2 = "qld"
    Case Else
    Text2 = "不明确邮编"
   
   End Select
    
End Sub

vb select case 这个语句? VB中,select case 超级难!一定要用select case做!现在有2个string.string1=textbox1是输入4位邮政编码的,string2是显示邮政编码所对应的地区的.依照表如下:地区缩写-邮编范围NSW 1000—1999 2000—2599 2619—28 VB中,select case语句 case is的is 有什么用,好像有时候没有写好像有时候没有写,有时候又写了什么时候写,什么时候不写? select case x结构中,描述判断条件3 VB select case is > 2 and is < 5的表示是错误的,正确的应该怎么写? select case 语句里 可以再套select case select case 语句怎么判断在某两个值之间如题 我要把 if a> 3 and a =5 and a 16 and a = 85 Grade = 优秀 Case Is > = 75 Grade = 良好 Case Is > = 70 Grade = 中等 Case Is > = 60 Grade = 及格 end Select 有错误,在vb Select Case语句中case不起作用啊~我建了三个单项框~但是只有第一个起作用~是不是case 1 case 2 case 这些标签的数字写错了?那个事管理这个的啊? 谁能写简单的程序,用VB!求整数351~432之间既不能被3整除,又不能被8整除的数的个数及其这些数的和,结果在窗体上输出.我学过 IF END,SELECT CASE,FOR循环,DO循环的结构.最好这些结构中能用的都写出 PLSQL中,select case..when..then..怎么用?最好写个式子出来,一看就能懂的那种, VBA Str$=“Upper Case”难不成是定义一个变量Str是字符串型的?Upper “把谁转换成大写?Select Case a$Case A To ZStr$=Upper CaseCase a To zStr$=Lower CaseCase 0 To 9Str$=NumberCase ,,,,.,;Str$=Punctuato VB中,以下Case语句中错误的是______. A.Case Is>10 And Is10 C.Case 0 To 10D.Case 3,5,Is>10 选哪个 VB代码翻译中文`急用`谢谢`各位高手帮忙``Dim 鼠X As SingleDim 鼠Y As SingleDim 地鼠 As ByteDim 对数 As IntegerDim 总数 As Integer Sub 判断(X, Y)Select Case 地鼠 Case 0, 1, 2 X = 地鼠 Y = 0 Case 3, 4, 5 X = 地鼠 - 3 Y = 1 sql case when请教请教sql中case when 判断语句select 姓名,工龄,(case when (工龄>= '35') then 90%when (工龄>='30' and 工龄='20' and 工龄='10' and 工龄 要超级超级超级超级难的 ansys中 select nodes VF 中SELECT 2 VB中,