搜索
Private Sub Command1_Click()
Dim d(1 to 10) As Integer, i As Integer, j As Integer, m As Integer
Dim Key As Integer, s As String
Key = Int(Rnd * 50 + 1)
s = "": i = 1: j = 10
Do While i < j
m = (i + j) \ 2
If Key = d(m) Then Exit Do
If Key < d(m) Then
j = m : s = s + "L"
Else
i = m + 1: s = s + "R"
End If
Loop
Label1.Caption = s
End Sub
若数组元素d(1)到d(10)的值依次为“3，8，9，15，26，28，32，37，45，49”，执行该程序段后，标签Label1上显示的字符串s出现字母“L”和“R”个数相同的情况有（）
| A．1种 | B．2种 | C．3种 | D．4种 |
同类型试题
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
