题库 高中信息

题干

编写“字母出现频率测试”程序,实现如下功能:在文本框 Text1 中输入英文句子,单击“统计”按钮,在列表框 List1 中显示小写字母出现的次数,同时显示字母出现频率最高的次数。程序运行界面如下图所示。

(1)在设计程序界面时,使应使用题16图所示“控件工具箱”中的______(填写相应编号)添加“统计”按钮。
(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)
______(1)   
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 _____(2) Then  m = count(k)
Next k
Label1.Caption = "字母最高出现" + Str(m) + "次"
End Sub
上一题 下一题 0.99难度 填空题 更新时间:2019-03-02 03:12:11

答案(点此获取答案解析)