小明學習過VB后決定制作一個“幸運的數字”小程序，程序設計如下：
       打開程序后隨機生成10個不重復的整數，整數范圍在50到100之間（含50和100），數據存放在數組a中并在列表框 list1中顯示。并按如下規(guī)則進行處理：
（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（　?。?br />生成10個不重復的范圍在[50，100]的隨機整數代碼略
End  Sub
Private Sub Cd1_Click（　?。?br />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）

。