
(1)若在 Text1中输入“8”,则 Text2、Text3中输出的分别为________。
(2)请在划线处填入合适的代码。
Dim a(1 To 10)As Integer
Function find (L As Integer, R As Integer, key As Integer) As Integer
If L>R Then
find=0:Exit FunctionElseIf a(L)>=key Then
find=L:Exit FunctionElse
_________If a(m)<key Then
find=find(M+1,R,key)
Else If(2):__________Then
find=find(L,M-1,key)
Else
find=M
End If
End If
End FunctionPrivate Sub Commandl_Click()
Dim k As Integer
Dim p As Integer
k=Val(Text1.Text)
___________
Text2.Text=Str(a(p))
Text3.Text=Str(p)
If p=0 Then
Text2.Text="无"End If.
End SubPrivate Sub Form_Load()
a(1)=3:a(2)=3:a(3)=3:a(4)=4:a(5)=7:a(6)=7
a(7)=10:a(8)=13:a(9)=19:a(10)=21
For i=1 To 10
List1.AddItem Str(a(i))Next i
End Sub
同类型试题

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

