鸭子tv国产极品在线观看_成人69视频在线播放_91精品免费在线观看_亚洲AT永久偷窥无码精品_国产精品自产拍在线观看涩浪潮久

VB常用算法（十）字符處理（統(tǒng)計(jì)與加密）- -

曹蘇群  http://caosuqun.bokee.com

1、算法說(shuō)明

1)        加密解密

最簡(jiǎn)單的加密方法是：將每個(gè)字母加一序數(shù)，例如5，這時(shí)：

“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

                                   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)        統(tǒng)計(jì)

         問(wèn)題提出

    統(tǒng)計(jì)字符或者數(shù)字出現(xiàn)的次數(shù)。

         算法說(shuō)明

以字符統(tǒng)計(jì)為例，設(shè)基本問(wèn)題如下：

請(qǐng)統(tǒng)計(jì)一段文本中英文字母在文本中出現(xiàn)的次數(shù)。（不區(qū)分大小寫(xiě)）

如：I am a student.

得到：

A:2 d:1 e:1 I:1 m:1 n:1 s:1 t:2 u:1

分析：

由于不區(qū)分大小寫(xiě)，因此可定義一個(gè)大小為26（下標(biāo)：0－25）的數(shù)組，每個(gè)元素依次記錄A、B、C…Z字母出現(xiàn)的次數(shù)。

A(0)存放字母a出現(xiàn)的次數(shù)

A(1)存放字母b出現(xiàn)的次數(shù)

A(2)存放字母c出現(xiàn)的次數(shù)

A(3)存放字母d出現(xiàn)的次數(shù)

…

譬如：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

解題技巧

         熟練運(yùn)用字符處理函數(shù)，對(duì)于一些數(shù)論題，譬如逆序數(shù)等也可將數(shù)字通過(guò)CStr函數(shù)轉(zhuǎn)換為字符后，利用字符處理函數(shù)來(lái)解題。

2、實(shí)戰(zhàn)練習(xí)

1)        補(bǔ)充代碼（2003秋二（8））

         下面程序的功能是統(tǒng)計(jì)文件中英文字母（不區(qū)分大小寫(xiě)）出現(xiàn)的個(gè)數(shù)。

                  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)        補(bǔ)充代碼（2000秋二（6））

         下面程序的功能是：統(tǒng)計(jì)當(dāng)前盤(pán)當(dāng)前文件夾中的順序文件data.txt中共有多少個(gè)單詞，約定連續(xù)出現(xiàn)的字母定義為一個(gè)單詞。

                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; "個(gè)單詞"

                           For Js = 1 To Idx

                                    Print Char(Js)

                           Next Js

                  End Sub