如何编程实现斐波那契数列

时间:2024-10-13 14:19:44

1、启动vb6,执行文件-新建工程命令,在弹出的对话框中选择第一个标准exe文件,点击确定进入窗口编辑区域。

如何编程实现斐波那契数列

2、选择form1调整窗体的大小,修改其boderstyle属性值为4-fiexd,修改caption属性值为斐波那契,修改startupposition属性值为屏幕中心。

如何编程实现斐波那契数列

3、在窗口中创建frame控件,修改其caption属性值为空,并调整其大小和位置使其布局美观。

如何编程实现斐波那契数列

4、在窗体上创建3个标签控件,修改他们的caption属性值依次为“斐波那契-兔子繁殖问题”,“输入月份”,“总数”。

如何编程实现斐波那契数列

5、在窗体创建image控件,点击其picture属性,弹出对话框,找到图片所存放的位置,点击打开命令。

如何编程实现斐波那契数列

6、接着在窗体上创建文本框控件2个,修改这两个文本框的text属性值为空,并调整其位置。

如何编程实现斐波那契数列

7、在窗体上创建2个commmand控件,调节其大小和位置,并修改其caption属性值依次为“兔子总对数”,“退出”。

如何编程实现斐波那契数列

8、双击“兔子总对数”按钮进入其代码区域,在代码区域中对象选择commmand1,过程选择click。

如何编程实现斐波那契数列

9、在代码区域输入代码内容Text2.Text = tuzizongshu(Text1.Text),接着重新选择对象为通用,输入自定义函数Private Function tuzizongshu(ByVal intMonth As Integer) As Integer If intMonth = 1 Then '第1个月,新生兔子为1对 tuzizongshu = 1 ElseIf intMonth = 2 Then '第2个月,新生兔子为1对 tuzizongshu = 1 Else '第3月起,新生兔子为前两月新生兔子之和 tuzizongshu = tuzizongshu(intMonth - 1) + tuzizongshu(intMonth - 2) End IfEnd Function

如何编程实现斐波那契数列

10、接着点击运行按钮进行语法检查,根据错误提示信息进行修改,直至没有错误为止。

如何编程实现斐波那契数列
如何编程实现斐波那契数列

11、接着双击“退出”按钮,在代码区域中输入end,主要作用是退出源程序。

如何编程实现斐波那契数列

12、执行文件-生成工程命令,在弹出对话框中输入“斐波那契”,然后点击确定按钮,这样就生成了可执行程序“斐波那契.exe”文件。

如何编程实现斐波那契数列

13、执行文件-保存工程命令,将窗体文件、工程文件依次保存即可。

如何编程实现斐波那契数列
© 手抄报圈