VB程序设计do循环实例课件

1、课前回顾：课前回顾： FOR语句格式：语句格式： For 循环变量循环变量 = 初值初值 to 终值终值 step 步长步长 循环体循环体 Next 循环变量循环变量 x=0 For i=1 to 20 if (i mod 2=0) and (i mod 3=0) then x=x+i end if Next i Print x S=0 For k= 3 to 5 S=s+3 Next k Print s 练习(学业水平测试题) 1、s=1+1/2+1/3+1/4+1/n，当，当n=?时，时，s第第 一次大于一次大于10。 请同学们仔细观察，用曾经学过的程序设请同学们仔细观察，用曾经学过的程序

2、设 计的方法能解决这两个问题吗？计的方法能解决这两个问题吗？ 想一想：想一想： 流程图流程图 表达式是 否为真 循环体循环体 LOOP y n 如：我从如：我从0岁到岁到1岁每天吃饭用岁每天吃饭用while表示？表示？ 注意：注意： 1、定义初值、定义初值 2、确定条件表达式、确定条件表达式 3、写循环体（循环体中要有能改变循环条件的语句）、写循环体（循环体中要有能改变循环条件的语句） i=0 do while i=364 吃饭吃饭 i=i+1 loop For I=0 to 364 step 1 吃饭吃饭 next i 例例1、s=1+1/2+1/3+1/4+1/n， 当当n=?时，时，s第

3、一次大于第一次大于10 Do While 条件表达式条件表达式 循环体循环体 Loop Do While.Loop语句的功能：语句的功能： 当条件成立当条件成立(为真为真)时，执行循时，执行循 环体；当条件不成立环体；当条件不成立(为假时为假时)， 终止循环终止循环 程序：程序： S=0 n=0 do while （ ） n=n+1 s=s+1/n loop msgbox n 累加器 计数器 特征：无法预先知道循环的次数，特征：无法预先知道循环的次数， 在递推过程中才能确定是否结束循在递推过程中才能确定是否结束循 环环 s=10 利用利用DO循环写程序要点：循环写程序要点： （1）首先要确定初

4、值）首先要确定初值 （2）确定满足循环条件的表达式（逻辑型）确定满足循环条件的表达式（逻辑型） （3）写循环体，）写循环体，在循环体中一定要有能改在循环体中一定要有能改 变循环条件变量的表达式变循环条件变量的表达式 说明：For循环只能用在循环次数已知的情况； 凡是用FOR循环的程序都可以用DO循环来写； 而循环次数未知时，只能用DO循环。 上机实践：上机实践：津津将津津将10000元钱存入银行，银行的年利率元钱存入银行，银行的年利率 为为1分（即分（即10%），如一直不取出，问按照利滚利的计），如一直不取出，问按照利滚利的计 算方法，至少经过多少年津津才能拿到算方法，至少经过多少年津津才能拿

5、到150000元？元？ Dim s as single, year as integer s = 10000 year = 0 Do While _ _ s = s * (1 + 0.1) Loop MsgBox year 分析：分析： 第一年：第一年： S1=10000*(1+0.1) 第二年：第二年： S2=S1*(1+0.1) 第三年：第三年： S3=S2*(1+0.1) year = year + 1 S150000 思考：如何取出三位数的每位数字？思考：如何取出三位数的每位数字？ 流程图流程图程序代码程序代码 100=i=999 a=i100 b=i10 mod 10 c=I mod

6、 100 i=a3+b3+c3 输出i 是 退出 i=i+1 Private Sub Command1_Click() Dim I, a, b, c As Integer I = 100 Do While I = 999 a = I 100 b = I 10 Mod 10 c = I Mod 10 If I = a 3 + b 3 + c 3 Then n = n + 1 List1.AddItem Str(I) End If I = I + 1 Loop Text1.Text = Str(n) End Sub 列表框列表框 列表框的功能：多列显示。 Additem方法：增加新项目如方法：增加新项目如: list1 . Additem str(4) removeitem方法：删除项目，小心：列表框第一个序号是方法：删除项目，小心：列表框第一个序号是 如：如： litst1.removeitem 4 clear方法：清除所有项目方法：清除所有项目 如：如：list1.clear 控件方法使用格式：控件名控件方法使用格式：控件名.方法方法值值说明：可以没有值说明：可以没有值 控件名称：image 图片框 功能：可以加载图片、显示 文字、画图外，它还能与 Frame对象一样，在自己本 身里头加载其它的对象而自 成一个小群组 属性：picture(加载图片） stret