功能是: ' 1单击 " 读数据 " 按钮,则把考生文件夹下 in3.dat 文件中的 100 个按升序排列的整数读入 ' 到数组 a 中,同时显示在 Text1 文本框中; ' 2单击 " 查找 " 按钮,则提示用户输入查找的数,并利用二分法在数组 a 中查找该数,若 ' 查找成功,则在 Text2 文本框中显示该数在数组中的位置,否则显示查找失败。 ' 提示: ' 二分法查找的思路是,将查找值与有序数组的中间项元素进行比较,若相同则查找 ' 成功结束;否则判断查找值落在数组的上半部分还是下半部分,并继续在那一半的 ' 数组中重复上述查找过程。 Option Base 1 Dim a(100) As Integer, b(100) As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in3.dat" For Input As #1 For k = 1 To 100 Input #1, a(k) Text1.Text = Text1.Text + Str(a(k)) Next k Close #1 End Sub Private Sub Command2_Click() Dim low As Integer, high As Integer Dim flag As Integer Text2.Text = "" x = InputBox(" 请输入需要查找的数 ", " 输入 ") low = LBound(a) high = UBound(a) Do '**********SPACE********** m = ( 【 1 】 ) \ 2 Select Case a(m) Case Is = x flag = 1 Exit Do Case Is > x '**********SPACE********** high = 【 2 】 Case Else low = m End Select '**********SPACE********** Loop Until 【 3 】 '**********SPACE********** If 【 4 】 Then Text2.Text = " 查找成功,该数的位置为 " + Str(m) + " ! " Else Text2.Text = " 查找失败,该数不存在! " End If End Sub