小呂設計了某百貨公司的會員積分查詢系統(tǒng)，輸入會員卡號，可以查出該卡對應的積分．所有的會員卡號和相應的積分已分別保存在數(shù)組vip（按從小到大排序）和數(shù)字cre中，第i個會員的卡號保存在vip（i）中，對應的卡內積分保存在cre（i）中．
程序界面如下所示，在文本框Text1中輸入會員卡號，單擊“查詢”按鈕（Command1），相應的卡內積分將在標簽Label3中顯示．
實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼．
Dim  vip（1to 10000）as long,cre（1to 10000）as integer
Const n=10000‘設會員卡總數(shù)為10000
‘Form-Load事件過程中，在列表框List1中輸出所有會員卡的卡員和積分．
Private Sub Form_Load （　?。?br />代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim x as long,I as integer,j as integer,m as integer
Dim find as Boolean
x=①
i=1
j=n
find=False
Do While i＜=j and not find
②
If x=vip（m） then
Find=true
Elseif x＜vip（m） then
J=m-1
Else
③
End if
Loop
If find then
Label3．Caption=“此會員卡的積分為”+④+“分”
Else
Label3．Caption=“找不到此卡號，請重新輸入！”
End if
End Sub
（1）此處應用了

對分查找

對分查找

算法（填：順序查找/對分查找）．
（2）為實現(xiàn)上述功能，程序中橫線處的代碼應為：
①

x=Val（Text1．Text）

x=Val（Text1．Text）

；②

m=（i+j）\2

m=（i+j）\2

；③

i=m+1

i=m+1

；④

cre（m）

cre（m）

．