广告合作
  • 今日头条

    今日头条

  • 百度一下

    百度一下,你就知道

  • 新浪网

    新浪网 - 提供新闻线索,重大新闻爆料

  • 搜狐

    搜狐

  • 豆瓣

    豆瓣

  • 百度贴吧

    百度贴吧——全球领先的中文社区

  • 首页 尚未审核订阅工具 订阅

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

    来源:网络收集  点击:  时间:2024-04-27
    【导读】:
    斐波那契数列是经典的数学问题,同时也是编程中经典算法之一,使用递归方法可以顺利编程实现该问题,现在就使用vb6编程求解斐波那契数列,同时分享实现的步骤和过程,希望对你有所帮助。工具/原料morevb6方法/步骤1/13分步阅读

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

    2/13

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

    3/13

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

    4/13

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

    5/13

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

    6/13

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

    7/13

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

    8/13

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

    9/13

    在代码区域输入代码内容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 If

    End Function

    10/13

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

    11/13

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

    12/13

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

    13/13

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

    编程斐波那契编程实现递归算法斐波那契数列
    本文关键词:

    版权声明:

    1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。

    2、本站仅提供信息发布平台,不承担相关法律责任。

    3、若侵犯您的版权或隐私,请联系本站管理员删除。

    4、文章链接:http://www.1haoku.cn/art_611705.html

    相关资讯

    ©2019-2020 http://www.1haoku.cn/ 国ICP备20009186号05-06 15:05:48  耗时:0.028
    0.0275s