用 VB 編寫的英文單詞字頻統(tǒng)計程序如第 17 題圖所示,在文本框 Text1 中 輸入文章,單擊“統(tǒng)計”按鈕 Command1,在列表框 List1 輸出單詞與頻次,在標簽 Label2 中輸出頻次最高的單詞,如頻次最高的單詞有多個,則輸出時用逗號分隔。算法如下:
(1)將文本框 Text1 中的文章保存到字符串變量 s 中。
(2)從左往右掃描字符串 s,用字符串 word 存儲文章中依次出現(xiàn)的單詞,將新出現(xiàn)的單 詞自動加入單詞隊列 dic(i)中,單詞出現(xiàn)的頻次記錄到對應(yīng)的 num(i)中。如下方法掃描:
①從左往右掃描,當掃描到第 i 個字符時,如果是字母,繼續(xù)掃描,否則,跳轉(zhuǎn)到②,直 至掃描結(jié)束;
②將 b 到 i-1 組成一個單詞 word,查詢單詞字典 dic 判斷是否存在,如果不存在,將新 單詞插入單詞字字典尾部 dic(k),并且記錄單詞頻次 num(k)為 1,如果 dic 字典中存在單詞 word,那么該單詞對應(yīng)頻次增加 1,再跳轉(zhuǎn)到①。
(3)在列表框 List1 中依次輸出單詞與頻次,在標簽 Label2 中輸出頻次最高的單詞。
(1)實現(xiàn)上述功能的 VB 程序如下,請在橫線處填入合適的代碼。
Private Sub Command1_Click ( )
Dim dic(1To 10000)As String‘存儲自建單詞字典
Dim num(1To 10000)As Integer'存儲單詞出現(xiàn)的頻次
Dim word As String'存儲每次掃描的單詞
Dim c As String,s As String
Dim i As Integer,j As Integer,di As Integer,k As Integer
Dim b As Integer,slen As Integer
Dim nummax As Integer'記錄最高單詞頻次
Dim result As String'存儲出現(xiàn)頻率最高的單詞串
s=Text1.Text slen=Len(s)
j=0'存儲每個單詞的長度
k=1'k-1 為當前單詞字典長度
b=1'存儲每個單詞的起始位置
nummax=0
For i=1To 10000’初始化單詞字典頻次
num(i)=0
Next i i=1
Do While i<=slen c=Mid(s,i,1)
If c>=“a“And c<=“z“Or c>=“A“And c<=“Z“Then j=j+1
Else
If j<>0Then
word=LCase( ①Mid(s,b,j)Mid(s,b,j))‘將單詞統(tǒng)一為小寫’
di=1
Do While word<>dic(di) And di<k di=di+1
Loop
If di=k Then‘單詞字典插入新單詞
dic(k)=word num(k)=1
k=k+1
Else
②num(di)=num(di)+1num(di)=num(di)+1‘單詞在單詞字典中已存在,對應(yīng)頻次加 1’End If
If num(di)>nummax Then nummax=num(di)
j=0
End If
b=i+1
End If
i=i+1
Loop result=““
For j=1To k-1
List1.AddItem dic(j)+““+Str(num(j)) If ③num(j)=nummaxnum(j)=nummaxThen
If result=““Then
result=result+dic(j) Else
result=result+“,“+dic(j)'如出現(xiàn)頻率最高的單詞有多個,則用逗號分隔
End If
End If
Next j
Label2.Caption=“出現(xiàn)頻率最高的單詞是:“+result
End Sub
(2)根據(jù)本題算法,如第 17 題圖所示,若在 Text1 中將文章最后一行“strength you will?!?br />改為“strength you will3”,單詞統(tǒng)計結(jié)果不會不會(選填:會/不會)產(chǎn)生變化。
【考點】編輯事件處理過程的代碼.
【答案】Mid(s,b,j);num(di)=num(di)+1;num(j)=nummax;不會
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:2引用:1難度:0.3
相似題
-
1.學校舉辦了“語文作文現(xiàn)場賽”,參賽同學成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學的姓名和成績,以“:”分隔)。陳老師利用Python程序?qū)ψ魑某煽冞M行處理,統(tǒng)計出各個分數(shù)等級的人數(shù),并輸出結(jié)果。程序運行界面如右圖所示。
實現(xiàn)上述功能的Python程序如下,請在劃線處填入合適的代碼。發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3 -
2.有如下Python程序段:
執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結(jié)果是( )發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4 -
3.試題描述的內(nèi)容:
一個單窗體VB程序的運行界面如圖所示。下列說法正確的是( ?。?br />(1)窗體內(nèi)有1個按鈕
(2)窗體內(nèi)有2個文本框
(3)窗體內(nèi)有3個標簽
(4)該窗體的標題(Caption)屬性值是“加法計算器”發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
把好題分享給你的好友吧~~