VB求菲波纳契数列的算法能不能用VB语句写出来,附带一点说明?只要十个数就行了我忘说了……能不能用自定义函数的方法来求

gdszsina 1年前 已收到1个回答 举报

閃電舞 幼苗

共回答了16个问题采纳率:87.5% 举报

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
If i = 1 Or i = 2 Then
a(i) = 1
Else
a(i) = a(i - 1) + a(i - 2)
End If
Print i,a(i)
Next i
End Su

1年前

7
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.039 s. - webmaster@yulucn.com