VB中输出斐波那契数列的前20项

Answer 1

分别用递推法和递归法求斐波那契数列：
Option Explicit
Option Base 1
Dim a() As Integer, n As Integer
Private Function f2(m As Integer) As Integer
Dim i As Integer
If m = 1 Or m = 2 Then
f2 = 1
Else
If m > 2 Then
For i = 3 To m
f2 = f2(i - 1) + f2(i - 2)
Next
End If
End If
End Function

Function f(m As Integer) As Integer
Dim i As Integer
ReDim a(m)

a(1) = 1
a(2) = 1
If m > 2 Then
For i = 3 To m
a(i) = a(i - 2) + a(i - 1)
Next
End If
f = a(m)
End Function

Private Sub Command1_Click()
Dim i As Integer
n = Val(InputBox("请输入第几个月"))
If n = 1 Then
Print 1;
Else
If n > 1 Then
Print 1,
For i = 2 To n
Print f(i),
If i Mod 5 = 0 Then Print
Next
End If
End If
Print

End Sub

Private Sub Command2_Click()
Dim i As Integer
n = Val(InputBox("请输入第几个月"))
If n = 1 Then
Print 1;
Else
If n > 1 Then
Print 1,
For i = 2 To n
Print f(i),
If i Mod 5 = 0 Then Print
Next
End If
End If
Print
End Sub

Private Sub Form_Load()
Command1.Caption = "递推法"
Command2.Caption = "递归法"
End Sub

Answer 2

界面加一个按钮,直接复制运行

Private Sub Command1_Click()
Dim a(1 To 20) As Integer
For i = 1 To 20
If i = 1 Or i = 2 Then
a(i) = 1
Else
a(i) = a(i - 1) + a(i - 2)
End If

Print i, a(i)
Next i
End Sub

Answer 3

打表法蠢蠢欲动
print "1,1,2,3,5,8,13,21,34,55,89,143..."你懂的