VB select case 语句中的一个小问题 在线等.急

来源:百度知道 编辑:UC知道 时间:2024/06/23 15:53:24
Private Sub Command1_Click()
dim a as string
a = text1.text
Select Case a
Case Is > 5
MsgBox "a>5"
Case Is < 5
MsgBox "a<5"
Case Else
MsgBox "错误"
End Select
End Sub
怎么我单击按钮总是提示a<5 ?
你们都说错了
因为数字的Ascii码是48-57之间而字母的Ascii码都大于65所以只要输入字母就会大于数字,把Select Case a改为Select Case Val(a)就行了

没错啊

Private Sub Command1_Click()
Dim a As Long
a = Val(Text1.Text) '//Val函数,将字符串转换成数值
Select Case a
Case Is > 5
MsgBox "a>5"
Case Is < 5
MsgBox "a<5"
Case Else
MsgBox "错误"
End Select
End Sub