14.編寫“字母出現(xiàn)頻率測試”程序,實現(xiàn)如下功能:在文本框Text1中輸入英文句子,單擊“統(tǒng)計”按鈕,在列表框List1中顯示小寫字母出現(xiàn)的次數(shù),同時顯示字母出現(xiàn)頻率最高的次數(shù).程序運行界面如圖1所示.
(1)在設(shè)計程序界面時,使應使用題圖2所示“控件工具箱”中的
(填寫相應編號)添加“統(tǒng)計”按鈕.
(2)實現(xiàn)“統(tǒng)計”功能的VB程序如下,請在橫線處填入合適的代碼.
Private Sub CmdTJ_Click( )
Dim count(25)As Integer
Dim ch,ch2 As String
Dim m As Integer
ch=Text1.Text
For k=1 To Len(ch)
n=Asc (ch2)-Asc (“a“)
If n>=0 And n<=25 Then
count(n)=count(n)+1
List1.AddItem“字母“+ch2+“出現(xiàn)“+Str(count(n))+“次“
End If
Next k
m=count(0)
For k=1 To 25
If
Then m=count(k)
Next k
Label1.Caption=“字母最高出現(xiàn)“+Str(n)+“次“
End Sub
(3)分析如上代碼,“統(tǒng)計”按鈕的對象名稱為
(單選,填字母:A.Command1/B.CmdTJ/C.CmdTJ_Click/D.統(tǒng)計)
(4)運行該程序,在文本框中輸入It's never too late to mend,單擊“統(tǒng)計”按鈕后,對語句m=count(k)執(zhí)行次數(shù)的描述,最合理的是
(單選,填字母:A.執(zhí)行次數(shù)介于1-10 B.執(zhí)行次數(shù)介于10-20 C.執(zhí)行次數(shù)介于20-25)