《多重循环与枚举算法.ppt》由会员分享，可在线阅读，更多相关《多重循环与枚举算法.ppt（17页珍藏版）》请在三一文库上搜索。
1、枚举算法与多重循环 一、 复习 1.下面的程序段用于计算 s=1*2+3*4+5*6+7*8+9*10 则在程序的划线处应填上（ ） S=0 For k=1 to 10 step _ s=s+k*(k+1) Next k (A) 0 (B) 1 (C) 2 (D) k 2. 在窗体上画一个名称为command1的命令按 钮，然后编写如下事件过程: Private Sub Command1_Click() Dim n,m As Integer m=0 For n=1 to 20 if n Mod 30) or (x mod 60) x=x+1 Loop n1 n2 n12 n24 二、新课 1.
2、 单据问题： 一张单据上有一个5位数的编号，其百位数 和十位数处已经变得模糊不清，如图所示。但是 知道这个5位数是37或67的倍数。现在要设计一 个算法，找出所有满足这些条件的5位数，并统 计这些5位数的个数。 单据问题界面设计 （程序预演） 列表框控件 list1 按钮控件 command1 窗体form1 单据问题代码 Private Sub Command1_Click() Dim j, n, c As Integer c = 0 List1.Clear For j = _ To _ _ If _ Then List1.AddItem Str(n) c = c + 1 End If Ne
3、xt j List1.AddItem “总计有“ + Str(c) + “个五位数“ End Sub 单据问题代码 Private Sub Command1_Click() Dim j, n, c As Integer c = 0 List1.Clear For j = 0 To 99 n = 25006 + j * 10 If n Mod 37 = 0 Or n Mod 67 = 0 Then List1.AddItem Str(n) c = c + 1 End If Next j List1.AddItem “总计有“ + Str(c) + “个五位数“ End Sub 课堂任务 n完成单
4、据问题的程序 双重循环解决单据问题 Private Sub Command1_Click() Dim i,j, n, c As Integer c = 0 List1.Clear For i=0 to 9 For j = 0 To 9 n = 25006 +i*100 +j * 10 If n Mod 37 = 0 Or n Mod 67 = 0 Then List1.AddItem Str(n) c = c + 1 End If Next j next i List1.AddItem “总计有“ + Str(c) + “个五位数“ End Sub 问题：下面程序运行结束后变量s的值是多少？
5、程序1 S=0 i=5 For j=1 to i S=s+j Next j 程序2 S=0 For i=1 to 5 For j=1 to i S=s+j Next j Next i 2. 包装问题 包装600个变形金刚，要求是： （1）包装的规格分别是：小盒（每合2个） 、中盒（每合5个）、大盒（每合8个）； （2）每种规格的合数都不能是0。 设计一个算法，输出所有可能的包装方案， 并输出包装方案的个数。 变 形 金 刚 包 装 问 题 代 码 Private Sub Command1_Click() Dim x, y, z, c As Integer c = 0 List1.Clear F
6、or x = 1 To 293 For y = 1 To 118 For z = 1 To 74 If 2 * x + 5 * y + 8 * z = 600 Then List1.AddItem Str(x) + “ “ + Str(y) + “ “ + Str(z) c = c + 1 End If Next z Next y Next x Text1.Text = Str(c) End Sub 小知识：循环内嵌套循环的方式叫多重循环 程序预演 上机练习： 通过上机的方式完成本课件中复习题中 的第一、第三两题 掌握msgbox() 过程和str()函数的使用 完成包装问题 操作速度快的同学完成单据问题。