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

Question

可是为什么它不运行下面的语句块？那要怎么修改？那个错误的原因是什么？我写的程序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

Answer 1

因为Case语句中无法嵌套使用函数，Case必须保证后面的判断类型与Select case的那个变量一致（既然你s是String，那么IsNumeric是布尔类型，当然不可以。 解决方法：1）用If……ElseIf代替Select Case。2）用Case "0" To "9"代替IsNumeric（但是只能适用于输入一个数字）