。如何編程:輸入壹個字符,如果他是大寫英文字母,則將其轉換為小寫英文字母;如果他是小寫英文字母,則將其轉

Text2是輸出結果

Private Sub Text1_Change()

'變量聲明時註意定義變量類型

Dim X As String

Dim I As Long

Dim S As String

Dim CH As String

X = Text1.Text

For I = 1 To Len(X)

CH = Mid(X, I, 1)

If CH >= "a " And CH <= "z" Then '開始大小寫轉換

S = S + UCase(CH)

ElseIf CH >= "A" And CH <= "Z" Then

S = S + LCase(CH)

End If

Next I

Text2.Text = S

End Sub