1、其他典型算法之文本處理【例1】 編寫VB程序,實現(xiàn)如下功能:在文本框Text1中輸入包含數(shù)字、字母的字符串,單擊“統(tǒng)計”按鈕Commandl,統(tǒng)計該字符串中數(shù)字字符的個數(shù),并在標簽Label1中輸出結(jié)果。為實現(xiàn)上述功能,請在劃線處填入合適代碼或選項。Private Sub Commandl_Click()Dim s As String,c As StringDim i As Integer,n As Integer,num As Integers=(填程序代碼)num=0n=Len(s)(填字母:從下列A、B、C三個選項中選取一項)(填字母:從下列A、B、C三個選項中選取一項)If c= 0

2、And c=9 Thennum=num+1End IfNext iLabell.Caption=str(num)End Sub劃線、的選項:A.Do While i=nB.c=Mid(s,i,1)C.For i=1 To n【例2】.要求從原文本(均為ASCII字符)中刪除指定的單詞(完整的單詞),并將處理后的文本重新輸出。程序界面如圖所示,在文本框Text1中輸入原文本,在文本框Text2中輸入需要刪除的單詞,單擊“刪除”按鈕(Command1)后,在文本框Text3中輸出處理后的結(jié)果。實現(xiàn)上述功能的VB程序如下,但加框處有錯,請更正。Function delstr(s1 As String

3、, s2 As String) As StringDim n1 As Integer, n2 As Integer, i As Integer,ch As Stringn1 = Len(s1) : n2 = Len(s2) : i = 1Do While i a And ch = A And ch =a And c=A And c=Z ThenIf c=Text2.Text Then flag=True:cnt=cnt+1ElseIf flag Then List1.AddItem tmptmp= End IfNext iIf cnt=0 ThenList1.AddItem 找不到符合條件的單

4、詞.End IfEnd Sub(2)若文本框Text2中輸入“M”,單擊“獲取單詞”按鈕后,列表框List1中顯示的單詞個數(shù)是。2.RLE(Run-Length Encoding行程長度編碼)壓縮算法是Windows系統(tǒng)中使用的一種圖像文件壓縮方法,用兩個數(shù)據(jù)表示,第一個記錄指定像素重復(fù)的次數(shù);第二個記錄具體像素的值。例如,有一表示顏色像素值的字符串RRRRGGBBB,用RLE壓縮方法壓縮后可用4R2G3B表示。小芳設(shè)計了一個VB程序?qū)崿F(xiàn)RLE算法功能。在Text1中輸入原始數(shù)據(jù),點擊“壓縮”按鈕Command1后,在Text2中顯示經(jīng)過壓縮后的數(shù)據(jù)。程序運行界面如下圖所示。(1)這里采用的壓

5、縮技術(shù)屬于(選填有損壓縮/無損壓縮)。(2)實現(xiàn)上述功能的VB程序如下,請在劃線處填入合適的代碼Private Sub Command1_Click()Dim s1 As String,s2 As String,c As Integer,p As Integers1=Text1.Texts2= :c=1:Do While p 40r = 41c = Mid(s,r,1)If Not(c = aAnd c =AAnd c=aAnd c=AAnd c=Z)r=c=Mid(s,r,1)Loopp=rEnd IfList1.AddItem Mid(s,1,p)total=total+1s=LoopLi

6、st1.AddItem stotal=total+1Label1.Caption=共+Str(total)+行End Sub在程序、劃線處,填入適當?shù)恼Z句或表達式,把程序補充完整。5.小明編寫某VB程序,其功能如下:文本框Text1里輸入數(shù)學表達式(假設(shè)表達式的長度小于等于100),在列表框List1里輸出所有配對括號在表達式中的位置。例如在文本框Text1里入:“12 (3-(1+2) 3”,程序運行效果如圖所示。實現(xiàn)上述功能的VB代碼如下,在劃線的地方填入合適代碼,完善程序。Private Sub Command1_Click()Dim s As String,i As Integer,t

7、op As Integer,a(1 To 100) As Integers=Text1.Text:i=1:top=0Do While i=Len(s)If Mid(s,i,1)=( Thentop=top+1End IfIf Mid(s,i,1)=) ThenList1.AddItem Str(a(top)+ +Str(i)End Ifi=i+1LoopEnd Sub6.小明編寫一個VB程序其功能為:在英文句子(以“.”結(jié)束)中查找包含指定字符串的單詞,運行界面如圖所示。文本框Text1為英文句子,文本框Text2中輸入包含字符串,單擊“運行”按鈕Command1后,List1中顯示符合條件的

8、單詞。實現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正。Private Sub Command1_Click()Dim k As Integer,b As Integer,h As Integer,c As String,key as StringDim w(1 To 1000) As Strings=Text1.Text:n=Len(s):key=Text2.Textj=0:k=1:b=1:i=1:h=0Do While i=a And c=A And c=Z) ThenIf j0 Thenw(b)=Mid(s,k,j)k=k+1:j=0End Ifb=i+1Elsej=j+1End Ifi