循环嵌套

不妨用A表示百位数、B表示十位数、C表示个位数。 程序代码如下： Private Sub Command1_Click() Dim A, B, C As Long For A = 1 To 9 For B = 0 To 9 For C = 0 To 9 If A * 100 + B * 10 + C = A ^ 3 + B ^ 3 + C ^ 3 Then Print A * 100 + B * 10 + C End If Next Next Next End Sub 注意：在此程序中应用了三层循环嵌套，要注意每个语句的结束 语句要一一对应。 详见Form1。 答案：153、370、371、407
循环嵌套 例题：求100～999之间的水仙花数。 水仙花数的定义：若某三位数ABC＝A^3＋B^3＋C^3，则称该数ABC为水仙花数。 如153＝1^3＋5^3＋3^3＝1＋125＋27＝153，则称153为水仙花数。 分析：由水仙花数的定义看出，水仙花数是指： 这个数 ＝ 百位的立方 ＋ 十位的立方 ＋ 个位的立方 那么我们可以用三个变量分别表示百位数、十位数、个位数作为循环变 量进行循环嵌套的循环。如果这三个变量组成的百位数满足水仙花数的 构成条件，则这个百位数就是水仙花数。
作业1答案： 2025、3025、9801
作业2答案： 共有如下四种购买方案： （1）公鸡数目0 （2）公鸡数目4 （3）公鸡数目8 （4）公鸡数目12 目鸡数目25 目鸡数目18 目鸡数目11 目鸡数目4 小鸡数目75 小鸡数目78 小鸡数目81 小鸡数目84
循环嵌套
在处理实际问题时，常常需要在循环体内在进行其他循环操作，这 时就构成了循环嵌套。 前面我们学习了条件语句的嵌套，那循环语句嵌套与此类似，即将 循环语句看作一条语句即可。 循环嵌套后，实际上就构成了多层循环，我们通常把循环体内的循 环称为内循环，循环体外的循环称为外循环。 在循环嵌套程序的执行过程中，外层循环先执行，每执行一次外循 环，内层循环都要从头至尾执行一遍。 问：如果外层循环的循环次数为M次，内层循环的循环次数为N次， 那么循环嵌套程序的总执行次数是多少？ 答：根据乘法原理，整个循环执行次数为M*N次。
本课作业 作业1：编程求具有abcd=(ab+cd)^2性质的四位数。如3025=（30+25）^2。 作业2：百元买百鸡问题。 这是中国古代一个非常有名的数学趣题。题目意思如下： 一只公鸡值５元，一只母鸡值３元，３只小鸡值１元，现用一百元要买一百只 鸡，问有什么买鸡方案？ 作业要求： （1）作业的界面如下：作业的两道题在一个.frm文件中执行； （2）当点击“作业1”命令按钮时，执行作业1的程序。当点击“作业2”命令按钮 时，执行作业2的程序。 （3）输出答案用Print方法将答案输出到窗体中。
参见作业的演示。
来自百度文库
作业试题分析 作业1：编程求具有abcd=(ab+cd)^2性质的四位数。如3025=（30+25）^2。 提示：用四重循环即可。 作业2：百元买百鸡问题。 提示： （1）用三重循环循环即可。不妨用A表示公鸡数目；用B表示目鸡数目；用C 表示小鸡数目。 （2）那么，买鸡方案需要满足两个条件：所有鸡的数目为100只；所有买鸡的 钱为100元。如果满足这两个条件，那么该买鸡方案是成立的。 （3）确定循环范围，减少循环量：由条件可以确定：最多能买20只公鸡；最 多能买33只母鸡；最多能买300只小鸡。 （4）确定循环变量的步长：公鸡、母鸡的循环变量的步长为1；但小鸡的循环 变量的步长为3，请思考问什么。 （5）输出答案的语句可以用： Print "公鸡数目" & A, "母鸡数目" & B, "小鸡数目" & C 这样就能把每种方案在一行中输出。
对程序代码的说明： （1）为什么A的循环范围是1～9，而B和C的循环范围是0～9呢？ 答：因为百位数不能为0。 （2）简要说明该循环的执行顺序是什么? 答：首先执行最外层循环，此时A=1；再执行第二层循环，此时B=0；最后执行 第三层循环，此时C＝0开始，直到C=9结束最内层循环； •最内层循环全部执行一遍后，此时程序返回到第二层循环，此时B=1；接着执行 第三层循环，此时C=0开始，直到C=9结束最内层循环； •当第二层循环的B＝9，第三层循环的C=9执行完毕后，程序返回到第一层循环， 此时A=2；接着执行第二层循环，此时B=0；再执行第三层循环，C=0到9。 •…… •直到A=9、B=9、C=9都执行完毕后，整个循环结束。 （3）按照循环的执行顺序，该程序依次判断的百位数顺序是什么？ 答：依次是100，101，…，109，110，…，119，120，…，199，200， 201，…，999。 （4）该程序一共需要执行多少次循环？ 答：共执行了9*10*10=900次循环。