Question

VB中点击按钮判断文本框中输入的字符是大写字母或小写字母或其他字符，结果用msgbox显示。这段代码怎么打

Answer 1

Dim a As String
a = Text1.Text
If Asc(a) >= 65 And Asc(a) <= 90 Then
    MsgBox "是大写字母"
    ElseIf Asc(a) >= 97 And Asc(a) <= 122 Then
    MsgBox "是小写字母"
    Else
    MsgBox "是其他字符"
End If

Answer 2

Private Sub Command1_Click()
If Asc(Text1.Text) >= 65 And Asc(Text1.Text) <= 90 Then
    MsgBox "大写字母"
ElseIf Asc(Text1.Text) >= 97 And Asc(Text1.Text) <= 122 Then
    MsgBox "小写字母"
Else
    MsgBox "其他字符"
End If
End Sub