编制计算机程序解决问题 加密01.txt文件？

是用VB吗?

代码如下

Private Sub Command2_Click() '加密
Dim s, temp, t As String
Dim i As Single
s = Text1.Text
t = ""
For i = 1 To Len(s)
temp = Mid$(s, i, 1)
temp = Chr(Asc(temp) - 1)
t = t + temp
Next i
Text2.Text = t
End Sub

Private Sub Command3_Click() '解密
Dim s As String, temp As String, t As String
Dim i As Single
's = RTB1.Text
s = Text2.Text
t = ""
For i = 1 To Len(s)
temp = Mid$(s, i, 1)
temp = Chr(Asc(temp) + 1)
t = t + temp
Next i
Print t
End Sub