10、VB常用算法(十)字符处理(统计与加密).doc

1、算法说明1)加密解密最简单的加密方法是:将每个字母加一序数,例如5,这时:“A”→”F”,”a”→”f”,”B”→”G”,”b”→”g”……”Y”→”D”,”y”→”d”,”Z”→”E”,”z”→”e”解密是加密的逆操作。界面如下:代码如下:mand1_Click()DimstrInput$,Code$,Record$,cAsString*1Dimi%,length%,iAsc%strInput==Len(Trim(strInput))Code=""Fori=1Tolengthc=mid(strInput,i,1)ase"A"To"Z"iAsc=Asc(c)+5IfiAsc>Asc("Z")TheniAsc=iAsc-26Code=Code&Chr(iAsc)Case"a"To"z"iAsc=Asc(c)+5IfiAsc>Asc("z")TheniAsc=iAsc-26Code=Code&Chr(iAsc)CaseElseCode=Code&=mand3_Click()=""=""="")统计问题提出统计字符或者数字出现的次数。算法说明以字符统计为例,设基本问题如下:请统计一段文本中英文字母在文本中出现的次数。(不区分大小写)如::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代码如下:mand1_Click()DimiAsInteger,jAsIntegerDimzimu(25)AsIntegerDimallStrAsStringDimaStrAsStringallStr=UCase()Fori=1ToLen()aStr=Mid(allStr,i,1)IfaStr>="A"AndaStr<="Z"Thenzimu(Asc(aStr)-Asc("A"))=zimu(Asc(aStr)-Asc("A"))+1EndIfNextiFori=0To25Ifzimu(i)<>0Thenj=j+=&Chr(i+Asc("A"))&":"&str(zimu(i))&""IfjMod5==&Chr(13)&Chr(10)EndIfNextiEndSub解题技巧熟练运用字符处理函数,对于一些数论题,譬如逆序数等也可将数字通过CStr函数转换为字符后,利用字符处理函数来解题。2、实战练习1)补充代码(2003秋二(8))下面程序的功能是统计文件中英文字母(不区分大小写)出现的个数。mand1_Click()Dimalpha(26)AsInteger,nAsIntegerDimiAsInteger,sAsStringOpen"c:\kav2003\"For