题目

编写“字母出现频率测试”程序，实现如下功能：在文本框Text1中输入英文句子，单击“统计”按钮，在列表框List1中显示小写字母出现的次数，同时显示字母出现频率最高的次数。程序运行界面如图1所示。 图1 （1） 在设计程序界面时，使应使用图2所示“控件工具箱”中的（填写相应编号）添加“统计”按钮。 图2 （2） 实现“统计”功能的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 + "出现" + Str(count(n)) + "次"    End If Next k m = count(0) For k = 1 To 25    If    ②    Then  m = count(k) Next k Label1.Caption = "字母最高出现" + Str(m) + "次" End Sub ① ②  （3） 分析如上代码，“统计”按钮的对象名称为（单选，填字母：A . Command1 / B . CmdTJ / C . CmdTJ_Click / D .统计） （4） 运行该程序，在文本框中输入It's never too late to mend.，单击“统计”按钮后，对语句m = count(k)执行次数的描述，最合理的是 （单选，填字母：A .执行次数介于1-10； B .执行次数介于10-20； C .执行次数介于20-25） 答案： 【1】3 【1】ch2=mid（ch，i，1）【2】count（k）>m 【1】B 【1】A

查看本题答案和解析