小王編寫一個 VB 程序模擬數據篩選，功能如下：程序運行時從數據庫中讀取 成績數據，按升序排序后在列表框 List1 中顯示，在文本框 Text1 中輸入成績 1，在文本框Text2 中輸入成績 2，單擊“篩選”按鈕 Command1，篩選出大于等于成績 1 且小于等于成績2 的記錄，并顯示在列表框 List2 中，程序運行界面如圖所示。
（1）運行上述程序，若在文本框 Text1 中輸入 75，Text2 中輸入 85，單擊“篩選”按鈕，則 篩選到的記錄有 

8

8

條（填數字）。
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適代碼。
Const n=20
Dim score（1To n） As Single
Function adj（s As String,n As Integer）
‘此函數功能：在字符串 s 前添加若干個 空格，使其長度變為 n.代碼略
End Function
Function search_left（key As Integer）
‘此函數功能：返回大于等于 key 的數 組元素的起始位置。代碼略。
End Function
Function search_right（key As Integer）
Dim i As Integer,j As Integer,m As Integer i=1：j=n
Do While i＜=j

m=（i+j）\2

m=（i+j）\2

If key＞=score（m） Then i=m+1Else j=m-1
Loop

search_right=j

search_right=j

End Function
Private Sub Form_Load （　　）
‘從數據庫中讀取成績存數組 score,記錄數存 n,并對此數組 score 升序排序，代碼略
End Sub
Private Sub Command1_Click （　　）
Dim num1As Integer,num2As Integer,first As Integer,last As Integer
List2．Clear
num1=Val（Text1．Text）：num2=Val（Text2．Text）
first=search_left（num1）：last=search_right（num2）

total=last-first+1

total=last-first+1

If total＜=0Then
List2．AddItem“無篩選到的記錄！“Else
List2．AddItem“篩選到“+Str（total）+“條記錄！“List2．AddItem“依次是：“
For i=first To last
List2．AddItem adj（Str（i），3）+adj（Str（score（i）），6）Next i
End If
End Sub