Question

编写程序！！！用vb编写程序，在文本框中输入英文字符，单机“大写”按钮把英文字符转换为大写，单击“

编写程序！！！用vb编写程序，在文本框中输入英文字符，单机“大写”按钮把英文字符转换为大写，单击“小写”把英文字符转换为小写。

Answer 1

Private Sub Command1_Click()
Dim s As String, t As String, p As String
s = Text1.Text
t = ""
For i = 1 To Len(s)
    p = Mid(s, i, 1)
     
    If Asc(p) > 96 And Asc(p) < 123 Then
        t = t & Chr(Asc(p) - 32)
    End If
    If Asc(p) > 64 And Asc(p) < 91 Then
        t = t & Chr(Asc(p) + 32)
    End If
Next i
Text1.Text = t
End Sub
 
Private Sub Form_Load()
Text1.Text = "AaBbCcDdEeFfGgHhIiJjKk"
End Sub