求：用VB实现斐波那切数列，要求输入一个项数，就能显示结果”

来源：百度知道 编辑：UC知道 时间：2024/06/01 11:00:58
因为是明天早上急需，所以如果能给我一个打好包的可执行文件，再追加赠送分数啊~谢谢了!
是显示那一项的值，不是求和！！！

试一下吧..
修改补充: (晕,你加一行不就知道了..)

Private Sub Command1_Click()
Dim n%, m%(), sum%, i%, j%
n = Val(InputBox("输入一个项数!!"))

ReDim m(n)
m(0) = 1

For i = 1 To n

If i < 3 Then
j = 0
Else
j = m(i - 2)
End If

m(i) = m(i - 1) + j
sum = sum + m(i)
Next
Print "斐波拉契数列前" & n & "项和Sum=" & sum
Print "斐波拉契数列第" & n & "项为: " & m(n)
End Sub

Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("输入一个项数!!"))

ReDim m(1 To n) As Long
For i = 1 To n

If i = 1 Then m(i) = 0
If i = 2 Then m(i) = 1
If i > 2 Then m(i) = m(i - 1) + m(i - 2)

Next
Print "斐波拉契数列第" & n & "项为: " & m(n)
End Sub