更新时间：2023-12-26 22:14
加密程序是一个文本串可用事先给定的字母映射表进行加密的程序 。
一个文本串可用事先给定的字母映射表进行加密 。 例如，设字母映射表为：
abcdefghigklmnopqrstuvwxyz
ngzqtcobmuhelkpdawxfyivrsj
Private Sub Command1_Click（）
Dim a As String, b As String * 1
Dim I As Integer, c As String, d As String * 1
For I = 1 To Len（a）
b = Mid（a, I, 1）
d = Chr（Asc（b） + 1）
c = c + d
Next I
Text1.Text = c
End Sub
此程序是把原数字或字母往后移一位
例：12345→23456
abcde→bcdef
大家可以试一下……