編寫VB程序，實現如下功能：在數組a中生成不重復的隨機整數，按升序排列并顯示在標簽Label1中。在文本框Text1中輸入一個整數，單擊“查找刪除”按鈕Command1，采用對分查找法在數組a中查找該數。若找到，則從數組a中刪除該數（該數后面的數組元素都前移），并在標簽Label2中顯示刪除后的結果；否則，在標簽Label2中顯示“該數沒有找到”。程序運行界面如下圖所示。

請在橫線處填入合適的代碼。
Const n=10
Dim a（1To n） As Integer
'Form_Load事件過程產生不重復的隨機整數，按升序排序并在標簽Label1中顯示
Private Sub Form_Load（　　）
Dim i As Integer,j As Integer,temp As Integer
Randomize
For i=1To n
a（i）=Int（Rnd*100）+1
For j=1To i-1
If a（i）=a（j） Then
①

i=i+1

i=i+1

Exit For‘退出For循環
End If
Next j
Next  i
For i=2To n
If a（i）＜a（i-1）Then
temp=a（i）
For j=i-1To 1Step-1
If temp＞a（j） Then  Exit For
a（j+1）=a（j）
Next j
②

a（j+1）=temp

a（j+1）=temp

End If
Next i
For i=1To n
Label1．Caption=Label1．Caption+Str（a（i））+““
Next i
End Sub
Private Sub Command1_Click（　　）
Dim i As Integer,j As Integer,m As Integer,k As Integer
Dim key As Integer,flag As Boolean
key=Val（Text1．Text）
i=1：j=n
flag=False
Do While （i＜=j） And （not flag）
m=Int（（i+j）/2）
If a（m）=key Then flag=True
If a（m）＜key Then i=m+1Else j=m-1
Loop
If flag=True Then
For k=③

m to n-1

m to n-1

a（k）=a（k+1）
Next k
Label2．Caption=““
For k=1To n-1
Label2．Caption=Label2．Caption+Str（a（k））+““
Next k
Else
Label2．Caption=“該數沒有找到“
End If
End Sub