Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim Low As Integer, High As Integer
Randomize
a(1) = Int(100 * Rnd)
For i = ① To 100 temp = Int(100 * Rnd)
Low = 1
High =②
Do While Low <= High
m = (Low + High) \ 2
If temp > a(m) Then
Low = m + 1
Else
High = m - 1
End If
Loop
For j = i - 1 To Low Step -1
③
Next j
a(Low) = temp
Next i
End Sub
请回答以下问题:
(1)加框处为____查找法,是否可以修改为顺序查找法_(填:是/否)。
(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