2.9 do循环语句课件.pptVIP

1.Do循环语句的基本格式 * * * * 1.For循环语句的基本格式： For 循环变量 = 初值 to 终值 [step 步长] 语句组 Next 循环变量 Private Sub Command1_Click() For i = 1 To 10 s = s + i Next i Print s=; s End Sub 2.请思考下面这个程序的运行结果、循环次数、程序结束时i的值。 S=55 i=11 10次 第二章 程序设计基础 第二章 程序设计基础 如何成为千万富翁 假如你有了这样一个存钱计划：第一天存1元，第二天存2元，第三天存4元，第四天存8元，每一天存的钱都是前一天的2倍，那么这样一个月（按30天计算）共存多少钱？ 请同学们将程序补充完整 Dim n As Integer, money As Double, sum As Double money = ___ sum = ___ For n = ___ To ___ step __ money = money *__ sum = sum + __ Next __ Print “30天共存”; ____; “元 小结：For循环语句适合于已知循环次数的循环. 1 0 1 30 1 2 money n sum 第二章 程序设计基础 第一天存1元，第二天存2元，第三天存4元，第四天存8元，每一天存的钱都是前一天的2倍，如果要计算多少天之后，存款能超过100000元（即十万元）该怎么办呢？ 循环执行的次数不确定，怎么办？ 第二章 程序设计基础 第二章 程序设计基础 2.4.2 Do 循环语句 分析过程： sum100000 第几天n 存钱总数sum 存钱数 money 存钱 天数 第1天 money=1 sum=0+1 n=1 False 第2天 money=2 sum=0+1+2 n=2 False 第3天 money=4 sum=0+1+2+4 n=3 False 第4天 money=8 sum=0+1+2+4+8 n=4 False 第5天 money=16 sum=0+1+2+4+8+16 n=5 False money=2*money sum=sum+moeny n=n+1 …… money Sum100000 n True 2.4.2 Do 循环语句 2.Do循环语句的执行过程 Do 循环体 Loop Until 循环终止条件 执行循环体 滿足循环终止条件吗？ 是 否 第二章 程序设计基础 第二章 程序设计基础 2.4.2 Do 循环语句 第二章 程序设计基础 第二章 程序设计基础 2.4.2 Do 循环语句 Dim n As Integer, a As Double, s As Double money = 1 sum = 0 n = 0 money = ______ n = ______ sum = ______ sum Print 第; n; 天之后存款能超过10万元 Do Loop Until Do:循环起始语句,作用是从Do开始先执行一次循环体。 Loop: 循环 Until: 直到……停止，不执行。 money * 2 n+1 sum+money s=1 开 始 n=0 输出s的值 结 束 是 输入n的值 s=s*n n=n-1 否 第二章 程序设计基础 2.4.2 Do 循环语句 编写程序，输入正整数，计算它的阶乘n！ Dim n, s As Double n = InputBox(请输入n的值：, 输入) s=1 Do s=s*n n=n-1 loop until n=0 Print n!=; s *