小明學(xué)習(xí)過(guò)VB后決定制作一個(gè)“幸運(yùn)的數(shù)字”小程序，程序設(shè)計(jì)如下：
       打開(kāi)程序后隨機(jī)生成10個(gè)不重復(fù)的整數(shù)，整數(shù)范圍在50到100之間（含50和100），數(shù)據(jù)存放在數(shù)組a中并在列表框 list1中顯示。并按如下規(guī)則進(jìn)行處理：
（1）單擊“去除”按鈕一次會(huì)生成一個(gè)隨機(jī)整數(shù)n,并去除一個(gè)數(shù)組a元素，隨機(jī)整數(shù)n范圍在1到150之間（含1和150），被去除的數(shù)組元素是當(dāng)次所有數(shù)組元素中與n形成的差絕對(duì)值最小的一個(gè)數(shù)組元素。如有2個(gè)數(shù)組元素與n的差相等，則去除值較小的數(shù)組元素。
（2）每次生成的隨機(jī)數(shù)n顯示在列表框list2中，去除的數(shù)組a元素顯示在列表框list3中。直至最后剩下最后一個(gè)數(shù)組元素即為“幸運(yùn)數(shù)字“。
（3）單擊“重置”按鈕，重新生成10個(gè)不重復(fù)的隨機(jī)整數(shù)，存放在列表框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個(gè)不重復(fù)的范圍在[50，100]的隨機(jī)整數(shù)，代碼略
End sub
Private Sub Form_Load（　　）
生成10個(gè)不重復(fù)的范圍在[50，100]的隨機(jī)整數(shù)代碼略
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
請(qǐng)回答下列問(wèn)題
（1）“去除”按鈕對(duì)象名是

Cd1

Cd1

（2）程序功能想要實(shí)現(xiàn)，在代碼中橫線處填入合適代碼
①處代碼

10-i

10-i

；②處代碼

i＜=j

i＜=j

；③處代碼

a（i）=a（i+1）

a（i）=a（i+1）

。