编写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