高一信息技术do while循环课堂.pptVIP

复习for…next循环 ? “ 希望工程存钱”问题。 s=0 For i=1 to 24 s=s+i Next i Print s 程序的循环结构（二） —— do while…Loop语句 “ 希望工程存钱”问题 假设你从今年开始， 1 月份为“希望工程”存入 1 元钱， 2 月份存入 2 元钱， 3 月份存入 3 元钱 …… 依次类推，计算多 少个月才能为希望工程存款超过 500 元。 如何编写？ 能用 FOR 语句？ Do while…loop循环 Do while 条件表达式 语句组（循环体） Loop i=0 Do while s3 i=i+1 s=s+i Loop print i-1 （ 1 ）分析问题 考虑：涉及哪些变量？ 每月存的钱数 总钱数 月份 （ 2 ）设计算法 ①定义变量： 月份 X ，总钱数 S ②变量初始化： X=0, S=0 ③数据处理： X=X+1, S=S+X ④条件判断： 如果 S=500 ，则返回③ ⑤数据输出： 输出 X 和 S 的值 假设你从今年开始， 1 月份为 “希望工程”存入 1 元钱， 2 月份存入 2 元钱， 3 月份存入 3 元钱 …… 依次类推，计算多 少个月才能为希望工程存款 超过 500 元。 （ 3 ）编写程序 - 完善程序题 Private Sub Form_click() Dim x As Integer, s As Integer x = ___ s = ___ Do While __________ _______ _______ Loop 牐湩? 第 ?砠※ 个月 ?猠※ 元 End Sub 题 1 ： Dim s,i as integer s=0 i=1 do While i=100 s=s+i loop print s A)5050 B)5051 c) 死循环 D) 无穷大的数 ? 随堂练习阅读程序，指出错在哪？ i 始终等于 1, s 不断自增 题 2 ： Dim a,s as integer n=5 s=0 do While n=1 s=s+n n=n-1 loop print s 尝试改动程序的一处地方， 使程序计算 1+2+3+4+5 的结果。 条件 n=1 不 成立，始终没 有进入循环 ? 假设纸的长度足够长，厚度为 0.1 毫米，对折一次厚度 增加 1 倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的 高度为之（珠穆朗玛峰的高度为 8848.13 米），求对折纸 张的次数。 （ 答案 27 次 ） Do while…loop上机实践题 Do while 条件表达式 语句组（循环体） Loop