- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验4 循环结构
实验内容:
1. 累加
设s=1+2+3+....+n,编程计算s的值,n的值程序运行时输入,要求用For ... Next实现。窗体文件命名为ex18.frm,项目文件命名为 ex18.vbp,将ex18.frm及ex18.vbp上传至该个人网络存储空间。
2. 阶乘
编程用Do…Loop循环计算除乘 n!,n的值程序运行时输入,参考界面如下:
窗体文件命名为ex19.frm,项目文件命名为 ex19.vbp,将ex19.frm及ex19.vbp上传至该个人网络存储空间。
3.质数判断
输入一个自然数,判定其是否是质数,参考界面如下:
窗体文件命名为ex20.frm,项目文件命名为 ex20.vbp,将ex20.frm及ex20.vbp上传至该个人网络存储空间。
4.百鸡问题
我国古代“算经”里提出“百钱买百鸡”问题:鸡翁一,值钱五,鸡母一,值钱三,鸡雏三,值钱一,百钱买百鸡,问鸡翁、母、雏各几何?要求在窗体上建立两个名称分别为Command1和Command2,标题分别为计算和退出的命令按钮。程序运行后,单击计算按钮,实现上述功能, 将结果同时输出到窗体,单击退出按钮,结束程序。
窗体文件命名为ex21.frm,项目文件命名为 ex21.vbp,将ex21.frm及ex21.vbp上传至该个人网络存储空间。
5.用级数计算π的近似值
教材第99页例5.7,用级数计算π的近似值,当最后一项的绝对值小于0.00001时,停止计算。要求在窗体上建立两个名称分别为Command1和Command2,标题分别为计算和退出的命令按钮。程序运行后,单击计算按钮,实现上述功能, 将结果同时输出到窗体,单击退出按钮,结束程序。
窗体文件命名为ex22.frm,项目文件命名为 ex22.vbp,将ex22.frm及ex22.vbp上传至该个人网络存储空间。
6.用级数计算ex的近似值
用级数计算ex的近似值,当最后一项的绝对值小于0.00001时,停止计算。要求在窗体上建立两个名称分别为Command1和Command2,标题分别为计算和退出的命令按钮。程序运行后,单击计算按钮,实现上述功能, 将结果同时输出到窗体,单击退出按钮,结束程序。
窗体文件命名为ex22.frm,项目文件命名为 ex22.vbp,将ex22.frm及ex22.vbp上传至该个人网络存储空间。
思考题:(课外时间完成)
1. 求最大值
对x=1,2,...,10,求函数f(x)=x-10*cos(x)-5*sin(x)的最大值。
要求在窗体上建立两个名称分别为Command1和Command2,标题分别为计算和退出的命令按钮。程序运行后,单击计算按钮,实现上述功能, 将结果输出到窗体,单击退出按钮,结束程序。
窗体文件命名为sk01.frm,项目文件命名为 sk01.vbp,将sk01.frm及sk01.vbp上传至该个人网络存储空间。
2.打印出所有的“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数本身。例如:153是一个“水仙花数”,因为153=13+53+33。要求在窗体上建立两个名称分别为Command1和Command2,标题分别为计算和退出的命令按钮。程序运行后,单击计算按钮,实现上述功能, 将结果输出到窗体,单击退出按钮,结束程序。
窗体文件命名为sk02.frm,项目文件命名为 sk02.vbp,将sk02.frm及sk02.vbp上传至该个人网络存储空间。
文档评论(0)