[说明] 本程序将利用文本框txtInput 输入的一行字符串中的所有字母加密，加密，加密结果在文本txtCode中显示。加密方法如下：将每个字母的序号移动5个位置，即“A”-＞“F”“a”-＞“f”，“B”-＞“G”……“Y”-＞“D”，“Z”-＞“E”。程序段如下： [Visual Basic 代码]Private Sub Form_ Click() Dim strInput As String*70 ； 输入字符串 Dim Code as String*70 ；加密结果 Dim strTemp As String*1 ；当前处理的字符 Dim i as Integer Dim Length As Integer ；字符串长度 Dim iAsc As Integer；第i个字ASCII码 (1) ；取字符串 i=1 Code=“” (2) ；去掉字符串右边的空格，求真正的长度Do While(i＜=Length) (3) ；取第i个字符 If (strTemp＞="A" And strTemp＜="Z’，) Then iAsc= Asc (strTemp)+5 If iAsc＞Asc(“Z”)Then iAsc=iAsc-26 Code=Left＄(Code，i-1)+Chr＄ (iAsc) ElseIf (strTemp＞="a" And strTemp＜="z") Then iAsc=Asc(strTemp)+5 If iAsc＞Asc (“z”) TheniAsc=iAsc-26 Code=Left＄(Code,i-1)+Chr＄(iAsc) Else Code=Left＄(Code,i-1)+strTemp End If (4) Loop (5) ；显示加密结果End Sub
