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

程序代碼如下，請在橫線處填入合適的代碼．
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制作一個分鐘倒計時器，界面如圖所示．先在文本框text1中輸入分鐘數(shù)，然后在文本框text2中輸入秒鐘數(shù)，再點擊“開始倒計時”按鈕開始倒計時．Vb程序如下：
Private Sub Command1_Click （　?。?br />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“倒計時時間到“
End If
End If
Text1=min
Text2=sec
End Sub
（1）程序中①處應該填．
（2）計時器timer1的inteval屬性應該設(shè)置為．

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

實現(xiàn)上述功能的VB程序代碼如下，請在橫線處填上合適的代碼．
Private Sub Command1_Click（　?。?br />Dim s As String
Dim ch as String'定義存儲字符串中的字符ch
Dim total（1To 26）As Integer'定義存儲a～z字母的出現(xiàn)頻數(shù)數(shù)組
Dim word（1To 26）As Integer'定義存儲a～z字母的序號數(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
程序中①橫線處應填入．
程序中②橫線處應填入．