小呂設(shè)計(jì)了某百貨公司的會(huì)員積分查詢系統(tǒng)，輸入會(huì)員卡號(hào)，可以查出該卡對(duì)應(yīng)的積分．所有的會(huì)員卡號(hào)和相應(yīng)的積分已分別保存在數(shù)組vip（按從小到大排序）和數(shù)字cre中，第i個(gè)會(huì)員的卡號(hào)保存在vip（i）中，對(duì)應(yīng)的卡內(nèi)積分保存在cre（i）中．
程序界面如下所示，在文本框Text1中輸入會(huì)員卡號(hào)，單擊“查詢”按鈕（Command1），相應(yīng)的卡內(nèi)積分將在標(biāo)簽Label3中顯示．
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼．
Dim  vip（1to 10000）as long,cre（1to 10000）as integer
Const n=10000‘設(shè)會(huì)員卡總數(shù)為10000
‘Form-Load事件過程中，在列表框List1中輸出所有會(huì)員卡的卡員和積分．
Private Sub Form_Load （　?。?br />代碼略
End Sub
Private Sub Command1_Click （　　）
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=“此會(huì)員卡的積分為”+④+“分”
Else
Label3．Caption=“找不到此卡號(hào)，請(qǐng)重新輸入！”
End if
End Sub
（1）此處應(yīng)用了

對(duì)分查找

對(duì)分查找

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

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）

．