裴波那契数用VB怎么做

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/27 13:22:18
裴波那契数用VB怎么做
x){x˳͋^6-~t⳩OYΎl /!Ɣ$ M0%3W!SUG!s a9y%NJ/4Xtɬ&\^AI4(dXBHB6D-H!h D ,Q0VHuej9ũh6g5/E3 K(Q3}ӁnVQP"`$ف _Q

裴波那契数用VB怎么做
裴波那契数用VB怎么做

裴波那契数用VB怎么做
Sub tt()
Dim i%, k%, marr()
k = Val(InputBox("需要多少项? "))
ReDim marr(1 To k)
For i = 1 To k
If i < 3 Then
marr(i) = 1
Else
marr(i) = marr(i - 1) + marr(i - 2)
End If
Next i
MsgBox Join(marr, ", ")
End Sub