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

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

工具/原料

• vb6

方法/步骤

1. 1

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

   
2. 2

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

   
3. 3

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

   
4. 4

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

   
5. 5

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

   
6. 6

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

   
7. 7

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

   
8. 8

   切换到代码区域，在该区域内对象中选择“通用”，然后输入自定义函数：

   Public Function tao(day As Integer) As Integer

   If day = 10 Then

   tao = 1

   Else

   tao = 2 * (tao(day + 1) + 1)

   End If

   End Function

   自定义函数是解决问题的关键所在。

   
9. 9

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

   
10. 10

    重新选择对象为commmand2，过程选项click输入代码为end，代表退出整个程序运行。

    
11. 11

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

    
12. 12

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

    
13. 13

    修改完直至无误后，在屏幕中心位置出现一个窗体，在第几天中输入数字1-10进行测试，点击计算桃子数就会出现结果。

    
14. 14

    执行文件-生成可执行文件命令，接着执行文件-保存工程，选择一个合适的位置进行保存即可。