VB中,select case 怎么做这题?超级难!!!!!!!!!!!!一定要用select case做!

来源:百度知道 编辑:UC知道 时间:2024/05/10 10:58:04
现在有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"

  &nb