多重循环与枚举算法

多重循环与枚举算法第一页，共十七页，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小知识：循环内嵌套循环的方式叫多重循环程序预演第十五页