对于“猴子吃桃”问题,实际上是典型的递归算法的应用,溏胃釜阼对于这个问题如何使用编程来解决呢?现在我就有vb6来实现这个问题,同时把实现的步骤和截图分享给大家,希望对你有所帮助。
工具/原料
vb6
方法/步骤
1、双击桌面上的vb6的快捷方式,执行新建工程命令,在弹出的新建工程对话框中选择标准的exe文件,点击确定,进入窗体主界面。
2、调节窗体的大小,使其布局美观,修改form1的caption属性值为“猴赤蹭荸锅子吃桃问题实现”,修改borderstyle属性值为4-fiex,修改startupposition属性值为“屏幕中心”。
3、在窗体上创建frame1对象,修改frame1的caption属性值为空,同时调节其大小使其布局更加美观统一。
4、在frame1上创建image1控件,点击image1的picture属性,弹出对话框,根据图片所存放的位置找到图片后,点击打开按钮。
5、接着创建两个标签控件,label1和labe盟敢势袂l2,修改label1的caption属性值为“第几天”,修改其backcol泠贾高框or为白色,修改label2的caption属性值为“桃子数”,同时修改backcolor为白色。
6、在frame1上创建两个文本框控件,text1和text2,修改这两个文本框的text属性值为空,同时调节其大小和位置。
7、再接着创建两个按钮控件,修改commmand1的caption属性值为“计算桃子数”,修改commmand2的caption属性值为“退出”,调整他们的位置。
8、切换到代码区域,在该区域内对象中选择“通用”,然蒹筻分虞后输入自定义函数:PublicFunctiontao(dayAsInt髫潋啜缅eger)AsIntegerIfday=10Thentao=1Elsetao=2*(tao(day+1)+1)EndIfEndFunction自定义函数是解决问题的关键所在。
9、接着在对象中选择commmand1,过程中选择click,然后输入代码为:Text2.Text=tao(Text1.Text)。
10、重新选择对象为commmand2,过程选项click输入代码为end,代表退出整个程序运行。
11、点击启动按钮对整个编程进行编译测试,在测试过程出现编译错误则说明自定义函数有问题,根据提示进行必要的修改后再进行测试。
12、错误提示为编译错误:变量为定义,经过检查发现是输入时产生的输入错误,改正过来,所以在输入代码时一定要细心,否则会出现不必要的错误。
13、修改完直至无误后,在屏幕中心位置出现一个窗体,在第几天中输入数字1-10进行测试,点击计算桃子数就会出现结果。
14、执行文件-生成可执行文件命令,接着执行文件-保存工程,选择一个合适的位置进行保存即可。