1．【加試題】小白同學(xué)為了方便和同學(xué)們的聯(lián)系，在QQ注冊(cè)網(wǎng)（http：//zc.qq.com）注冊(cè)了一個(gè)QQ賬號(hào)：2796290808．由于長(zhǎng)時(shí)間未使用該QQ，小白忘記了登錄密碼，但他清楚地記得：
（1）密碼由8個(gè)字符組成；
（2）密碼最前面2位是“xb”；
（3）密碼后6位是純數(shù)字：①前面兩位數(shù)字是68；②最后兩位數(shù)字相同；③能被19和39整除．
編寫VB程序，實(shí)現(xiàn)程序功能：?jiǎn)螕簟安檎摇卑粹oCommand1后，在文本框Text1中顯示小白的QQ密碼．程序設(shè)計(jì)界面如圖所示：

程序代碼如下，請(qǐng)?jiān)跈M線處填入合適的代碼．
Function f（s As Long）As Boolean'自定義函數(shù)，用于判斷密碼后6位是否滿足條件
Dim a As Integer,b As Integer
a=s Mod 10
b=（s Mod 100）\10
If Then
f=True
Else
f=False
End If
End Function
Private Sub Command1_Click（　?。?br />Dim i As Integer,n As Long
i=0
Do While i＜10000

If f（n）Then
Text1．Text=“xb”+LTrim（Str（n））'LTrim函數(shù)的功能：刪除字符串的起始空格
End If
i=i+1
Loop
End Sub.

2．用VB設(shè)計(jì)查詢并統(tǒng)計(jì)某公司的銷售數(shù)據(jù)．實(shí)現(xiàn)如下功能：
①將所有員工的姓名和銷售量存儲(chǔ)到數(shù)組xm和xse中；
②對(duì)銷售量數(shù)組進(jìn)行求和，并輸出該地區(qū)平均銷售量（保留整數(shù)）；
③根據(jù)輸入“銷售排名前幾位”篩選出排名前幾位銷售人員的數(shù)據(jù)．
程序運(yùn)行界面如圖所示．
（1）下列程序?qū)T工的銷售額進(jìn)行排序的主要算法屬于 （選填：解析算法/枚舉算法/冒泡排序算法/選擇排序算法）
（2）實(shí)現(xiàn)上述功能的VB程序如下．請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim xse（1To 3000）As Long'存儲(chǔ)銷售員工的銷售量，最大處理個(gè)數(shù)為3000
Dim xm（1To 3000）As String'存儲(chǔ)銷售員工的姓名
Dim mc（1To 3000）As Integer'存儲(chǔ)銷售員工的名次
Dim num As Integer'當(dāng)前員工總數(shù)
Private Sub Form_Load（　?。?將銷售量、姓名數(shù)據(jù)存入xse和xm數(shù)組
'計(jì)算員工總數(shù)num
'代碼略
End Sub
Private Sub Command1_Click（　　）Dim sum As Long
Dim i As Integer,flag As Integer
pm=Val（Text2．Text）
dq=Text1．Text
sum=0
For i=1To num
sum=sum+xse（i）
Next i
For i=1To pm'對(duì)員工銷售量進(jìn)行排序
For j=① To  i+1Step-1
If xse（j-1）＜xse（j） Then
t=xse（j-1）：xse（j-1）=xse（j）：xse（j）=t
st=xm（j-1）：xm（j-1）=xm（j）：xm（j）=st
End If
Next j
Next i
mc（1）=1
For i=2To pm
If ② Then
mc（i）=mc（i-1）
Else
mc（i）=i
End If
Next i
List1．Clear
List1．AddItem“排名“+“姓名“+“銷售量“
For i=1To pm
List1．AddItem Str（mc（i））+““+xm（i）+““+Str（xse（i））
Next i
List1．AddItem dq+“平均銷售額約為：“+③
End Sub.

3．【加試題】統(tǒng)計(jì)字母出現(xiàn)的頻數(shù)．隨機(jī)輸入一段全部由小寫字母組成的字符串（默認(rèn)輸入的內(nèi)容都符合要求），長(zhǎng)度不大于1000，分別統(tǒng)計(jì)a～z出現(xiàn)的次數(shù)，未出現(xiàn)的字母次數(shù)默認(rèn)為0，對(duì)出現(xiàn)次數(shù)不為0的字母按出現(xiàn)次數(shù)降序排列．下面程序模擬該功能，程序界面如圖所示．在文本框Text1中輸入字符串，單擊“統(tǒng)計(jì)”按鈕Command1，在列表框List1顯示最終結(jié)果．

實(shí)現(xiàn)上述功能的VB程序代碼如下，請(qǐng)?jiān)跈M線處填上合適的代碼．
Private Sub Command1_Click（　　）
Dim s As String
Dim ch as String'定義存儲(chǔ)字符串中的字符ch
Dim total（1To 26）As Integer'定義存儲(chǔ)a～z字母的出現(xiàn)頻數(shù)數(shù)組
Dim word（1To 26）As Integer'定義存儲(chǔ)a～z字母的序號(hào)數(shù)組
List1．Clear
s=Text1．Text
n=Len（s）
For i=1To n
ch=①
total（Asc（ch）-96）=total（Asc（ch）-96）+1
Next i
For i=1To 26
word（i）=i
Next i
For i=1To 25
k=i
For  j=i+1To 26
If total（k）＜total（j） Then k=j
Next j
If i＜＞k Then
t=total（i）：total（i）=total（k）：total（k）=t
t=word（i）：word（i）=word（k）：word（k）=t
End if
Next i
For i=1To 26
If②Then
List1．AddItem Chr（word（i）+96）&“”&total（i）
End If
Next i
End Sub
程序中①橫線處應(yīng)填入．
程序中②橫線處應(yīng)填入．