第11讲 常用语句_循环语句2.pptx

第11讲 常用语句——循环语句2 循环嵌套、退出循环3.2.3 （4） 内容回顾(P.53) 循环语句 For 循环变量=初值 To 终值 [Step 步长] 语句块 Next 循环变量 For Each 个体变量 In 指定的集合 语句块 Next 个体变量 指定循环次数 不指定循环次数 复习练习 1、练习-7 复习练习 2、按要求编写一个sub，一位司机酒驾撞人逃跑，现场有三人目击事件，但都没记住车号，只记下车号的一些特征。甲说：“牌照的前两位数字是相同的”；乙说：“牌照的后两位数字是相同的”；丙是位数学家，他说：“四位数的车号刚好是一个整数的平方”。请根据以上线索求出车号。（车号是4位整数，结果在A1中输出） 退出循环 Exit语句，可以用来跳出或退出各种循环，用以提前终止循环 Exit For 用于For Next以及For Each Next语句 Exit Do 用于Do Loop语句的各种形式 Exit语句一般与If语句结合使用 *另外，Exit语句还可以退出过程、函数 Exit Sub Exit Function Exit For举例 用遍历的方法求两个整数的最大公约数 假设两个整数为M和N，且MN 则从M到1开始逐个判断是否能同时被M和N整除，若能，则退出循环；否则，继续 大家试试看 求最大公约数 Sub 最大公约数() Dim m As Integer, n As Integer, i As Integer m = Val(InputBox(请输入第1个整数)) n = Val(InputBox(请输入第2个整数)) If m n Then i = m m = n n = i End If For i = m To 1 Step -1 If m Mod i = 0 And n Mod i = 0 Then Exit For End If Next i MsgBox m 和 n 的最大公约数为 i End Sub 若mn则交换m、n的值，保证mn 若找到同时整除的整数则退出循环 练习-1 用遍历的方法求两个整数的最小公倍数 循环嵌套 在循环语句的循环体中包含有循环语句，就构成了循环嵌套 各种循环语句可以单独嵌套，也可互相嵌套 For i=1 to 10 …… For j=1 to 10 …… Next …… Next For i=1 to 10 …… Do …… Loop While j=i …… Next Do Until i10 …… For j=1 to 10 …… Next …… Loop 问题引出? 我有50元钱。只有面值5元和10元的两种。可能是几张5元和几张10元呢？ 练习-2 赵阿姨有240元钱。有2元、5元、10元三种面值的人民币共50张，其中2元和5元的张数一样多，那么10元的有几张? 练习-3 设a,b,c为3个不为0的正整数，计算并输出下列不定方程组解得个数cnt及满足此条件的所有a,b,c。 不定方程组为： a+b+c=13 a-c=5 练习-4 在工作表1上创建“控件工具箱”命令按钮“产生数据”和“判断”。 单击“产生数据”按钮完成在A1：A10上产生两位随机正整数；单击“判断”按钮完成将其中重复数用红色标注。 需设计两个子过程 看个问题 打印一行10个‘*’符号的程序段： For i=1 to 10 Debug.print “*”; Next i 打印10行10列‘*’符号呢？ 分号表示输出后不换行 打印金字塔 一共要打n行，循环控制：For i=1 to n 每行要打2*i-1个‘*’，循环控制：For j=1 to 2*i-1 打印：Debug.print “*”; 进行下一行时要换行：Debug.print 每行前导空格怎么办？ 每行的‘*’之前有(n-i)个空格。 练习-5 打印以下图形 加大难度 The End