现在有一段程序请大家帮帮忙，看看是否正确
private sub command1_click()
select case trim(text1.text)
case text1.text=1
msgbox("1")
case text1.text=2
msgbox("2")
case text1.text=3
msgbox("3")
case text1.text=4
msgbox("4")
case text1.text=5
msgbox("5")
case else
msgbox("please input 1-5")
end select
end sub
这段程序我认为是不对的，但是运行起来是正确的，我不知道为什么，但是如果把上面的程序写成下面的程序，就不能出正确的结果了
private sub command1_click()
dim x as integer
x=val(text1.text)
select case x
case x=1
msgbox("1")
case x=2
msgbox("2")
case x=3
msgbox("3")
case x=4
msgbox("4")
case x=5
msgbox("5")
case else
msgbox("please input 1-5")
end select
end sub
这段程序出现的结果就是每次都是输出对话框“please input 1-5”,这又是为什么呢，请高手指教一下，在这里先谢过了。

我想知道我的那段代码到底哪里出问题了，我知道像上面那样写是对的，但是我这么写有什么不对的，为什么，select case语句中是否可以这么写

private sub command1_click()
select case trim(text1.text)
case text1.text=1
msgbox("1")
case text1.text=2
msgbox("2")
case text1.text=3
msgbox("3")
case text1.text=4
msgbox("4")
case text1.text=5
msgbox("5")
case else
msgbox("please input 1-5")
end select
end sub
这段代码中text1.text=1这样的代码可以写在case 后面么