字符的加密和解密！！

你看看，是不是要求这样做 Private Sub Command1_Click() Dim k As Integer, c As String, i As Integer k = 5 Text2.Text = "" For i = 1 To Len(Text1.Text) c = Mid$(Text1.Text, i, 1) If (c >= "A" And c = "a&