资源描述：
《计算机等级考试二级VB常用算法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、一、字符处理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 Sub Command1_Click() Dim strInput$,
2、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
3、 - 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 =
4、 "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub 2)统计 问题提出 统计字符或者数字出现的次数。 算法说明 以字符统计为例，设基本问题如下： 请统计一段文本中英文字母在文本中出现的次数。(不区分大小写) 如：Iamastudent. 得到： A:2d:1e:1I:1m:1n:1s:1t:2u:1 分析： 由于不区分大小写，因此可定义一个大小为26(下标：0-25)的数组，每个元素依次记录A、B、C…Z字
5、母出现的次数。 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
6、 = UCase(Text1.Text) For i = 1 To Len(Text1.Text) 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 Text2.Text
7、= Text2.Text & Chr(i + Asc("A")) & ":" & str(zimu(i)) & " " If j Mod 5 = 0 Then Text2.Text = Text2.Text & Chr(13) & Chr(10) End If Next i End Sub 解题技巧 熟练运用字符处理函数，对于一些数论题，譬如逆序数等也可将数字通过CStr函数转换为字符后，利用字符处理函数来解题。2、实战练习 1)补充代码(2003秋二(8)) 下面程序的功能是统计文件
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:kav2003readme.txt" For Input As #11 Do
