UC知道VB编程 有人帮帮我吗?
来源：百度知道 编辑：UC知道 时间：2024/07/07 09:42:30
使用数组实现：单击窗体，按每行5个数显示斐波那契数列的前20个（0，1，1，2，3，…，4181）。提示：an=an-1+an-2
Option Explicit
Private Sub Form_Click()
Dim i As Integer
Dim a(20) As Integer
a(0) = 0: a(1) = 1
Cls
Print a(0), a(1),
For i = 2 To 19
a(i) = a(i - 2) + a(i - 1)
If i Mod 5 = 0 Then
Print
End If
Print a(i),
Next
End Sub
lifeng4015
谢谢你
我也忘了要怎么打印回车了···