一道VB题目,求解答答: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)...