计算机等级考试二级VB常用算法.docx

.专业整理 .
一、字符处理 1
1 、算法说明
加密解密
最简单的加密方法是 ：将每个字母加一序数 ，例如 5 ，这时 ：
“ A”→” F” , ” a ” tr, i, 1)
If aStr >= "A" And aStr <= "Z" Then
zimu(Asc(aStr) - Asc("A")) = zimu(Asc(aStr) - Asc("A")) + 1
End If
Next i
For i = 0 To 25
If zimu(i) <> 0 Then
j = j + 1
= & Chr(i + Asc("A")) & ":" & str(zimu(i)) & " "
If j Mod 5 = 0 Then = & Chr(13) & Chr(10)
End If
Next i
. 学****帮手 .
.专业整理 .
End Sub
解题技巧
熟练运用字符处理函数 ，对于一些数论题 ，譬如逆序数等也可将数字通过 CStr 函数转
换为字符后 ，利用字符处理函数来解题 。
2 、实战练****br/>1) 补充代码 (2003 秋二 (8))
下面程序的功能是统计文件中英文字母 (不区分大小写 )出现的个数 。
Word-WRAP: break-word" bgColor=#f3f3f3> 以下是引用片段 ：
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\" For Input As #11
Do While Not EOF(11)
s= (1)
s=UCase(s)
If s>="A" And s<="Z" Then
n= (2)
alpha(n)=alpha(n)+1
End If
Loop
. 学****帮手 .
.专业整理 .
For i=1 To 26
If alpha(i)<>0 Then
Chr(i+64)&":"&CStr(alpha(i))
End If
Next i
Close
End Sub
2) 补充代码 (2000 秋二 (6))
下面程序的功能是 ：统计当前盘当前文件夹中的顺序文件 中共有多少个单
词，约定连续出现的字母定义为一个单词 。
以下是引用片段 ：
Option Explicit
Private Sub Form_Click()
Dim Char() As String, St As String, Tem As String
Dim Idx As Integer, Js As Long, Flen As Long
Dim F As Boolean, W As String * 1
(1)
Flen = LOF(10)
St = Input(Flen, #10)
Js = 1
Do While Js <= Flen+1
. 学****帮手 .
.专业整理 .
W = Mid(St, Js, 1)
If (2) Then
Tem = Tem + W
F = True
ElseIf F = True Then
Idx = Idx + 1
ReDim Preserve Char(Idx)
Char(Idx) = Tem