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

Question

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

Answer 1

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