Question

vb，图片上的怎么做啊？求大神指教

Answer 1

Private Sub Form_Click()
    Dim a1 As String
    a1 = InputBox("键盘输入一个字符", "输入")
    If Asc(a1) >= 97 And Asc(a1) <= 122 Then
        MsgBox UCase(a1)
    ElseIf Asc(a1) >= 65 And Asc(a1) <= 90 Then
         MsgBox LCase(a1)
    Else
         MsgBox a1
    End If
End Sub

Answer 2

没看到。。。。。。。。。。。。。。。。。。。

追问

不好意思我才发现

追答

Private Sub Form_Click()
    Dim a1 As String
    a1 = InputBox("键盘输入一个字符", "输入")
    If Asc(a1) >= 97 And Asc(a1) <= 122 Then
        MsgBox UCase(a1)
    ElseIf Asc(a1) >= 65 And Asc(a1) <= 90 Then
         MsgBox LCase(a1)
    Else
         MsgBox a1
    End If
End Sub

这个就是对的