文档介绍：VB常用算法一--字符处理（加密与统计）
1、加密解密
最简单的加密方法是：将每个字母加一序数，例如5,这时：
“A” " f”，” a” -*”g” ”Y” 一 ” D”，
” y” f”d”，”Z” ” z” -*”e”
解
VB常用算法一--字符处理（加密与统计）
1、加密解密
最简单的加密方法是：将每个字母加一序数，例如5,这时：
“A” " f”，” a” -*”g” ”Y” 一 ” D”，
” y” f”d”，”Z” ” z” -*”e”
解密是加密的逆操作。
界而如右：
代码如下：
Option Explicit
Private Sub Command l_Click()
String ♦ 1
Dim strlnpulS, CodeS. Records, c As
Dim i%, length%, iAsc%
strinpul = Text
length = Len(Trim( strinput))
Code ="
For i = 1 To length
c = Mid(strlnput. i, 1)
Select Case c
Case To
iAsc = Asc(c) + 5
If iAsc > Asc(°ZH) Then iAsc = iAsc - 26
Code = Code & Chr(iAsc)
Case ”a” To ”z”
iAsc = Asc(c) + 5
If iAsc > AscC'z”)Then iAsc = iAsc ・ 26
Code = Code & Chr(iAsc)
Case Else
Code = Code & c
End Select
Next i
= Code
End Sub
Private Sub Coinmand3_Click()
Text = ””
= ””
= ””
End Sub
2、统计
问题提出
统计字符或者数字出现的次数。
算法说明
以字符统计为例，设基本问题如下：
请统计一段文本中英文字母在文本中出现的次数.(不区分大小写)
如：I am a student.
得到：
A:2 d:1 e：1 I:1 m：1 n：1 s：1 t:2 u:1
分析：
由于不区分大小写，因此可定义一个大小为26 (下标：。一25)的数组，每个元素依次 记录A、B. C-Z字母出现的次数。
A(0)存放字母a出现的次数
A(l)存放字母b出现的次数
A(2)存放字母c出现的次数
A(3)存放字母d出现的次数
譬如:aabdc ,则 A(0)=2, A⑴=1, A(2)=1, A(3)=l
代码如下：
Option Explicit
Private Sub Command l_Click()
Dim i As Integer, j As Integer
Dim zimu(25) As Integer
Dim allStr As String
Dim aStr As Siring
allStr = UCase()
For i