




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
多重循环与枚举算法第一页,共十七页,2022年,8月28日一、复习1.下面的程序段用于计算s=1*2+3*4+5*6+7*8+9*10则在程序的划线处应填上()S=0Fork=1to10step_____s=s+k*(k+1)Nextk(A)0(B)1(C)2(D)k第二页,共十七页,2022年,8月28日2.在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimn,mAsIntegerm=0Forn=1to20ifnMod3<>0thenm=m+n\3NextnText1.text=str(m)EndSub程序运行后,如果单击命令按钮,则文本框Text1中显示的内容是(A)15(B)18(C)42(D)24第三页,共十七页,2022年,8月28日3.说出下面程序运行后x的数值是()x=1DoWhile(xmod8<>0)or(xmod6<>0)x=x+1Loop121224第四页,共十七页,2022年,8月28日二、新课1.单据问题:一张单据上有一个5位数的编号,其百位数和十位数处已经变得模糊不清,如图所示。但是知道这个5位数是37或67的倍数。现在要设计一个算法,找出所有满足这些条件的5位数,并统计这些5位数的个数。第五页,共十七页,2022年,8月28日单据问题界面设计(程序预演)列表框控件list1按钮控件command1窗体form1第六页,共十七页,2022年,8月28日第七页,共十七页,2022年,8月28日单据问题代码PrivateSubCommand1_Click()Dimj,n,cAsIntegerc=0List1.ClearForj=___To________________________If________________________ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"总计有"+Str(c)+"个五位数"EndSub第八页,共十七页,2022年,8月28日单据问题代码PrivateSubCommand1_Click()Dimj,n,cAsIntegerc=0List1.ClearForj=0To99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"总计有"+Str(c)+"个五位数"EndSub第九页,共十七页,2022年,8月28日课堂任务完成单据问题的程序第十页,共十七页,2022年,8月28日双重循环解决单据问题PrivateSubCommand1_Click()Dimi,j,n,cAsIntegerc=0List1.ClearFori=0to9Forj=0To9n=25006+i*100+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfNextjnextiList1.AddItem"总计有"+Str(c)+"个五位数"EndSub第十一页,共十七页,2022年,8月28日问题:下面程序运行结束后变量s的值是多少?程序1S=0i=5Forj=1toiS=s+jNextj程序2S=0Fori=1to5Forj=1toiS=s+jNextjNexti第十二页,共十七页,2022年,8月28日2.包装问题包装600个变形金刚,要求是:(1)包装的规格分别是:小盒(每合2个)、中盒(每合5个)、大盒(每合8个);(2)每种规格的合数都不能是0。设计一个算法,输出所有可能的包装方案,并输出包装方案的个数。第十三页,共十七页,2022年,8月28日第十四页,共十七页,2022年,8月28日变形金刚包装问题代码PrivateSubCommand1_Click()Dimx,y,z,cAsIntegerc=0List1.ClearForx=1To293Fory=1To118Forz=1To74If2*x+5*y+8*z=600ThenList1.AddItemStr(x)+""+Str(y)+""+Str(z)c=c+1EndIfNextzNextyNextxText1.Text=Str(c)EndSub小知识:循环内嵌套循环的方式叫多重循环程序预演第十五页
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 工业废水处理与节能环保的综合策略
- 工业无线通信中的机器学习技术
- 工业大数据的采集与处理技术
- 工业机器人技术及其在制造业中的应用探讨
- 工业污染控制与智能环境监测的融合
- 工业生产中的资源循环利用技术
- 工业绿色生产技术创新与发展趋势
- 工业污染防治的国际经验与启示
- 工业涂料生产中的环保技术及措施
- 工业设计中的创新方法与技术应用
- 二年级下册数学-认识钟表练习题合集
- 新供应商引入基本门槛标准
- 房车租赁合同协议
- 变电站事故安全教育培训
- 婚礼司仪主持培训
- 新工科背景下大学化学课程的创新与实践探索
- 万科集团财务管理制度手册2024
- 基于AI的年度营销策略创新
- 校园通创业计划书
- 临床重症患者坐式八段锦要点、适应人群、效果及注意事项
- 2024年四川省内江市资中县小升初数学试卷
评论
0/150
提交评论