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

简单的方法...
先建一个文本框和按钮
然后全复制
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
要几位就有几位...

窗体上放一个文本框,并设置成多行属性,用来数列的输出
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