第3章流程控制及程序调试5.pptVIP

练习 1.利用循环结构，实现如下功能： 2.分别统计1~100中满足3的倍数、7的倍数的数各为多少。 作业:实训3 3.3 循环结构 – Do While…Loop循环 特点：只要条件表达式成立就执行循环体语句，不一定非有循环变量控制循环次数，因此适合于循环次数不确定场合。 语法格式： Do While 条件表达式 [循环体语句] Loop 条件表达式成立？ 执行循环体语句 yes no 求1-100的和 IF i1=00 Sum=0:i=0 Sum=sum+i i=i+1 Yes IF i1=00 Sum=0:i=0 Sum=sum+i i=i+1 No Yes Dim i As Integer, sum As Integer Do While i = 100 sum = sum + i i = i + 1 Loop MsgBox(1+2+……+100= sum) 3.3 循环结构 – Do While…Loop循环 【例3.10】某人在银行存款5000元，按年利率5%计，多少年后本息之和能达10000元？ 计算本息和的公式： p为本金，r是年利率，n是存款年数 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Dim a As Single, r As Single, n As Integer a = 5000 : r = 0.05 Do While a 10000 a = a * (1 + r) n = n + 1 Loop MsgBox(n 年后本息和达到 a 元, , 例4.0) End Sub 3.3 循环结构 – Do While…Loop循环 【例3.11】通过键盘输入一个班级若干个学生的考试分数，以-1为输入结束标志，并计算所输入成绩的平均分。 Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Dim x As Integer, avg As Single, n As Integer x = InputBox(请输入第一个成绩：) Do While x -1 avg = avg + x x = InputBox(请输入第 n 个成绩：) n = n + 1 Loop avg = avg / n MsgBox(共 n 个人，平均成绩为 avg) End Sub 3.3 循环结构 – 循环嵌套 【例3.15】计算下列表达式的值，直至某项的绝对值 小于0.0001 本题的特点： 不知一共有几项：所以外循环用Do While…Loop 符号为正负交替：要考虑解决符号位的问题 分子、分母的值都和项数有关：每项值的计算可以用For…Next 3.3 循环结构 – 循环嵌套 代码： Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click Dim i As Integer, j As Integer, sum As Single, s As Integer, sign As Integer, x As Single sign = 1 : i = 1 : x = 1 / 3 Do While x 0.0001 sum = sum + sign * x i = i + 1 s = 0 For j = 1 To i + 1 s = s + i Next x = i