作业帮 > 综合 > 作业

输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 16:08:06
输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢
Private Sub Command1_Click()
Dim a(1 To 20) As Integer
For i = 1 To 20
If i = 1 Or i = 2 Then
a(i) = 1
Else
a(i) = a(i - 1) + a(i - 2)
End If

Print a(i);
n = n + 1
If n Mod 5 = 0 Then Print
Next i
End Sub
再问: 刚刚的那个题的答案是多少???
再答: 不是写了吗?答案是9433