请问用select case语句怎么实现就是说当你在文本框里面输入的一个数字是什么，就是用select case语句来进行判断

dim n as integer
n=val(text1.text)
select case n
case 1
msgbox "1"
case 2
msgbox "2"
case else
msgbox "3"
end select

谢谢，这里的VAL请问是用来干嘛的，解释下好吗？

msdn

val函数在执行过程中,首先去掉字符串中的任何空格,然后开始读取字符串中的数字,如果字符串中的第一个字符不是数字或负号,val函数返回0.否则函数读取字符串,直到遇到一个非数字的字符为止,并将它读取的数字转换为数值.例如:
val("1234 567abcd")
返回1234567

发现楼主真的很懒。。。

是超级懒，每次都是叫我看MSDN

你们才叫懒，一点屁点的事，也要拿来问

楼上朋友??
象这个 我就不知道啊
msdn 还是看看的好...