已知斐波那契数列前8项是1,1,2,3,5,8,13,21,设计如下VB程序求其第n项的值:Dima(1to1000)aslong,nasintegern=Va_刷题宝

题干

已知斐波那契数列前8项是1,1,2,3,5,8,13,21,设计如下VB程序求其第n 项的值:
Dim a(1 to 1000)as long,n as integer
n=Val(Text1.Text)
a(1)= 1:a(2)= 1
For i=3 to n
a(i)= a(i-1)+a(i-2)
Next i
Label1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)
该程序用到了下列哪一个算法( )

A．枚举算法

B．递归算法

C．排序算法

D．查找算法

上一题下一题 0.99难度选择题更新时间:2019-05-06 09:33:08

答案(点此获取答案解析）

同类题1

解决上问题所用的算法是:（）

C．顺序查找

同类题2

有如下 VB 程序段：
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后，s 的值为（）

同类题3

读流程图写结果

运行结果是___________________。

同类题4

下列VB程序模块可以计算正整数n阶乘的值。
Function f(n As Integer) As Integer
If n < =" 1" Then
f = 1
Else
f =" n" * f(n - 1)
End If
End Function
该模块采用的算法是（）

同类题5

给规模为50的数组a中元素进行赋值，使a1=1，a2=3，a3=5，…，a50=99。

在流程图的空白处应填入 ________ 。

相关知识点