


全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
附录:代码一:Private Sub Command1_Click()Dim a, b, c As IntegerPrint 公鸡, 母鸡, 小鸡For a = 0 To 100For b = 0 To 100c = 100 - a - bIf a * 5 + b * 3 + c / 3 = 100 ThenPrint a, b, cEnd IfNext bNext aEnd Sub代码二:Private Sub Command1_Click()Dim a, b, c As IntegerPrint 公鸡, 母鸡, 小鸡For a = 0 To 20For b = 0 To 34c = 100 - a - bIf a * 5 + b * 3 + c / 3 = 100 ThenPrint a, b, cEnd IfNext bNext aEnd Sub代码三:Private Sub Command1_Click()Dim i As IntegerFor i=100To 1000If i mod 3 =2 and i mod5 =3 and i mod 7 =3 ThenPrint 该队官兵数可能为: & iEnd IfNext iEnd Sub代码四:Private Sub Command1_Click()Dim i As IntegerFor i=100To 1000If i mod 21 =2andi mod5 =3ThenPrint 该队官兵数可能为: & iEnd IfNext iEnd Sub问题 设计程序,找出所有水仙花数。所谓水仙花数,是指一个3位数,其各位数字的立方和等于该数字本身。例如,153是一个水仙花数,因为153 = 13 + 53 +33。要求将水仙花数三个一行地显示在窗体上,统计出个数,计算平均值。水仙花数问题。统计所有水仙花数的数量,并打印。所谓水仙花数是指满足如下条件的三位数:个位数的立方、十位数的立方和百位数的立方和等于其自身。例如407为一水仙花数, 。分析 找出水仙花数需要使用循环,从100循环到999。数据要求问题中的常量:无问题的输入:无。问题的输出:所有的水仙花数。设计初始算法1 从100循环到999。判断某个数是否是水仙花数。算法细化判断一个三位数是否为水仙花的关键是,求出其个位数、十位数和百位数。1)百位数计算:a=i/100,求此数被100整除后的商。2)十位数计算:b=i/10-a*10,求此数被100整除后的余数。3)个位数计算:c=i,求此数被10整除后的余数。例如,123的各位数字的计算如下:1)百位数: 1
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025抵押借款合同协议模板
- 2025合作伙伴合同转让协议
- 汽修店雇工合同范本
- 遗失补签合同范本
- 装修顶房合同范本
- 2025电影特效制作服务合同
- 小区翻新清洗合同范本
- 配件合作合同范本
- 经委房屋出售合同范本
- 欠款个人担保合同范本
- 巡察整改工作课件模板
- 2025年事业单位工勤技能-河南-河南农机驾驶维修工一级(高级技师)历年参考题库含答案解析(5套)
- 医务人员职业道德准则理论试题
- 2025年幼儿园教师岗位聘任协议(含资格认证及薪酬激励)
- 成都东部集团有限公司招聘考试真题2024
- 银行收息管理办法
- 海外房产投资项目方案(3篇)
- 消防员心理健康课件
- 初中地理学科课程规划方案
- 定额〔2025〕1号文-关于发布2018版电力建设工程概预算定额2024年度价格水平调整的通知
- 电子束曝光机说明书
评论
0/150
提交评论