【加試題】小方同學(xué)使用VB編程研究素?cái)?shù)問(wèn)題，程序運(yùn)行界面如圖所示．他發(fā)現(xiàn)1～100之內(nèi)的素?cái)?shù)一共有25個(gè)，并且將這些素?cái)?shù)全部保存到數(shù)組a中，在列表框List1中顯示所有素?cái)?shù)（按大小從低到高排列）．在文本框Text1中輸入需要查找的數(shù)據(jù)，單擊“查找”按鈕Command2，在標(biāo)簽框Label3中顯示查找結(jié)果．

程序代碼如下：
Dim a（1To 25）As Integer'數(shù)組a用于存儲(chǔ)1～100之內(nèi)的素?cái)?shù)
Function search（k As Integer）As Integer
i=1：j=25
Do While i＜=j
m=

①

①

If a（m）=k Then
search=m：Exit Function
ElseIf k＜a（m）Then
j=m-1
Else
i=m+1
End If
Loop
search=0
End Function
Private Sub Command1_Click（　?。?生成素?cái)?shù)事件過(guò)程
Dim i As Integer,j As Integer,k As Integer
List1．Clear
k=0
For i=2To 100
For j=2To i-1
If i Mod j=0Then
Exit For
End If
Next j
Next j
If

②

②

Then
k=k+1
a（k）=i
List1．AddItem“a（”& k &“）=”& a（k）
End If
Next i
End Sub
Private Sub Command2_Click（　　）'查找數(shù)據(jù)事件過(guò)程
Dim t As Integer,r As Integer
t=Val（Text1．Text）
r=

③

③

If r=0Then
Label3．Caption=“1～100中的素?cái)?shù)無(wú)此數(shù)據(jù)！”
Else
Label3．Caption=“素?cái)?shù)序列和第”&Str（r）&“個(gè)數(shù)！”
End If
End If
End Sub
（1）自定義函數(shù)search采用的算法是

對(duì)分查找

對(duì)分查找

．（填：順序查找/對(duì)分查找）
（2）程序中①橫線處應(yīng)填入

int（（i+j）/2）或（i+j）\2

int（（i+j）/2）或（i+j）\2

．
（3）程序中②橫線處應(yīng)填入

i=j

i=j

．
（4）程序中③橫線處應(yīng)填入

search（t）

search（t）

．