如何编程实现猴子吃桃问题 _vb6

对于“猴子吃桃”问题，实际上是典型的递归算法的应用，对于这个问题如何使用编程来解决呢？现在我就有vb6来实现这个问题，同时把实现的步骤和截图分享给大家，希望对你有所帮助。

工具/原料vb6
方法/步骤1双击桌面上的vb6的快捷方式，执行新建工程命令，在弹出的新建工程对话框中选择标准的exe文件，点击确定，进入窗体主界面。

2调节窗体的大小，使其布局美观，修改form1的caption属性值为“猴子吃桃问题实现”，修改borderstyle属性值为4-fiex，修改startupposition属性值为“屏幕中心” 。

3在窗体上创建frame1对象，修改frame1的caption属性值为空，同时调节其大小使其布局更加美观统一。

4在frame1上创建image1控件，点击image1的picture属性，弹出对话框，根据图片所存放的位置找到图片后，点击打开按钮。

5接着创建两个标签控件，label1和label2，修改label1的caption属性值为“第几天”，修改其backcolor为白色，修改label2的caption属性值为“桃子数”，同时修改backcolor为白色。

6在frame1上创建两个文本框控件，text1和text2，修改这两个文本框的text属性值为空，同时调节其大小和位置。

7再接着创建两个按钮控件，修改commmand1的caption属性值为“计算桃子数”，修改commmand2的caption属性值为“退出”，调整他们的位置。

8切换到代码区域，在该区域内对象中选择“通用”，然后输入自定义函数：
Public Function tao(day As Integer) As Integer
If day = 10 Then
tao = 1
Else
tao = 2 * (tao(day + 1) + 1)
If
Function
自定义函数是解决问题的关键所在。

9接着在对象中选择commmand1，过程中选择click，然后输入代码为：Text2.Text = tao(Text1.Text) 。

10【如何编程实现猴子吃桃问题】重新选择对象为commmand2，过程选项click输入代码为，代表退出整个程序运行。

11点击启动按钮对整个编程进行编译测试，在测试过程出现编译错误则说明自定义函数有问题，根据提示进行必要的修改后再进行测试。

12错误提示为编译错误：变量为定义，经过检查发现是输入时产生的输入错误，改正过来，所以在输入代码时一定要细心，否则会出现不必要的错误。

如何编程实现猴子吃桃问题

猜你喜欢