VB编程：编写程序打印斐波拉契（Fibonacci)数列 当n=1,fibo=1 当n=2,fibo=1 当n>2,fibo=fibo(n-1)+

Private Sub Command1_Click()
Cls
Dim b() As Long, i As Integer, n As Integer
n = Val(InputBox("input N", , 20))
ReDim b(1 To n)
b(1) = 1: b(2) = 1
For i = 3 To n
b(i) = b(i - 1) + b(i - 2)
Next
For i = 1 To n
Print b(i);
Next

End Sub

Option Base 1
Dim a() As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Private Sub Form_click()
n = InputBox("输入行数")
ReDim a(n + 1, n + 1) As Integer
For i = 1 To n
For j = 1 To i
If i = 1 Or j = 1 Then
a(i, 1) = 1
Else
If i = j Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
End If
Print a(i, j);
Next j
Print
Next i
End Sub

我对这个不了解，帮不你

递归函数,很简单，随便百度一下就可以了