[工学]VB 程序设计08.ppt

第四章 VB基本控制结构(4) 学习目标 for循环的应用 多重for循环 复习 格式 for 循环变量名=初值 to 终值 [step 步长] [循环体] next [循环变量名] 应用 数列求值：归纳法、递推法 循环检查：枚举法，即循环体含判断语句 for循环应用 通过以下各例，进一步掌握for循环 例1：求数列和（递推法） 例2：填数游戏（循环＋判断） 例3：求最大、最小值（循环＋判断） 例4：判断一个数是否为素数（循环＋判断） for循环示例：递推法 1、利用递推法计算 示例 代码： Private Sub Form_Load() Dim i%, k, t, s k = 1 ：t = 0 ：s = 0 For i = 1 To 10 k = i * k t = t + k s = s + t Next i Print s End Sub 模拟检查 for循环示例：填数游戏 相关练习：彩票号码 一个四位数字的彩票号码 它是11的倍数； 中间两位数字构成一个平方数； 且这两位数字之和等于第一位数； 猜猜看，这个彩票的号码是多少？ 幸运的彩票 分析： 这是例2的“翻版”，对四位数字做循环检查，分离出每位数字后，套用条件即可。 代码： Private Sub Command1_Click() For x = 1001 To 9999 Step 11 a = x \ 1000 b = (x - 1000 * a) \ 100 c = (x - 1000 * a - 100 * b) \ 10 d = x Mod 10 y = 10 * b + c If b + c = a And Int(Sqr(y)) = Sqr(y) Then Print x Next x End Sub for循环示例：求最值 3、输入10个数，打印其中最大、最小的数。 Private Sub Form_Load() a = Val(InputBox(请输入第 1 个数)) Max = a ：Min = a For i = 2 To 10 a = Val(InputBox(请输入第 i 个数)) If a Max Then Max = a If a Min Then Min = a Next i MsgBox 最大值为 Max vbCrLf 最小值为 Min, 64, 输出结果 End Sub 相关练习：歌手大赛 歌手大赛程序 for循环示例：判断素数 4、判断一个数x是否是素数 素数：只能被1和自身整除的数，如2、3、5... 检验方法：从2～x-1的所有数做除数，只要有一个能整除，就非素数。 for循环示例：判断素数 代码： Private Sub Command1_Click() dim x%, a%, flag as boolean x=val(text1) : flag=true for a=2 to x-1 if x mod a=0 then flag=false : exit for next a if flag then text2=是素数 else text2=非素数 End Sub 多重循环 又称循环的嵌套，指一个循环包含另一个循环。 通过以下各例，学习多重循环： 九九乘法表（2重） 水仙花数、百鸡问题（3重） 射击问题（5重） 填数游戏（ 5重） 多重循环的引入：九九乘法表 例1：（多重循环的第一个程序）九九乘法表 要求： 打印第一行1×1＝1，……， 1×9＝9 代码： 多重循环：九九表 分析： 多重循环：九九表 代码 多重循环：九九表 实验：在vb中检验程序结果 思考：如何打印教材P72－5形式的结果？ 修改： 多重循环的特点 总结：内层变化快、外层变化慢； － 如上例中，数对(a,b)分别取值为： (1,1), (1,2), ..., (1,9), (2,1), (2,2), ..., (2,9), ..., (9,1), (9,2), ..., (9,9) 公式：总的循环次数＝各层次数之积 语法要求