多重循环与枚举算法

《多重循环与枚举算法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、枚举算法与多重循环一、复习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)k2.在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click()Dimn,mAsIntegerm=0Forn=1to20ifnMod3<>0thenm=m+n3NextnText1.text=str(m)EndSub程序运行后，如果单击命

2、令按钮，则文本框Text1中显示的内容是(A)15(B)18(C)42(D)243.说出下面程序运行后x的数值是（）x=1DoWhile(xmod8<>0)or(xmod6<>0)x=x+1Loop121224二、新课1.单据问题：一张单据上有一个5位数的编号，其百位数和十位数处已经变得模糊不清，如图所示。但是知道这个5位数是37或67的倍数。现在要设计一个算法，找出所有满足这些条件的5位数，并统计这些5位数的个数。单据问题界面设计（程序预演）列表框控件list1按钮控件command1窗体form1单据问题代码Privat

3、eSubCommand1_Click()Dimj,n,cAsIntegerc=0List1.ClearForj=___To________________________If________________________ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"总计有"+Str(c)+"个五位数"EndSub单据问题代码PrivateSubCommand1_Click()Dimj,n,cAsIntegerc=0List1.ClearForj=0To99n=250

4、06+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"总计有"+Str(c)+"个五位数"EndSub课堂任务完成单据问题的程序双重循环解决单据问题PrivateSubCommand1_Click()Dimi,j,n,cAsIntegerc=0List1.ClearFori=0to9Forj=0To9n=25006+i*100+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c

5、=c+1EndIfNextjnextiList1.AddItem"总计有"+Str(c)+"个五位数"EndSub问题：下面程序运行结束后变量s的值是多少？程序1S=0i=5Forj=1toiS=s+jNextj程序2S=0Fori=1to5Forj=1toiS=s+jNextjNexti2.包装问题包装600个变形金刚，要求是：（1）包装的规格分别是：小盒（每合2个）、中盒（每合5个）、大盒（每合8个）；（2）每种规格的合数都不能是0。设计一个算法，输出所有可能的包装方案，并输出包装方案的个数。变形金刚包装问题代码Priv

6、ateSubCommand1_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小知识：循环内嵌套循环的方式叫多重循环程序预演上机练习：通过上机的方式完成本课件中复习题中的第一、第三两题掌握msgbox()过程和str(

7、)函数的使用完成包装问题操作速度快的同学完成单据问题。