【简答题】

Private Sub Command1_Click()
    Dim n As Integer, k As Integer, ch As String, a As String
    n = Len(Text1.Text)
    ch = ""
    For k = 1 To n
'        a = Mid$(Text1.Text, ? , 1)
        If Option1.Value = True Then
            If a >= "a" And a <= "z" Then
                ch = ch + UCase(a)
            ElseIf a >= "A" And a <= "Z" Then
'                ch = ch + ?
            Else
                ch = ch + a
            End If
        End If
        If Option2.Value = True Then
            ch = UCase(Text1)
        End If
        If Option3.Value = True Then
            ch = LCase(Text1)
        End If
'        Text2 = ?
    Next k
End Sub