IDC资讯中心
1、算法说明 1) 加密解密 最简单的加密方法是：将每个字母加一序数，例如5，这时： “A”→”F”,”a” →”f”,”B” →”G”,”b” →”g”……”Y” →”D”, ”y” →”d”,”Z” →”E”, ”z” →”e” 解密是加密的逆操作。 界面如下： 代码如下：
以下是引用片段：
Option Explicit
Private Sub Command1_Click()
Dim strInput$, 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 – 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 = “”
Text2.Text = “”
Text3.Text = “”
Text1.SetFocus
End Sub
2) 统计
问题提出
统计字符或者数字出现的次数。
算法说明
以字符统计为例，设基本问题如下：
请统计一段文本中英文字母在文本中出现的次数。(不区分大小写)
如：I am a student.
得到：
A:2 d:1 e:1 I:1 m:1 n:1 s:1 t:2 u:1
分析：
由于不区分大小写，因此可定义一个大小为26(下标：0-25)的数组，每个元素依次记录A、B、C…Z字母出现的次数。
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 = 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 = 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))
下面程序的功能是统计文件中英文字母(不区分大小写)出现的个数。
| 以下是引用片段： Option Base 1 Private Sub Command1_Click() Dim alpha(26) As Integer,n As Integer Dim i As Integer,s As String Open “c:\kav2003\readme.txt” 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(i)<>0 Then List1.AddItem Chr(i+64)&”:”&CStr(alpha(i)) End If Next i Close End Sub |
2) 补充代码(2000秋二(6))
下面程序的功能是：统计当前盘当前文件夹中的顺序文件data.txt中共有多少个单词，约定连续出现的字母定义为一个单词。
| 以下是引用片段： Option Explicit Private Sub Form_Click() Dim Char() As String, St As String, Tem As String Dim Idx As Integer, Js As Long, Flen As Long Dim F As Boolean, W As String * 1 (1) Flen = LOF(10) St = Input(Flen, #10) Js = 1 Do While Js <= Flen+1 W = Mid(St, Js, 1) If (2) Then Tem = Tem + W F = True ElseIf F = True Then Idx = Idx + 1 ReDim Preserve Char(Idx) Char(Idx) = Tem Tem = (3) F = False End If (4) Loop Print “共有”; Idx; “个单词” For Js = 1 To Idx Print Char(Js) Next Js End Sub |
