其他典型算法之文本处理-专项训练浙江2022届选考专用（教师版）.docx

《其他典型算法之文本处理-专项训练浙江2022届选考专用（教师版）.docx》由会员分享，可在线阅读，更多相关《其他典型算法之文本处理-专项训练浙江2022届选考专用（教师版）.docx（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、其他典型算法之文本处理【例1】 编写VB程序,实现如下功能:在文本框Text1中输入包含数字、字母的字符串,单击“统计”按钮Commandl,统计该字符串中数字字符的个数,并在标签Label1中输出结果。为实现上述功能,请在划线处填入合适代码或选项。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=0 And c=9 Then”判断,变量c存的是一个字符,因此处需从s中提取1个字符。【例2】.要求从原文本(均为ASCII字符)中删除指定的单词(完整的单词),并将处理后的文本重新输出。程序界面如图所示,在文本框Text1中输入原文本,在文本框Text2中输入需要删除的单词,单击“删除”按钮(Command1)后,在文本框Text3中输出处理后的结果。实现上述功能的VB程序如下,但加框处有错,请更正。Function delst

3、r(s1 As String, 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.Add

4、Item 找不到符合条件的单词.End IfEnd Sub(2)若文本框Text2中输入“M”,单击“获取单词”按钮后,列表框List1中显示的单词个数是。答案 (1)tmp=tmp+cflag=False(2)1解析 该算法查找的方法是:每次循环,从文本中取出一个字符c,若是字母,存入变量tmp,如果字符c等于要查找的字母,则flag=True,表示当前单词含有要查找的字母,同时cnt的值加1,变量cnt存放含有要查找的字母的单词的数量。如果字符c不是字母,说明当前单词结束,此时判断flag的值,如果flag=True,则输出当前单词。接下来要取出下一个单词,需把变量tmp设为空值,flag

5、设为False。2.RLE(Run-Length Encoding行程长度编码)压缩算法是Windows系统中使用的一种图像文件压缩方法,用两个数据表示,第一个记录指定像素重复的次数;第二个记录具体像素的值。例如,有一表示颜色像素值的字符串RRRRGGBBB,用RLE压缩方法压缩后可用4R2G3B表示。小芳设计了一个VB程序实现RLE算法功能。在Text1中输入原始数据,点击“压缩”按钮Command1后,在Text2中显示经过压缩后的数据。程序运行界面如下图所示。(1)这里采用的压缩技术属于(选填有损压缩/无损压缩)。(2)实现上述功能的VB程序如下,请在划线处填入合适的代码Private

6、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=LoopList1.AddItem stotal=total+1Label1.Caption=共+Str(total)+行E

7、nd Sub在程序、划线处,填入适当的语句或表达式,把程序补充完整。答案: Text1.Textr-1Mid(s,p+1,Len(s)-p)或Mid(s,p+1)或Right(s,Len(s)-p)解析: 根据题目中自然语言的描述,本处是将文本框text1中输入的字符串保存到变量s中。变量r指示字符位置,从第41个字符开始向左找到第1个非英文字母,r每次循环递减1。将s中未分行部分重新赋值给变量s。5.小明编写某VB程序,其功能如下:文本框Text1里输入数学表达式(假设表达式的长度小于等于100),在列表框List1里输出所有配对括号在表达式中的位置。例如在文本框Text1里入:“12

8、049021; (3-(1+2)􀆽 3”,程序运行效果如图所示。实现上述功能的VB代码如下,在划线的地方填入合适代码,完善程序。Private Sub Command1_Click()Dim s As String,i As Integer,top 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 If

9、i=i+1LoopEnd Sub答案 a(top)=itop=top-1解析 程序中,数组a存放左括号出现的位置,变量top存放数组a中未匹配的左括号数量。如果表达式第i个字符是(,则top=top+1,并把位置i存入a(top)中。如果表达式第i个字符是),则与位置是a(top)的左括号匹配,此时top的值减1。6.小明编写一个VB程序其功能为:在英文句子(以“.”结束)中查找包含指定字符串的单词,运行界面如图所示。文本框Text1为英文句子,文本框Text2中输入包含字符串,单击“运行”按钮Command1后,List1中显示符合条件的单词。实现上述功能的VB程序如下,但加框处代码有错,请

10、改正。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=i+1LoopFor i=1 To k-1h=0

11、For j=1 To Len(w(i)-len(key)+1If key=w (i) Then h=h+1Next jIf h0 Then List1.AddItem w(i)Next iEnd Sub答案 w(k)=Mid(s,b,j)Mid(w(i),j,Len(key)解析 程序中,数组w保存每个单词,变量b记录单词的开始位置,j记录单词中字母的个数,k记录已保存的单词数。程序中的do while循环部分功能是把原文s中的单词取出来,存储到w数组中。具体实现方法是每次循环取一字符c,若是字母,说明当前单词尚未结束,字母个数j加1,若不是字母,表明当前单词结束,则把单词存入w(b)中,所以处填w(k)=Mid(s,b,j),同时k加1,j重置为0,b赋值为i+1,即为下一个单词的开始位置。处所在的二重循环,其功能是从每个单词里去找是否包含Text2中的字符串。检索方法是从单词w(i)中取len(key)个字符,第1次从第1位开始取,如果和key相等,则h加1;第2次从第2位开始取len(key)个字符,如果和key相等,则h加1,如此循环。那么当循环结束后,如果h0,表明w(i)中含有查找单词,显示出来。