[VBA]斐波那契数列

Sub 斐波那契()
Dim arr
For i = 3 To 100
Cells(1, 1) = 0
Cells(2, 1) = 1
Cells(i, 1) = Cells(i - 1, 1) + Cells(i - 2, 1)
Next
End Sub

效果图