10、VB常用算法十)字符处理(统计与加密).docVIP

1、算法说明 1)??????? 加密解密 最简单的加密方法是：将每个字母加一序数，例如5，这时： 解密是加密的逆操作。 界面如下： ? 代码如下： Option Explicit ? Private Sub Command1_Click() Dim strInput$, Code$, Record$, c As String * 1 Dim i%, length%, iAsc% strInput = Text1.Text length = Len(Trim(strInput)) Code = For i = 1 To length c = mid(strInput, i, 1) Select Case c Case A To Z iAsc = Asc(c) + 5 If iAsc Asc(Z) Then iAsc = iAsc - 26 Code = Code Chr(iAsc) Case a To z