(2)输入一个字符串，将其中的所有大写字母改为小写字母，而所有小写字母全部改为大写字母，然后输出。

Private Sub Form_Click() Dim a As String a = InputBox("输入数据") c = UCase(a) Print c End Sub