搜索
Function Search(m As Integer, pre As Integer) As Integer
Dim i As Integer
If m < 0 Then
Search = 0
ElseIf m = 0 Then
Search = 1
Else
For i = pre To m
Search = Search + Search(m - i, i)
Next i
End If
End Function
Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
Label1.Caption = Search(n, 1)
End Sub
若在文本框 Text1 中输入“4”，则标签 Label1 中显示的内容为( )
| A．2 | B．4 | C．5 | D．7 |
同类型试题
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
