简答题(1)【操作步骤】

步骤1：打开本题工程文件。

步骤2：将窗体Form1的Caption属性设置为"二分法查找"。

步骤3：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。

参考答案

Do

m = (low + high) \ 2

Select Case a(m)

Case Is = x

flag = 1

Exit Do

Case Is > x

high = m

Case Else

low = m

End Select

Loop Until low = high

If flag = 1 Then

Text2.Text = "查找成功，该数的位置为" + Str(m) + "！"

Else

Text2.Text = "查找失败，该数不存在！"

End If

步骤4：调试并运行程序，关闭程序后按题目要求存盘。

简答题(2)【操作步骤】

步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。

参考答案

Dim Flag As Boolean

Private Sub Form_Load()

DrawWidth = 2

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then

Flag = True

End If

End Sub