普源為晚上的班級聯歡會設計了一個抽獎程序，將所有同學的編號和對應的姓名分別保存在數組a（全班共50個同學，編號為1到50）和數組b中，程序會隨機產生一個1到50的正整數（同時包括1和50），作為中獎編號．
程序界面如圖所示，左邊列表框List1中顯示同學的編號和姓名，單擊“抽獎“按鈕（Command1），在標簽Label3中顯示抽中的編號，同時在標簽Label4中顯示“恭喜***同學“，其中具體同學的姓名從數組b中獲取．
解決此問題的程序段如下：
Dim a（1To 50）As Integer
Dim b（1To 50）As String
Function search（m As Integer） As Integer
search=0
For i=1To 50
If m=a（i） Then
search=a（i）
End If
Next i
End Function
Private Sub Command1_Click （　　）
Dim c As Integer,t as integer
Randomize
①

c=int（rnd*50）+1

c=int（rnd*50）+1

Label3．Caption=Str（c）
t=search（c）
If t＜＞0Then
Label4．Caption=“恭喜“+②

b（t）

b（t）

+“同學“
End If
End Sub
Private Sub Form_Load （　　）
'此過程用于對數組a和數組b進行初始賦值，代碼略
End Sub
（1）函數search中所用的算法是

順序查找

順序查找

． （選填：順序查找 或 對分查找）在程序①和②橫線處，填入適當的語句或表達式，把程序補充完整：
（2）程序中①橫線處應填入

c=int（rnd*50）+1

c=int（rnd*50）+1

．
（3）程序中②橫線處應填入

b（t）

b（t）

．