1、1强烈要求同学们注意：循环语句的功能介绍和应用的内容是程序设计课程的难点和重点，必须全力以赴注意听讲！下面我们分两节课来讲解。第 38 讲 循环语句 的功能介绍和应用（上）P21P95先复习一下上节课内容：1、VB 的立即方式，几个常用函数的使用介绍（演示）：打开 矩形求解.FRM 的立即窗口? Str(10)+Str(5)? Val(“10”)+ Val(“5”)? Fix(6.1), Fix(6.7), Fix(-6.1),Fix(-6.7)Fix(x)的 值 为 截 去 x 的 小 数 部 分 后 的 整 数 部 分 ， 而且不四舍五入。S=888？ “S=“; S 两个以上表达式可以用
2、“， ”或“；”分隔，用“；”结果是前后紧接在一起；? “S=“+ Str(S) 和上面结果一样2、补讲 2 个函数：(1)、输入函数 ：InputBox(x) 运行时，会弹出一个输入框，函数值是你键盘输入的值，例如在 矩形求解. FRM 中，语句 L = Text1.Text 可用：L=InputBox(“ L=”, “请输入长度”,30)来代替，演示；格式：InputBox(“提示字符串”, “输入框名称”,默认值)从上面演示中，凡是单引号 后面的内容都不运行，单引号 后面的内容仅是注释内容； （5）输出函数：MsgBox(表达式) 弹出一个输出信息框，把表达式的值显示出来，例如在程 矩形
3、求解.FRM 中，语句 Text3.Text = d 可用：MsgBox(d)代替，演示； MsgBox(表达式) 中的表达式可以是字符串（文本） ，例如：语句 Text4.Text = “有二条相同的边长 : 高 h=宽 w=“ + Str(L / 4) + “cm“可用：MsgBox (“有二条相同的边长: 高 h=宽 w=“ + Str(L / 4) + “cm“)来代替；演示：当 L=100，S=625 时， d=0，只有一个根;一、循环结构 复习例 2：求 S=1+1/2+1/3+1/n示意性程序如下：（S=S+1/k， k=1,2,3,n）1 输入 n 值=1002 S=0 : k
4、=1 3 Y3 如果 kn 转到 7 N4 S=S+1/k5 k=k+16 转到 3 6 转到 3 7 S7 输出: S 8 结束执行语句：1、2 行执行程序段：4、5条件2True; 当至 少 有 一 个 条 件 为 真 时 ；False; 2 个 条 件 都 为 假 时 ；二、循环语句功能演示：执行例 2：求 S=1+1/2+1/3+1/n 的 例 2 累加求和 程序.FRM;求 S=1+1/2+1/3+1/n 的例 2 程序的 VB 程序代码如下：Private Sub Command1_Click() 插入下面程序段，可限制 n 只能输入自然数： S = 0n = Text1.Text
5、=100For k = 1 To n Step 1S = S + 1 / kNext k=100+1=101Text2.Text = SEnd Sub注：逻 辑 运 算 符 or 是 ： 或 者 意 思 ，条 件 表 达 式 1 or 条 件 逻 辑 表 达 式 2=逻 辑 值(演 示 ： 用 立 即 方 式 验 证 Fix(x)和 or) P71-731、 For 语句的一般格式： P79For 循环变量=初值 To 终值 Step 步长程序段Next 循环变量执行功能流程图如下：N Y循环程序功能示例：(执行 两种循环语句示例.FRM)(1) S=0For K = 1 To 10 Step
6、 1 (注意：Step 1 可省略 )Print K 1,2,3,4,10S = S+K 0+1+2+3+ 10 Next K 执行：K K+1，K终值 10? Print Sn = Val(n)Do While n Fix(n)n = InputBox(“输 入 n 不 是 自 然 数 ， 请 重 新 输 入 n=?“)Text1.Text = nn = Val(n)Loop循环变量 初值，把终值、步长记录下来（一次性保存下来）循环变量超过终值？执行循环体内程序段 结束循环循环变量 循环变量+步长3大于终值; 当步长为正时 ；小于终值; 当步长为负时 ；Print K=终值+步长下面讨论 F
7、or K = 1 To 10 Step 1 的其它改变情况：(2) For K = 1 To 10 Step 2 (3) For K = 10 To 1 Step -1 K10+(-1), 9+(-1), 8+(-1),.,直到 K=0 Fix(n)Do While 条件表达式程序段Loop执行功能为：当条件表达式= True(成立时) ，执行执行循环体内程序段，否则（False）终止 Do 语句循环，其执行功能流程图参见：课本 P80 图 4.3.4。示范程序：在上例 2 程序中我们要限制输入的 n 只能输入自然数，要补充程序段如下：n = Val(n)Do While n Fix(n) （
8、 只 要 一 个 条 件 成 立 ， 说 明 n 不 是 自 然 数 ）n = InputBox(“输 入 n 不 是 自 然 数 ， 请 重 新 输 入 n=?“)Text1.Text = nn = Val(n)Loop注：逻 辑 运 算 符 or 是 ： 或 者 意 思 ，条 件 表 达 式 1 or 条 件 逻 辑 表 达 式 2=逻 辑 值(演 示 ： 用 立 即 方 式 验 证 Fix(x)和 or) P71-73上 面 Do While 程 序 段 的 功 能 就 限制输入的 n 只能输入自然数：演 示 两 种 循 环 语 句示 例 .FRM 并 查 看 程 序 代 码演 示 ：
9、查 看 上 例 2 累加求 和程序.FRM（求 S=1+1/2+1/3+1/n） 程 序 代 码 并 运 行（提问 2：在保持程序功能不变的情况下，你能不能把上面的 For 循环语句改成 Do 语句呢？）五、循环语句的应用程序举例5（一） 、枚举算法介绍：P21/P95像公检法系统审查案件时用的逐一排查嫌疑对象的方法一样，现实世界中有一类问题可以采用搜索的方法，在搜索结果的过程中，把各种可能的情况都考虑到，并对全部可能结果逐一进行判断，过滤掉那些不符合要求的，保留符合要求的结果，这种方法叫做枚举算法(enumerative algorithm)。枚举算法就是按问题本身的性质，一一列举出该问题所
10、有可能的解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解，若是，就采纳这个解，否则就抛弃它。在列举的过程中，既不能遗漏也不应重复。1、枚举算法编程举例 1（数字填空题）：枚举算法一般用循环结构来实现，例如：数字填空题如下：已知： 25?6=37 或 67 的倍数， 求出满足条件的所有?数字；可知：?=00-99, ?6=(0-99)*10+6, 25?6=25006+(0-99)*10;所以：设循环变量为 j,则 j=0-99, 25?6=25006+j*10;其算法流程图参见：课本 P22 图 2.1.2，其中 C=C+1,统计满足条件的 5 位数个数。算法流程图动画演示：数字的
11、推算.swf实际参考程序见： 枚举算法.FRM（演示） 。说明：在程序中：（1） If n / 37 = Fix(n / 37) Or n / 67 = Fix(n / 67) Then上面的条件成立，则表示 n 可以被 37 或 67 整除，（2） List1.AddItem n 表示把 n 值显示在列表框 List1.AddItem 中List1.AddItem “c=“ + Str(c)是把结果字符串 n 或“c=“ + Str(c)按次序显示在列表框（对象）上，一般格式：列表框对象名. AddItem 空格字符串 （使用演示）列表框对象的功能比文本框对象的优点是能显示多行结果。再次复习
12、提醒： 列表框 List1.AddItem 的 List1 是默认对象名可改名，其属性名 AddItem 不能改。注意：列表框对象名. AddItem=字符串，是错误的，不能用=，只能用空格，这和文本框和标签框对象=赋值不同。2、枚举算法编程举例 2（ 求约数倍数.frm）：(1)、求约数：如果 i 是 n 的约数，则条件：n / i = Fix(n / i)成立；用立即方式验证、理解：100/25=Fix(100/25) 成立； 100/27=Fix(100/27) 不成立；6问：100 以内的约数是那几个？我们要输入 n=100，需要对 i=1,2,3,.100 进行循环验证：（演示： 求
13、约数倍数.frm） 。(2)、求 m 的倍数 i：（0n 范围内）我们知道：i=m、2*m、3*m、.，k*m 是 m 的倍数（k*m=n） ，我们可以对 k 作为循环变量进行循环（步长 Step 1，K=1,2,3,4,.） ，k*m 就是是 m 的倍数；但我们也可直接把 i 作为循环变量进行循环，这时 i=k*m 就是是 m 的倍数（步长 Step m）：（演示： 求约数倍数.frm） 。六、循环语句功能练习1、 阅 读 理 解 Do 语句循环的执行功能流程图（参见：课本 P80 图 4.3.4） 。2、运行 For 语句和 Do 语句的 两 种 循 环 语 句 示 例 .FRM，掌握它们的功能；3、执行例 2：求 S=1+1/2+1/3+1/n 的 例 2 累加求和程序.FRM，理解程序代码中的For 语句和 Do 语句的作用。4、运行枚举算法的程序 枚举算法.FRM (数字填空程序)，掌握循环语句的基本编程能力；5、理解例 2（ 求约数倍数.frm）的算法，修改求 m 的倍数 i 程序，用对 k 进行循环（步长 Step 1）的方法求倍数。2012/02/16
