小吕设计了某百货公司的会员积分查询系统，输入会员卡号，可以查出该卡对应的积分．所有的会员卡号和相应的积分已分别保存在数组vip（按从小到大排序）和数字cre中，第i个会员的卡号保存在vip（i）中，对应的卡内积分保存在cre（i）中．
程序界面如下所示，在文本框Text1中输入会员卡号，单击“查询”按钮（Command1），相应的卡内积分将在标签Label3中显示．
实现上述功能的VB程序如下，请在横线处填入合适代码．
Dim  vip（1to 10000）as long,cre（1to 10000）as integer
Const n=10000‘设会员卡总数为10000
‘Form-Load事件过程中，在列表框List1中输出所有会员卡的卡员和积分．
Private Sub Form_Load （　　）
代码略
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=“此会员卡的积分为”+④+“分”
Else
Label3．Caption=“找不到此卡号，请重新输入！”
End if
End Sub
（1）此处应用了

对分查找

对分查找

算法（填：顺序查找/对分查找）．
（2）为实现上述功能，程序中横线处的代码应为：
①

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）

．