VB编程求 斐波那契数列倒数和

创建一个按钮Command1
Option Explicit

Private Sub Command1_Click()
Const n As Integer = 15
Dim fn() As Long
Dim s() As String
Dim i As Integer
ReDim fn(1)
fn(0) = 1
fn(1) = 1
For i = 2 To n
ReDim Preserve fn(i)
fn(i) = fn(i - 2) + fn(i - 1)
Next
For i = 0 To n
ReDim Preserve s(i)
s(i) = fn(i)
Next
MsgBox Join(s)
End Sub