VB程序设计中，select case语句的一些问题

来源：百度知道 编辑：UC知道 时间：2024/05/28 04:34:19
就像在JAVA中，switch case可以使多个case语句块共享相同的代码，简洁了代码。例如：
switch case .....
Case 0
Case 2
Case 4
语句块

以上说明当和case后的数值相符时，之行后面的语句块。
那在VB中这种情况如何表示呢？？？

对 差别不大
Dim n as Integer
Select Case n
Case 1
。。。
Case 2
。。。
Case Else
。。。
End Select

给你举个例子吧,在窗体上放一个文本框和一个按钮,在文本框里输入数据,在按钮事件下写入:
private sub command1_click()
select case val(text1.text)
case 1
msgbox ("你输入的数字是1")
case 3,5,7,9
msgbox ("你输入的是3-10的奇数")
case 10 to 99
msgbox ("你输入的数在10到99之间")
case is>100
msgbox ("你输入的数大于100")
end select
end sub
这个select case语句用了各种不同的表达式,应该足以说明问题.

select case iNum
case 0
...
case 1
...
case 2
...
case else
...
end select

就这样而已啊