Question

刚学vb 在文本框中输入一个字符，判断是字母还是数字字符 或者其他字符 我写的有问题 应该怎么改

Answer 1

s是变量，不该打引号。

下面是用选择语句来处理，可能比较清晰点。

Private Sub Command1_Click()
    Dim s As String
    s = Text1
    If Len(s) = 1 Then
        Select Case s
            Case "a" To "z", "A" To "Z"
            MsgBox "字母"
            Case "0" To "9"
            MsgBox "数字"
            Case Else
            MsgBox "其它"
        End Select
    Else
        MsgBox "请只输入一个字"
    End If
End Sub

Answer 2

Private Sub Command1_Click()
Dim s As String
s = Text1.Text
If Len(s) = 1 Then
If Text1.Text Like "[A-Z]" Or Text1.Text Like "[a-z]" Then
Text2.Text = "字母"
ElseIf IsNumeric(Text1.Text) Then Text2.Text = "数字"
Else
Text2.Text = "其它"
End If
Else
MsgBox "请只输入一个字符"
End If
End Sub