Private Sub Form_click() Dim x As Integer, s As Integer x = ___ s = ___ Do While __________
_______ _______ Loop Print "第"; x; "个月"; s; "元" End Sub
•随堂练习阅读程序，指出错在哪？
如何编写？
能用FOR语句？
Do while…loop循环
Do while <条件表达式> 语句组（循环体）
Loop
i=0 Do while s<3
i=i+1 s=s+i Loop print i-1
（1）分析问题
考虑：涉及哪些变量？
每月存的钱数 总钱数 月份
（2）设计算法
①定义变量： 月份X，总钱数S
复习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 元。
Do while…loop循环
❖采用For语句比Do while…Loop更加简明。 ❖一般情况下，能够预先确定循环次数时，应
优先采用For语句，否则的话应该使用Do while…Loop语句
结束
条件n<=1不 成立，始终没 有进入循环
尝试改动程序的一处地方， 使程序计算1+2+3+4+5的结果。
Do while…loop上机实践题
❖ 假设纸的长度足够长，厚度为0.1毫米，对折一次厚度 增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的 高度为之（珠穆朗玛峰的高度为8848.13米），求对折纸 张的次数。 （答案27次） Do while <条件表达式> 语句组（循环体） Loop
②变量初始化： X=0, S=0
③数据处理： X=X+1, S=S+X
④条件判断： 如果S<=500，则返回③
⑤数据输出： 输出X和S的值
பைடு நூலகம்
假设你从今年开始，1月份为 “希望工程”存入1元钱，2 月份存入2元钱，3月份存入3 元钱……依次类推，计算多 少个月才能为希望工程存款 超过 500 元。
（3）编写程序-完善程序题
题1：
i始终等于1,
Dim s,i as intesg不er断自增
s=0
i=1
do While i<=100
s=s+i
loop
print s
A)5050 c)死循环
B)5051 D)无穷大的数
题2：
Dim a,s as integer
n=5
s=0
do While n<=1
s=s+n
n=n-1 loop print s