山大美英澳骗局:vf 编程高手们,我想用VB去求解一个数列的第40个数,数列如下,1,1,2,3,5,8,就是菲波数列。谢谢

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 18:52:43

Dim a(40) As Long, n As Integer
a(0) = 0
a(1) = 1
For n = 2 To 40
a(n) = a(n - 1) + a(n - 2)
Next
Print a(40)

vf 编程高手们,我想用VB去求解一个数列
你究竟想用vb还是vf?我这里是VF:
dimension a[40]
a[1]=1
a[2]=1
i=3
do while i<=40
a[i]=a[i-1]+a[i-2]
i=i+1
enddo
?a[40]