如何编程实现猴子吃桃问题
来源:网络收集 点击: 时间:2024-07-06双击桌面上的vb6的快捷方式,执行新建工程命令,在弹出的新建工程对话框中选择标准的exe文件,点击确定,进入窗体主界面。

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

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

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

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

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

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

切换到代码区域,在该区域内对象中选择“通用”,然后输入自定义函数:
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
自定义函数是解决问题的关键所在。

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

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

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

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

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

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

版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_936526.html