Question

急!!!如何用VB编斐波那契数列列出前20项?

速度...

Answer 1

简单的方法...
先建一个文本框和按钮
然后全复制
Private Sub Command1_Click()
Dim m, n, i, t As Single
i = 0
m = 0
n = 1
Do While i <= (Val(Text1.Text))
i = i + 1
t = m + n
n = m
m = t
Print t
Loop

End Sub
要几位就有几位...

Answer 2

窗体上放一个文本框,并设置成多行属性,用来数列的输出
Private Sub command1_Click()
Dim a%, b%, c%, d%
a = 0 : b = 1
Text1.Text = "0" & vbCrLf & "1" & vbCrLf
For d = 1 To 18
c = a + b
a = b
b = c
Text1.Text = Text1.Text & c & vbCrLf
Next
End Sub

Answer 3

简单的方法...
先建一个文本框和按钮
然后全复制
Private
Sub
Command1_Click()
Dim
m,
n,
i,
t
As
Single
i
=
0
m
=
0
n
=
1
Do
While
i
<=
(Val(Text1.Text))
i
=
i
+
1
t
=
m
+
n
n
=
m
m
=
t
Print
t
Loop
End
Sub
要几位就有几位...