编写“字母出现频率测试”程序，实现如下功能：在文本框Text1中输入英文句子，单击“统计”按钮，在列表框List1中显示小写字母出现的次数，同时显示字母出现频率

题干

编写“字母出现频率测试”程序，实现如下功能：在文本框 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

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

同类题1

编写VB程序，实现如下功能：在文本框Text1中输入一串字符，单击“统计”按钮Command1，统计每个英文字母（不区分大小写）出现的次数，找出出现次数最多的字母，在标签Label1中显示结果。运行效果如图所示。

实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, max As Integer
Dim a(1 To 26) As Integer   '数组a存放26个大小写字母出现的次数Dim st As String, ch As String
st = Text1.Text
For i = 1 To Len(st)
    ①_____
If ch >= "A" And ch <= "Z" Then n = Asc(ch) - Asc("A") + 1 a(n) = a(n) + 1
ElseIf ch >= "a" And ch <= "z" Then n =    ②_____
a(n) = a(n) + 1
End If
Next i
max = a(1)
For i = 1 To 26
If      ③_____Then max = a(i)
End If Next i st = ""
For i = 1 To 26
If max = a(i) Then
st = st + " " + Chr(Asc("A") + i - 1) End If
Next i
Label1.Caption = "出现次数最多的字母是：" & st & " " & "出现次数为：" & Str(max)
End Sub
（2）在文本框 Text1 中输入字符串“ABCEEEEffee333333”，运行程序时，标签 Label1 中输出结果为：出现次数最多的字母是：_____出现次数为：_____。

题干

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

同类题1

同类题2

同类题3

同类题4

同类题5