Private Sub C1_Click()
Dim a As String, b As String, c As String, i As Integer
a = StrConv(Text1.Text, vbUpperCase)
b = StrConv(Text1.Text, vbLowerCase)
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = Mid(a, i, 1) Then
c = c & Mid(b, i, 1)
ElseIf Mid(Text1.Text, i, 1) = Mid(b, i, 1) Then
c = c & Mid(a, i, 1)
Else
c = c & Mid(Text1.Text, i, 1)
End If
Next i
Text1.Text = c
End Sub
温馨提示:答案为网友推荐,仅供参考