作业帮 > 综合 > 作业

裴波那契数用VB怎么做

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/30 21:44:05
裴波那契数用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 Su