VB中,select case 超级难!一定要用select case做!

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/06/28 22:08:24

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

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 超级难!一定要用select case做! PLSQL中,select case..when..then..怎么用? VB中,select case语句 case is的is 有什么用,好像有时候没有写好像有时候没有写,有时候又写了 select case 语句里可以再套select case Select Case语句到底是什么意思? select case x结构中,描述判断条件3 Select Case语句中case不起作用啊~我建了三个单项框~但是只有第一个起作用~是不是case 1 case 2 用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况： VB select case is > 2 and is < 5的表示是错误的,正确的应该怎么写? select case 语句怎么判断在某两个值之间 SELECT you're going to select more against carbon 13 in one case th