用vb求：斐波那契数列的前二项是1,1,以后每一项都是前面两项之和.求100000以内有多少个斐波那契数?

jf8gl5 1年前已收到1个回答举报

共回答了21个问题采纳率：95.2% 举报

Private Sub Command1_Click()
n = 2
Dim a(30) As Long
Dim i As Integer
a(1) = 1:a(2) = 1
For i = 3 To 30
a(i) = a(i - 1) + a(i - 2)
If a(i) < 100000 Then
n = n + 1
End If
Next i
Print n
End Su

1年前

可能相似的问题

用vb求,斐波那契数列的前二项是1,1,以后每一项都是前面两项之和.求此数列的第35项数是多少?

1年前1个回答
斐波那契数列1，1，2，3，5，8，…从第三个数起，以后的每一个数都是它前面两个数的和，请问：

1年前1个回答
斐波那契数列1，1，2，3，5，8，…从第三个数起，以后的每一个数都是它前面两个数的和，请问：

1年前1个回答
FREE BASIC求高手啊填空题:有一个数列,它的头三个数为0、0、1,以后的每个数都是其前面三个数的和.请编写程序,

1年前1个回答
一数字,当你去掉了前面的一个数字以后,它等于13,当你去掉后面的一个数字以后,它等于40.

1年前2个回答
傍晚的时候,面向太阳,前面的方向是（）方,左边是（）方,后边是（）方.向右转以后,前面是（）方,左边是（）方

1年前2个回答
“以后”用英语怎么说如题,帮下忙我是要把“曾经，现在，以后”这三个词的英语写在一起，前面两个知道了，可是不知道“以后”怎

1年前5个回答
英语中有哪些不可数名词加形容词以后前面加”a“的?

1年前4个回答
汉语里的名词为什么汉语里之前前面时以后等也算名词啊?

1年前1个回答
20个数,第一个数是8,以后每个数比前面大3.求20个数的和.

1年前1个回答
一列数前面四个数是1 9 9 8···,以后每个数都是它前面三个数和的末位数字.这列数中能否出现1 9 9 9

1年前2个回答
一列数,前面4个数是1,9,9,8.,以后每个数都是它前面三个数的和的末尾数字,问这列数中能否出现1,9,9,

1年前1个回答
一列数前面4个数是1,9,9,8…,以后的每个数都是它前面三个数的和的末位数字,问这列数中能否出现1,9,9,

1年前4个回答
高压母线TMY-3*（100*6.3）前面的字母代表什么意思,最好附上完整让我以后能自己辨别,

1年前1个回答
小学3年级,所说的几位小数,是以小数点以后的数起,还是要加上小数点前面的数位 .

1年前2个回答
一列数字,前三个是1、9、9,以后每个都是它前面相邻三个数字之和除以3所得的余数

1年前2个回答
一列数,前3个是1,9,9,以后每个都是它前面相邻3个数字之和除以3所得的余数

1年前1个回答
教室前面有一棵树,种时树高100cm,以后每年增高100cm,这棵树至少生长年,树

1年前1个回答
咋做前3个数是1.9.9,以后每个数都是它前面相邻3个数之和除以3所的余数,求第

1年前2个回答

你能帮帮他们吗

精彩回答