
依据对分查找思想,设计一个在数组a中查找数据key的程序,实现该功能的VB程序如下,请回答下列问题:
(1)请在划线处填入合适的代码。
Const n = 10
Dim a(1 To 10) As Integer
Private Sub Form_Load()
Dim i As Integer
Dim b(1 To 10) As Integer
For i = 1 To n
b(i) = i
If i Mod 2 = 1 Then
a(i) = b(i)
Else
End If
Next i
For i = 1 To n
Label1.Caption = Label1.Caption & " " & a(i)
Next i
End Sub
Private Sub Search_Click()
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, m As Integer, f As Boolean, key As Integer
key = Val(Text1.Text)
If
i = 1
Else
i = 2
End If
j = n: f = False
Do While i <= j And Not f
If key Mod 2 = 0 Then
m = (i + j) \ 2 - (i + j) \ 2 Mod 2
Else
m =
End If
If key = a(m) Then
f = True
ElseIf

Then
j = m - 2
Else
i = m + 2
End If
Loop
If f Then
Label2.Caption = Str(m)
Else
Label2.Caption = "不存在"
End If
End Sub
(2)程序加框处代码有错,请改正

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

