用VB中的do while 循环结构编一个斐波那契数列的程序

2025-03-30 00:21:10

推荐回答（3个）

回答1：

在窗体上添加一个textBox,一个Command1控件，加入以下代码
Private Sub Command1_Click()
a = 0
b = 1
i = 2
Text1 = a & " " & b & " "
Do While (i <= 100)
a = a + b: b = a + b
Text1 = Text1 & a & " " & b & " "
i = i + 2
Loop
End Sub

Private Sub Form_Load()
Text1.MultiLine = True
End Sub

虽然实现了100个斐波那契数列的输出，但是后面的数据已经变成了浮点数，需要精确数据的话就需要设置数组来计算了

若满意请及时采纳，谢谢

回答2：

Dim a(1 to 100),i
a(1)=1
a(2)=2
i = 1
Do While i < 99
    a(i+2)=a(i+1)+a(i)
    i = i + 1
Loop

a(1)到a(100)就是你要的数列

回答3：

在窗体上添加一个textBox,一个Command1控件，加入以下代码
Private
Sub
Command1_Click()
a
=
0
b
=
1
i
=
2
Text1
=
a
&
"
"
&
b
&
"
"
Do
While
(i
<=
100)
a
=
a
+
b:
b
=
a
+
b
Text1
=
Text1
&
a
&
"
"
&
b
&
"
"
i
=
i
+
2
Loop
End
Sub
Private
Sub
Form_Load()
Text1.MultiLine
=
True
End
Sub
虽然实现了100个斐波那契数列的输出，但是后面的数据已经变成了浮点数，需要精确数据的话就需要设置数组来计算了
若满意请及时采纳，谢谢