Private Sub Command1_Click() Dim s As String Dim s1 As String s = InputBox("请你输入一段字母") Print s For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case "A" To "Z"
s1 = s1 + LCase(Mid(s, i, 1))
Case "a" To "z"
s1 = s1 + UCase(Mid(s, i, 1))
Case Else
...
Private Sub Command1_Click()Dim a As Stringa = "Hellow Word!"Dim i As Integer, x As ByteFor i = 1 To Len(a)
x = Asc(Mid(a, i, 1))
If (x >= 65 And x = Asc("A") ...
