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
效果图
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
效果图
该资源仅限VIP专享下载