程序代码：

Private Sub Command1_Click() 
Dim n As Integer                     '加密 
Dim i As Integer 
Dim t As Integer 
n = Len(Text1.Text) 
For i = 1 To n 
c = Mid(Text1.Text, i, 1) 
t = Asc(c) + 1 
Text2.Text = Text2.Text + Chr(t) 
Next i 
 
End Sub 
 
Private Sub Command2_Click() 
Dim n As Integer                     '解密 
Dim i As Integer 
Dim t As Integer 
n = Len(Text1.Text) 
For i = 1 To n 
c = Mid(Text1.Text, i, 1) 
t = Asc(c) - 1 
Text2.Text = Text2.Text + Chr(t) 
Next i 
End Sub 
 
Private Sub Command3_Click() 
Text1.Text = ""                     '清空 
Text2.Text = "" 
End Sub