Question

斐波那契数列用VB这么写啊？

Answer 1

你到网上去搜，使用递归函数就能实现，甚至简单的连VBS就能实现，
如果最终还是没能实现的话，就联系我，我给你全部的代码

Answer 2

创建一个按钮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