VB求菲波纳契数列的算法能不能用VB语句写出来,附带一点说明?只要十个数就行了我忘说了……能不能用自定义函数的方法来求

Question

VB求菲波纳契数列的算法
能不能用VB语句写出来,附带一点说明?
只要十个数就行了
我忘说了……能不能用自定义函数的方法来求

Answer 1

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
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