[说明]
本程序将利用文本框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