創(chuàng)建VB程序，統(tǒng)計英語短文中字母出現(xiàn)的次數(shù)，并輸出出現(xiàn)次數(shù)最多的字母和未出現(xiàn)的字母．字母不區(qū)分大小寫，均表示為大寫字母．程序運行界面如圖所示．
算法如下：
（1）獲取輸入的英語短文，存入變量s
（2）統(tǒng)計字母出現(xiàn)次數(shù)依次取出s中的每個字符如果是大寫字母，計算其在字母表中的位置n,并計數(shù)如果是小寫字母，計算其在字母表中的位置n,并計數(shù)（用數(shù)組a存放26個字母出現(xiàn)的次數(shù)，a（1）存儲“A”出現(xiàn)的次數(shù)，a（2）存儲“B”出現(xiàn)的次數(shù)，…，a（26）存儲“Z”出現(xiàn)的次數(shù)）
（3）找出最大出現(xiàn)次數(shù)
（4）找出出現(xiàn)次數(shù)最多和未出現(xiàn)過的字母并輸出VB程序如下，在其中①②③橫線處填指定相應代碼，完善程序．
Private Sub Command1_Click （　　）
Dim i As Integer,n As Integer,max As Integer
Dim a（1To 26）As Integer'數(shù)組a存放26個字母出現(xiàn)的次數(shù)
Dim s As String,c As String'變量s存放輸入的短文
Dim s1As String,s2As String'變量s1、s2分別存放出現(xiàn)次數(shù)最多和未出現(xiàn)的字母組成的字符串
s=Text1．Text
'統(tǒng)計字母出現(xiàn)次數(shù)
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
'找出最大出現(xiàn)次數(shù)
max=a（1）
For i=1 to 26
If

②

②

Then
max=a（i）
End If
Next i
'找出出現(xiàn)次數(shù)最多和未出現(xiàn)過的字母
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=“出現(xiàn)次數(shù)最多的字母是：”&s1&“出現(xiàn)次數(shù)為：”&Str（max）
Label3．Caption=“未出現(xiàn)的字母是：”&s2
End Sub.