VB控制结构多重循环课件.ppt

第4章 Visual Basic语言基础5 提要 多重循环 常用算法 重点 多重循环 常用算法 For n = 101 To 300 Step 2 Next n Private Sub Form_Click() Dim S#, T#, i, n% n = Val(InputBox(n=)) T = 2: S = 1 初值 For i = 1 To n S = S * T S为连乘 T = (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) t为每一项 Next i Print S End Sub Private Sub Form_Click() Dim i%, n, T!, S! S = 0: A = 1 i = 1: T = 1 i计数器、t第i项的值 Do While T = 0.00001 S = S+ T 累加 Print 第 i 项的值为 T A= A * i: i = i + 1 连乘 T= 1 / A Loop Print 计算了; i; 项的和是 ; S End Sub 累加/连乘算法__小结 累加 初值：S=0, T=第一项 通用公式： S=S+T : … :T=B/A 连乘 初值：S=1, T=第一项 通用公式： S=S*T : … :T=B/A 说明: T=B/A中的A或B均可为常量或变量表达式 若A=1, 则T=B 若B=1, 则T=1/A 课后任务3 课后习题P56一.选择题 P61二.填空题 P66三.编程题(3 4) 实验四 P21实验案例一 P22 三.实验内容(3) * 4.7.5 多重循环——循环嵌套 For I= 1 to 5 Step 1 …… Next I For J= 1 to 3 Step 1 …… Next J 一个循环结构的循环体内包含了另一个循环结构. 嵌套一层称为二重循环 多重循环中遇Exit For(Do)，只跳出当前一层循环. 讨论多重循环 内、外循环的循环变量不可同名. 内、外循环不可交叉 (外循环完全包含内循环). 执行次数 当外循环执行一次，内循环全部执行. 内循环执行总次数=外循环次数×内循环次数 For I= 1 to 5 Step 1 …… Next I For J= 1 to 3 Step 1 …… Next J For I= 1 to 5 Step 1 …… Next I For I= 1 to 3 Step 1 …… Next I 错误 正确 For I= 1 to 5 Step 1 …… Next J For J= 1 to 3 Step 1 …… Next I For i=1 to 6 step 1 Print ＊ Next i For i=1 to 6 step 1 Print ＊ ; Next i 问题1: 要求利用循环结构在一列打印6个“＊” 问题2:要求利用循环结构在一行打印6个“＊”, 如何修改? 归纳:分隔符“;”——使多个内容一个个紧跟着打印输出 For k=1 To 3 Next k For i=1 to 6 Print ＊; Next i Print 问题3: 打印3行，每行6个“＊”，如何解决？ For i = 1 To 6 Step 1 Print ＊; Next I Print For i = 1 To 6 Step 1 Print ＊; Next i Print For i = 1 To 6 Step 1 Print ＊; Next i 循环嵌套结构 结论 单层循环：控制一行上的所有列,采用“紧凑”方式输出; 双层循环：内循环控制一行上的所有列,外循环控制所有行. For I = 1 To 9 For J= 1 To 9 Next I End Sub For J= 1 To 9 Print J; x; 1; =; 1*J; Next J 示例: 打印九九乘法表. Print J; x; 1; =; 1*J; Print J; x; I; =; I * J; Print 输出一行所有列