編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入一個(gè)整數(shù)，單擊“查找刪除”按鈕Command1，采用對(duì)分查找法在數(shù)組A中刪除該數(shù)（該數(shù)后面的數(shù)組元素都前移一位），并在標(biāo)簽Label2中顯示刪除后的結(jié)果（運(yùn)行效果如圖所示）；否則，在標(biāo)簽Label2中顯示“該數(shù)沒(méi)有找到”．

實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Dim A（1To 10）As Integer′用于保存10個(gè)按從小到大順序排列的整數(shù)
′Form_-Load事件過(guò)程產(chǎn)生10個(gè)整數(shù)，按升序保存在數(shù)組A中，并在標(biāo)簽Label1中顯示
Private Sub Form_-Load （　　）
′代碼略
End Sub
Private Sub Command1_-Click （　?。?br />Dim I As Integer,j As Integer,m As Integer,k As Integer
Dim x As Integer,f As Boolean′變量f用于標(biāo)記是否在數(shù)組中找到x
x=Val（Text1．Text）
i=1：j=10
f=False
Do While （i＜=j）And （f=False）
m=Int（（i+j）/2）
If A（m）=x Then f=True
If Then i=m+1Else j=m-1′（1）
Loop
If f=True Then
For k=m To 9
′（2）
Next k
Label2．Caption=””
For k=1to 9
Label2．Caption=Label2．Caption+Str（A（k））+””
Next k
Else
Label2．Caption=”該數(shù)沒(méi)有找到”
End If
End Sub.