计算机等级考试二级VB常用算法(10):字符处理
1、算法说明1) 加密解密
最简单的加密方法是:将每个字母加一序数,例如5,这时:
“A”→”F”,”a” →”f”,”B” →”G”,”b” →”g”……”Y” →”D”, ”y” →”d”,”Z” →”E”, ”z” →”e”
解密是加密的逆操作。
界面如下:
http://www.examw.com/NCRE/Files/2010-6/3/1139317262.jpg
代码如下:
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"
iAsc = Asc(c) + 5
If iAsc > Asc("z") Then iAsc = iAsc - 26
Code = Code & Chr(iAsc)
Case Else
Code = Code & c
End Select
Next i
Text2.Text = Code
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
计算机等级考试二级VB常用算法(10):字符处理
</p>2) 统计
问题提出
统计字符或者数字出现的次数。
算法说明
以字符统计为例,设基本问题如下:
请统计一段文本中英文字母在文本中出现的次数。(不区分大小写)
如:I am a student.
得到:
A:2 d:1 e:1 I:1 m:1 n:1 s:1 t:2 u:1
分析:
由于不区分大小写,因此可定义一个大小为26(下标:0-25)的数组,每个元素依次记录A、B、C…Z字母出现的次数。
A(0)存放字母a出现的次数
A(1)存放字母b出现的次数
A(2)存放字母c出现的次数
A(3)存放字母d出现的次数
…
譬如:aabdc
代码如下:
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim zimu(25) As Integer
Dim allStr As String
Dim aStr As String
allStr = UCase(Text1.Text)
For i = 1 To Len(Text1.Text)
aStr = Mid(allStr, i, 1)
If aStr >= "A" And aStr
计算机等级考试二级VB常用算法(10):字符处理
</p>2、实战练习
1) 补充代码(2003秋二(8))
下面程序的功能是统计文件中英文字母(不区分大小写)出现的个数。
Option Base 1
Private Sub Command1_Click()
Dim alpha(26) As Integer,n As Integer
Dim i As Integer,s As String
Open "c:\kav2003\readme.txt" For Input As #11
Do While Not EOF(11)
s=(1)
s=UCase(s)
If s>="A" And s
页:
[1]