学进去

编写VB程序，实现如下功能：在文本框Text1中输整数x，单击“查找删除”按钮Command1，在数组a（从小到大排列并显示在标签Label1中）中查找该数。若找到，则从数组a中删除该数（该数后的数组元素都往前移一位），并在标签Label2中显示删除后的结果（运行效果如图所示）；否则在标签Label2中显示“该数没有找到”。

请在划线处填入合适代码。
Dim a(1 To 10) As Integer
Private Sub Form_Load()
'产生10个升序的随机数并显示在Label1,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, k As Integer
Dim x As Integer, f As Boolean, s As String
x=Val(Text1.Text)
i=1:j=10:f=False
Do While ①____
m=(i+j)\2
If a(m)=x Then
f=True
ElseIf ②___ Then
i=m+1
Else
j=m-1
End If
Loop
If f=True Then
For k=m To 9
③____
Next k

For k=1 To 9      '逐个显示删除后的数组元素

s=s+Str(a(k))+ ""
Next k
Else
s="该数没有找到"
End If
Label2.Caption=s
End Sub