斐波那契数列vb
使用数组实现：单击窗体，按每行10个数显示斐波那契数列的前30个（0,1,1,2,3，……，514229）...
使用数组实现：单击窗体，按每行10个数显示斐波那契数列的前30个（0,1,1,2,3，……，514229）
展开
1个回答
展开全部
Private Sub Form_Click()
Dim a&(30)
a(1) = 0: a(2) = 1
For i = 3 To 30
a(i) = a(i - 2) + a(i - 1)
Next i
For i = 1 To 30
Print Right(Space(7) & a(i), 8);
If i Mod 10 = 0 Then Print
Next i
End Sub
Dim a&(30)
a(1) = 0: a(2) = 1
For i = 3 To 30
a(i) = a(i - 2) + a(i - 1)
Next i
For i = 1 To 30
Print Right(Space(7) & a(i), 8);
If i Mod 10 = 0 Then Print
Next i
End Sub
追答
定义整形数组31长
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
