计算机等级考试二级vb常用算法.doc

一、字符处理11、算法说明 1)加密解密最简单的加密方法是:将每个字母加一序数,例如5,这时: “A”→”F”,”a”→”f”,”B”→”G”,”b”→”g”……”Y”→”D”,”y”→”d”,”Z”→”E”,”z”→”e”解密是加密的逆操作。界面如下: 代码如下:Word-WRAP:break-word"bgColor=#f3f3f3>以下是引用片段: Option Explicit Private mand1_Click() Dim strInput$, Code$, Record$, c As String * 1 Dim i%, length%, iAsc% strInput =  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  = Code End Sub Private mand3_Click()  = ""  = ""  = "" End Sub 2)统计问题提出统计字符或者数字出现的次数。算法说明以字符统计为例,设基本问题如下: 请统计一段文本中英文字母在文本中出现的次数。(不区分大小写) 如:Iamastudent. 得到: A:2d:1e:1I:1m:1n:1s:1t:2u:1 分析: 由于不区分大小写,因此可定义一个大小为26(下标:0-25)的数组,每个元素依次记录A、B、C…Z字母出现的次数。 A(0)存放字母a出现的次数 A(1)存放字母b出现的次数 A(2)存放字母c出现的次数 A(3)存放字母d出现的次数…譬如:aabdc 代码如下:以下是引用片段: Option Explicit Private mand1_Click() Dim i As Integer, j As Integer Dim zimu(25) As Integer Dim allStr As String Dim aStr As String allStr = UCase() For i = 1 To Len() aStr = Mid(allStr, 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、实战练****1)补充代码(2003秋二(8)) 下面程序的功能是统计文件中英文字母(不区分大小写)出现的个数。Word-WRAP:break-word"bgColor=#f3f3f3>以下是引用片段: Option Base 1 Private mand1_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(