题库 高中信息
题干
（加试题）创建VB程序，统计英语短文中字母出现的次数，并输出出现次数最多的字母和未出现的字母。要求字母不区分大小写，均表示为大写字母。程序运程界面如图所示。
算法如下：
（1）获取输入的英语短文，存入变量s
（2）统计字母出现次数
依次取出s中的每个字符
如果是大写字母，计算其在字母表中的位置n，并计数
如果是小写字母，计算其在字母表中的位置n，并计数
（用数组a存放26个字母出现的次数，a(1)存放“A”出现的次数，a(2)存储“B”出现的次数，……,a(26)存储“Z”出现的次数。）
（3）找出最大出现次数
（4）找出出现次数最多和未出现过的字母并输出
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 s As String, c As String '变量s存放输入的短文
Dim s1 As String, s2 As String '变量s1、s2分别存放出现次数最高和未出现的字母组成的字符串
s = Text1.Text
'统计字母出现次数
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
n = Asc(c) - Asc("A") + 1
a(n) =（1）____________
ElseIf c >= "a" And c <= "z" Then
n = Asc(c) - 32 - Asc("A") + 1
a(n) = a(n) + 1
End If
Next i
'找出最大出现次数
max = a(1)
For i = 1 To 26
If（2）____________ Then
max = a(i)
End If
Next i
'找出出现次数最多和未出现过的字母
For i = 1 To 26
If （3）__________ Then
s1 = s1 + " " + Chr(Asc("A") + i - 1)
ElseIf a(i) = 0 Then
s2 = s2 + " " + Chr(Asc("A") + i - 1)
End If
Next i
Label2.Caption = "出现次数最多的字母是：" & s1 & " 出现次数为：" & Str(max)
Label3.Caption = "未出现的字母是：" & s2
End Sub
答案(点此获取答案解析）
