2012年计算机等级考试二级VB重点知识（十一）

　　七、字符串的一般处理

　　1.简单加密和解密

　　加密的思想是：

　　将每个字母C加(或减)一序数K,即用它后的第K个字母代替，变换式公式： c=chr(Asc(c)+k)

　　例如序数k为5,这时 "A"→ "F", "a"→?"f","B"→?"G"…

　　当加序数后的字母超过"Z"或"z"则 c=Chr(Asc(c)+k -26)

　　例如：You are good→ Dtz fwj ltti

　　解密为加密的逆过程

　　将每个字母C减(或加)一序数K,即 c=chr(Asc(c)-k)，

　　例如序数k为5,这时 "Z"→"U", "z"→"u","Y"→"T"…

　　当加序数后的字母小于"A"或"a"则 c=Chr(Asc(c)-k +26)

　　下段程序是加密处理：

　　i = 1: strp = ""

　　nL = Len(RTrim(strI))

　　Do While (i <= nL)

　　strT = Mid$(strI, i, 1) '取第i个字符

　　If (strT >= "A" And strT <= "Z") Then

　　iA = Asc(strT) + 5

　　If iA > Asc("Z") Then iA = iA - 26

　　strp = strp + Chr$(iA)

　　ElseIf (strT >= "a" And strT <= "z") Then

　　iA = Asc(strT) + 5

　　If iA > Asc("z") Then iA = iA - 26

　　strp = strp + Chr$(iA)

　　Else

　　strp = strp + strT

　　End If

　　i = i + 1

　　Loop

　　Print strp

　　2.统计文本单词的个数

　　算法思路：

　　(1)从文本(字符串)的左边开始，取出一个字符;设逻辑量WT表示所取字符是否是单词内的字符，初值设为False

　　(2)若所取字符不是"空格","逗号","分号"或"感叹号"等单词的分隔符，再判断WT是否为True,若WT不为True则表是新单词的开始，让单词数Nw=Nw+1,让WT=True;

　　(3)若所取字符是"空格","逗号","分号"或"感叹号"等单词的分隔符， 则表示字符不是单词内字符，让WT=False;

　　(4)再依次取下一个字符，重得(2)(3)直到文本结束。

　　下面程序段是字符串strI中包含的单词数

　　Nw = 0: Wt = False

　　nL = Len(RTrim(strI))

　　For i = 1 To nL

　　strT = Mid$(strI, i, 1) '取第i个字符

　　Select Case strT

　　Case " ", ",", ";", "!"

　　Wt = False

　　Case Else

　　If Not Wt Then

　　Nw = Nw + 1

　　Wt = True

　　End If

　　End Select

　　Next i

　　Print "单词数为：", Nw

　　相关推荐：

　　2012年下半年计算机等级考试报名时间及入口汇总

　　计算机等级考试三级PC技术过关心得技巧

　　2012年3月计算机二级考试真题汇总