我写了case isnumeric(text1.text) 可是好像不能这样写,请问要怎么修改?

可是为什么它不运行下面的语句块?那要怎么修改?那个错误的原因是什么?我写的程序Private Sub Form_Click()
Dim s$
s = Text1.Text
Select Case s
Case "a" To "z"
Text2.Text = "它是小写字母"
Case "A" To "Z"
Text2.Text = "它是大写字母"
Case IsNumeric(Text1.Text)
Text2.Text = "它是数字"
Case Else
Text2.Text = "它是其他字符"
End Select
End Sub

人到中年有点甜
浏览 198回答 1
1回答

翻阅古今

因为Case语句中无法嵌套使用函数,Case必须保证后面的判断类型与Select case的那个变量一致(既然你s是String,那么IsNumeric是布尔类型,当然不可以。 解决方法:1)用If……ElseIf代替Select Case。2)用Case "0" To "9"代替IsNumeric(但是只能适用于输入一个数字)
打开App,查看更多内容
随时随地看视频慕课网APP