Private Sub Form_Load()
Rem 在这里定义一个inti来控制数字的循环变化,定义intNumber是用来输入要求第几个数
Dim inti,intNumber As Integer
'lngFibonacci1和lngFibonacci2为Fibonacci数列的第0和第1个数
'而lngFibonacciResult是用来记录最后所求的那个数的
Dim lngFibonacci1,lngFibonacci2,lngFibonacciResult As Long
lngFibonacci1 = 0
lngFibonacci2 = 1
'输入数据
intNumber = InputBox("输入要求第几个的数:","输入!")
For inti = 1 To intNumber
lngFibonacci1 = lngFibonacci1 + lngFibonacci2
lngFibonacci2 = lngFibonacci1 + lngFibonacci2
Next inti
'最后输出所求得的数据
lngFibonacciResult = MsgBox("所求的这个数为:" & lngFibonacci2,,"输出!")
End Sub
另外你也可以在窗体上面添加一些控件来实现,可以使这个的结果更加美观!
努力!