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