VB中,select case 超级难!一定要用select case做!现在有2个string.string1=textbox1是输入4位邮政编码的,string2是显示邮政编码所对应的地区的.依照表如下:地区缩写-邮编范围NSW 1000—1999 2000—2599 2619—28
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 22:39:04
![VB中,select case 超级难!一定要用select case做!现在有2个string.string1=textbox1是输入4位邮政编码的,string2是显示邮政编码所对应的地区的.依照表如下:地区缩写-邮编范围NSW 1000—1999 2000—2599 2619—28](/uploads/image/z/6682047-15-7.jpg?t=VB%E4%B8%AD%2Cselect+case+%E8%B6%85%E7%BA%A7%E9%9A%BE%21%E4%B8%80%E5%AE%9A%E8%A6%81%E7%94%A8select+case%E5%81%9A%21%E7%8E%B0%E5%9C%A8%E6%9C%892%E4%B8%AAstring.string1%3Dtextbox1%E6%98%AF%E8%BE%93%E5%85%A54%E4%BD%8D%E9%82%AE%E6%94%BF%E7%BC%96%E7%A0%81%E7%9A%84%2Cstring2%E6%98%AF%E6%98%BE%E7%A4%BA%E9%82%AE%E6%94%BF%E7%BC%96%E7%A0%81%E6%89%80%E5%AF%B9%E5%BA%94%E7%9A%84%E5%9C%B0%E5%8C%BA%E7%9A%84.%E4%BE%9D%E7%85%A7%E8%A1%A8%E5%A6%82%E4%B8%8B%EF%BC%9A%E5%9C%B0%E5%8C%BA%E7%BC%A9%E5%86%99-%E9%82%AE%E7%BC%96%E8%8C%83%E5%9B%B4NSW+1000%E2%80%941999+2000%E2%80%942599+2619%E2%80%9428)
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