VB编程: 第一项的斐波那契（Fibonacci）顺序为1，第二项为1

VB编程: 第一项的斐波那契（Fibonacci）序列为1，第二项为1，后续项为前两项的总和，尝试递归算法和非递归算法编写程序查找值斐波那契列的前N和N个项目.

[1]非递归算法.

斐波那契次元（n为整数）

f1 = 1

f2 = 1

对于i = 1到n

打印f1，f2和

如果我Mod 2 = 0，那么

打印

如果结束

f1 = f1 + f2

f2 = f2 + f1

下一个我

结束子

私人子Form_Click（）

斐波那契（20）

结束子

运行此VB源代码后，单击表格，结果如下所示:

[2]递归算法

首先编写递归算法的过程:

私有静态函数fib（ByVal k为整数）

如果k <= 2那么

fib = 1

退出功能

其他

fib = fib（k-1）+ fib（k-2）

如果结束

结束功能

然后在表单上创建两个按钮. 编写代码如下:

Private Sub Command1_Click（）

打印

k = InputBox（“”vb递归算法，“将输出斐波那契数列的前几项”，“ 7”）

k =客户（k）

在“序列之前”打印； k; “该项目是: ”

对于i = 1到k

d = fib（i）

打印d，

如果i Mod 4 = 0，则打印

下一个我

结束子

Private Sub Command2_Click（）

昏暗k

k = InputBox（“”，“将输出斐波那契数列的哪些项目”，“ 7”）

k =客户（k）

d = fib（k）

打印

打印“序列号”； k; “条目是: ”； “ f（”＆k＆“）=”＆d

结束子

私人子表格加载（）

Command1.Caption =“输出前有N个项目”

Command2.Caption =“输出项N”

结束子

运行该VB源代码后，单击两个按钮输入数据vb递归算法，结果如下图所示:

刘炳文编写的第四版Visual Basic编程教程的答案

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-199000-1.html