创建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（1To 26）As Integer'数组a存放26个字母出现的次数
Dim s As String,c As String'变量s存放输入的短文
Dim s1As String,s2As 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）=

①

①

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

②

②

Then
max=a（i）
End If
Next i
'找出出现次数最多和未出现过的字母
For i=1 To 26
If

③

③

Then
s1=s1+“”+Chr（Asc（“A”）+i-1）
ElseIf a（i）=0Then
s2=s2+“”+Chr（Asc（“A”）+i-1）
End if
Next i
Label 2．Caption=“出现次数最多的字母是：”&s1&“出现次数为：”&Str（max）
Label3．Caption=“未出现的字母是：”&s2
End Sub.