小明学习过VB后决定制作一个“幸运的数字”小程序，程序设计如下：
       打开程序后随机生成10个不重复的整数，整数范围在50到100之间（含50和100），数据存放在数组a中并在列表框 list1中显示。并按如下规则进行处理：
（1）单击“去除”按钮一次会生成一个随机整数n,并去除一个数组a元素，随机整数n范围在1到150之间（含1和150），被去除的数组元素是当次所有数组元素中与n形成的差绝对值最小的一个数组元素。如有2个数组元素与n的差相等，则去除值较小的数组元素。
（2）每次生成的随机数n显示在列表框list2中，去除的数组a元素显示在列表框list3中。直至最后剩下最后一个数组元素即为“幸运数字“。
（3）单击“重置”按钮，重新生成10个不重复的随机整数，存放在列表框list1中，并清空列表框list2、list3。
程序界面及代码如下：
Dim a（1 To 10）As Integer
Dim b（1 To 10）As Integer
Dim k As Integer
Private Sub Command1_Click（　　）
重置按钮，重新生成10个不重复的范围在[50，100]的随机整数，代码略
End sub
Private Sub Form_Load（　　）
生成10个不重复的范围在[50，100]的随机整数代码略
End  Sub
Private Sub Cd1_Click（　　）
Dim m,n,t,i,j,w As Integer
If k=9 Then
Label4．Caption=Str（a（1））
Else
Randomize
n=lnt（Rnd*150）+1
For i=1 To 9
For j=1 To         ①
If a（j）＞a（j+1）Then t=a（j）：a（j）=a（j+1）：（ja+1）=t
Next j
Next i
If n＞a（10）Then
t=a（10-k）：w=10-k
Elself n＜a（1）Then
t=a（1）：w=1
Else
i=1：j=10-k
Do while i＜=j
m=lnt（（i+j）/2）
If n=a（m） Then
Exit Do
Elself n＜a（m）Then
j=m-1
Else
i=m+1
End if
Loop
If    ②Then
t=a（m）：w=m
Elself Abs（a（i）-n）＞Abs（a（j）-n）Then
t=a（j）：w=j
Else
t=a（i）：w=i
End If
End If
List2．Addltem Str（n）
list3．Addltem Str（t）
k=k+1
For i=w To 10-k
    ③
Next i
End If
End Sub
请回答下列问题
（1）“去除”按钮对象名是

Cd1

Cd1

（2）程序功能想要实现，在代码中横线处填入合适代码
①处代码

10-i

10-i

；②处代码

i＜=j

i＜=j

；③处代码

a（i）=a（i+1）

a（i）=a（i+1）

。