学进去

小陈基于对分查找思想编写了一个三分查找VB程序，功能如下：在文本框Text1中显示n个升序排列的数。在文本框Text2中输入查找目标值key。单击“查找”按钮后，若能找到则输出key在数列中的下标位置；若找不到则输出key邻近数的下标位置。例如，当文本框Text2中输入“35”时，输出下标位置“4”；当文本框Text2中输入“33”时，输出下标位置“3，4”。程序运行界面如图所示。

实现上述功能的VB程序如下：

（1）程序窗体中“查找”按钮的对象名是_________。

（2）加框处代码有误，请改正；

（3）请在划线处填入合适代码。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_load()

’获取一组正整数，按升序排列后依次存入
’数组a并显示在文本框Text1中,代码略

End Sub

Private Sub Cmd1_Click()

　        Dim i As Integer,j As Integer
　        Dim mid1 As Integer, mid2 As Integer

　   key = Val(Text2.Text)

i = 1 : j = n : flag = False

　        Do While i <= j And Not flag
　　          mid1 = Int(i + (j - i)/ 3)
　　          ____________①           
                 If key = a(mid1) Or key = a(mid2) Then
                       flag = True
                 ElseIf key < a(mid1) Then
                       ________②       

ElseIf key > a(mid2) Then

                       ________③       
                 Else
                       i = mid1 + 1
                       j = mid2 - 1

End If

Loop

If Then　　’改错________

　　　　   List1.AddItem Str(mid1)
            ElseIf flag Then
　　　　　List1.AddItem Str(mid2)   
            Else
                 List1.AddItem Str(j) + Str(i)

End If

　   End Sub