vb常用算法10 统计加密字符处理

《vb常用算法10 统计加密字符处理》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB常用算法----字符处理（加密与统计）1、加密解密最简单的加密方法是：将每个字母加一序数，例如5，这时：“A”→”F”,”a”→”f”,”B”→”G”,”b”→”g”……”Y”→”D”,”y”→”d”,”Z”→”E”,”z”→”e”解密是加密的逆操作。界面如右：代码如下：OptionExplicitPrivateSubCommand1_Click()DimstrInput$,Code$,Record$,cAsString*1Dimi%,length%,iAsc%strInput=Text1.Textlength=Len(Trim(strInput))Code=""

2、Fori=1Tolengthc=Mid(strInput,i,1)SelectCasecCase"A"To"Z"iAsc=Asc(c)+5IfiAsc>Asc("Z")TheniAsc=iAsc-26Code=Code&Chr(iAsc)Case"a"To"z"5iAsc=Asc(c)+5IfiAsc>Asc("z")TheniAsc=iAsc-26Code=Code&Chr(iAsc)CaseElseCode=Code&cEndSelectNextiText2.Text=CodeEndSubPrivateSubCommand3_Click()Text1.Text="

3、"Text2.Text=""Text3.Text=""Text1.SetFocusEndSub 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出现的次数5A(2)存放字母c出现的次数A(3)存放字母d出现的次数…譬如：aa

4、bdc，则A(0)=2，A(1)=1，A(2)=1，A(3)=1代码如下：OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimzimu(25)AsIntegerDimallStrAsStringDimaStrAsStringallStr=UCase(Text1.Text)Fori=1ToLen(Text1.Text)aStr=Mid(allStr,i,1)IfaStr>="A"AndaStr<="Z"Thenzimu(Asc(aStr)-Asc("A"))=zimu(Asc(aStr)-

5、Asc("A"))+1EndIfNextiFori=0To25Ifzimu(i)<>0Thenj=j+1Text2.Text=Text2.Text&Chr(i+Asc("A"))&":"&str(zimu(i))&""IfjMod5=0ThenText2.Text=Text2.Text&Chr(13)&Chr(10)EndIfNextiEndSub 解题技巧熟练运用字符处理函数，对于一些数论题，譬如逆序数等也可将数字通过CStr函数转换为字符后，利用字符处理函数来解题。3、实战练习1)补充代码（2003秋二（8））下面程序的功能是统计文件中英文字母（不区分大小写）出现

6、的个数。OptionBase15PrivateSubCommand1_Click()Dimalpha(26)AsInteger,nAsIntegerDimiAsInteger,sAsStringOpenApp.Path&"lx.txt"ForInputAs#11DoWhileNotEOF(11)s=(1)s=UCase(s)Ifs>="A"Ands<="Z"Thenn=(2)alpha(n)=alpha(n)+1EndIfLoopFori=1To26Ifalpha(i)<>0ThenList1.AddItemChr(i+64)&":"&CStr(alpha(i))E

7、ndIfNextiCloseEndSub 2)补充代码（2000秋二（6））下面程序的功能是：统计当前盘当前文件夹中的顺序文件data.txt中共有多少个单词，约定连续出现的字母定义为一个单词。OptionExplicitPrivateSubcommand1_Click()DimChar()AsString,StAsString,TemAsStringDimIdxAsInteger,JsAsLong,FlenAsLongDimFAsBoolean,WAsString*1（1）Flen=LOF(10)5St=Input(Flen,#10)Js=1DoW