作业帮vb编程,用于计算菲波那契数列的第n项(算菲波那契数列的定义四是这样的,其第i项和第2项都是1,以后每一项等于其前两项之和.)
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/09 03:37:21
xՔ]OAE@Ҧ5ibMc{߀n&K`1^RAT(!Џ ffv_ E74jz7s<睙E!h4c5S?0F S_H=i͒Q^7NOAD/^T*te^~s
dB CV^X!#Ah+Ig lDpo TB1ߓZ|/bjPD)y%" s jnSUթvB6; B 5
E$Wx:$.$"!1d`hQl7k
IA0ѡGqLVŰ2fVRҒ1nｸ۟ln;<]j5c&mE1XQo06jYI2:
Hwy9lmRGw^zx-9֭ȍG~(P +k.T?/N*G Gn9W
h?SXT -g>7Jz)xؚrXpka`{"ݿ⩼^&crT}&{RՆ,awCz> {
<
vb编程,用于计算菲波那契数列的第n项(算菲波那契数列的定义四是这样的,其第i项和第2项都是1,以后每一项等于其前两项之和.)
vb编程,用于计算菲波那契数列的第n项
(算菲波那契数列的定义四是这样的,其第i项和第2项都是1,以后每一项等于其前两项之和.)
vb编程,用于计算菲波那契数列的第n项(算菲波那契数列的定义四是这样的,其第i项和第2项都是1,以后每一项等于其前两项之和.)
Private Sub Form_Load()
Rem 在这里定义一个inti来控制数字的循环变化,定义intNumber是用来输入要求第几个数
Dim inti,intNumber As Integer
'lngFibonacci1和lngFibonacci2为Fibonacci数列的第0和第1个数
'而lngFibonacciResult是用来记录最后所求的那个数的
Dim lngFibonacci1,lngFibonacci2,lngFibonacciResult As Long
lngFibonacci1 = 0
lngFibonacci2 = 1
'输入数据
intNumber = InputBox("输入要求第几个的数：","输入!")
For inti = 1 To intNumber
lngFibonacci1 = lngFibonacci1 + lngFibonacci2
lngFibonacci2 = lngFibonacci1 + lngFibonacci2
Next inti
'最后输出所求得的数据
lngFibonacciResult = MsgBox("所求的这个数为：" & lngFibonacci2,,"输出!")
End Sub
另外你也可以在窗体上面添加一些控件来实现,可以使这个的结果更加美观!
努力!