学进去

编写VB程序，实现在一个升序排列的数组中查找绝对值最小的元素。已知数组元素由正整数、负整数和0构成。例如：数组元素值为[-9，-5，-3，-1，2，5，7，17]，该数组中绝对值最小的元素为-1，程序运行时，产生n个元素，在列表框List1中显示，单击按钮Commandl，在标签Labell中输出绝对值最小的元素。运行结果如图所示。

实现上述功能的VB代码如下：
Const n=15
Dim a(1 To n)As Integer
Private Sub Form_Load()
产生n个由正整数、负整数和0构成的元素,存储在数组a中,并升序排列,代码略
End Sub
Private Sub Commandl_Click()

Dim i As Integer,j As Integer,m As Integer,absmin As Integer

flag= False: i=1:j=n

Do While 

m=(i+j)\2

If a(m)=0 Then

flag=True: absmin=a(m): Exit Do

Elself a(m) > 0 Then

If    ①    Then
j=m-1
Else

Fla=True

absmin=dmin(a(m-1),a(m))

End If
Else
If a(m+1)< 0 Then
i=m+1
Else
flag =True
    ②    
End If
End If
Loop
Label1.Caption="绝对值最小的元素是:"+Str(absmin)
End Sub
Function dmin(x As Integer,y As Integer)As Integer

If Abs(x)＜Abs(y)Then dmin=x Else dmin=y

End Function
（1）结合界面和代码，程序中没有使用到的控件是____________（单选，填字母：

A．」/

B．/c. /

C．A）

（2）程序加框处代码有错，请改正。
改正：________________________________
（3）请在划线处填入合适的代码。
①__________________________________
②__________________________________