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（　　）
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制作一個(gè)分鐘倒計(jì)時(shí)器，界面如圖所示．先在文本框text1中輸入分鐘數(shù)，然后在文本框text2中輸入秒鐘數(shù)，再點(diǎn)擊“開始倒計(jì)時(shí)”按鈕開始倒計(jì)時(shí)．Vb程序如下：
Private Sub Command1_Click （　　）
Timer1．Enabled=
End Sub
Private Sub Timer1_Timer （　?。?br />sec=Val（Text2．Text）
min=Val（Text1．Text）
If sec＞0Then
sec=sec-1
Else  
 sec=59
If min＞0Then
min=min-1
Else
Text1=0
Text2=0
MsgBox“倒計(jì)時(shí)時(shí)間到“
End If
End If
Text1=min
Text2=sec
End Sub
（1）程序中①處應(yīng)該填．
（2）計(jì)時(shí)器timer1的inteval屬性應(yīng)該設(shè)置為．

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)填入．