VB控制结构_多重循环.ppt

提要 多重循环 常用算法 重点 多重循环 常用算法;4.7.5 多重循环——循环嵌套 ;讨论多重循环;For i=1 to 6 step 1 Print ＊ Next i;For k=1 To 3 Next k; For I = 1 To 9 For J= 1 To 9 Next I End Sub; For I = 1 To 9 For J= 1 To 9 Print J; x; I; =; I * J; Next J Print Next I;课后任务: 打印金字塔__(选做);课堂思考; 判断一个数n是否为素数?;For n = 101 To 300 Step 2 Next n;1.最大、最小值 ——课本P12 (打擂台) 若干数求最大值, 一般先假设第一个数为最大值初值; 然后将剩余的每一个数与最大值比较, 若该数大于最大值, 将该数替换为最大值；依次逐一比较.(求最小值:方法相同);计算1∽100的3或7的倍数的和 ;分析: 每一项和每次累加之和都是变化量 因此，需要两个变量 用T表示每一项的值:T=T+1 用S表示累加之和:S=S+T 循环终止条件: 循环次数n 初始化: S=0;例: 计算 s=1×1/2×1/3× … ×1/n;课后任务2__(实验);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;例:用 公式求圆周率的近似值，直到最后一项t的绝对值小于10-4为止.;例:求自然对数e的近似值,要求直到最后一项t的值小于0.00001，近似公式为:;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;累加/连乘算法__小结; 设小鸡x只、公鸡y只、母鸡z只，列出方程： x+y+z=100 0.5x+2y+3z=100 可见，三个未知数，两个方程，此题有若干个解。 可穷举X、Y、Z的每一种取值，符合就是其中一种方案;课外思考 勾股定理中3个数的关系是：a2+b2=c2。编写程序，输出20以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。;4.递推法 (课本P11) ;1. 多重循环的内??循环之间的联系 2. 常用算法:累加、最值、穷举、素数等;循环控制结构常见错误;课后任务3