数据库技术与程序设计 (49).ppt

While循环语句 数据库技术与程序设计Do While 循环语句1.第一种命令格式Do While Exit Do Loop功能：首先计算条件表达式的值。若条件表达式取值为逻辑 真，则执行Do与Loop之间的语句序列（即循环体）。执行到Loop时，返回到循环起始语句Do While，并再次计算条件表达式的值。之后重复上述步骤，直到条件表达式取值为假，结束循环。循环条件循环体数据库技术与程序设计Do While 循环语句例：求s=1+2+3+10的值。Public Sub Example1()Dim i As Integer,s As Integer s=0 i=1 Do While i=10 Debug.Print i;s=s+i Debug.Print s i=i+1 Loop Debug.Print s=,s End Sub数据库技术与程序设计问题如果求10!，也就是1*2*3*10呢？程序该如何修改？Do While 循环语句数据库技术与程序设计Do While 循环语句例：求阶乘10!Public Sub Example2()Dim i As Integer,s As Long s=1 i=1 Do While i=10 s=s*i i=i+1 Loop Debug.Print s=&s End Sub利用for语句如何实现？数据库技术与程序设计Do While 循环语句例：求阶乘10!Public Sub Example2()Dim i As Integer,s As Long s=1 i=1 Do While i=10 s=s*i i=i+1 Loop Debug.Print s=&s End Sub改写为for语句：Public Sub Example22()Dim i As Integer,s As Long s=1 For i=1 To 10 s=s*i Next i Debug.Print s=&sEnd Sub数据库技术与程序设计Do While 循环语句问题，如果用户输入k，求2+4+6+k的值，该如何实现呢？注意：s的初值i的初值循环条件？i如何变化s如何计算数据库技术与程序设计Do While 循环语句例用户输入k，求2+4+6+k的值Public Sub Example3()Dim i As Integer,s As Integer,k As Integer k=Val(InputBox(请输入整数k：)s=0 i=2 Do While i=k s=s+i i=i+2 Loop Debug.Print s=,sEnd Sub数据库技术与程序设计Do While 循环语句数据库技术与程序设计Do While 循环语句2.第二种命令格式Do Exit Do Loop While 数据库技术与程序设计Do While 循环语句Do While Exit Do LoopDo Exit Do Loop While 第一种命令格式先判断条件，条件为True，处理循环体；第二种命令格式先执行一次循环体，然后判断条件表达式。数据库技术与程序设计Do While 循环语句例2005年1月，我国人口达到了13亿，按照现有人口年增长率0.8%计算，多少年后，我国人口会达到现有人口的两倍。Public Sub Example4()Dim n%,x!x=13n=0Do x=x*1.008 n=n+1Loop While x 26Debug.Print(用循环求得的年数为：&n&人数为：&x)End Sub数据库技术与程序设计Do While 循环语句数据库技术与程序设计Do While 循环语句例计算下列算式的结果：s=1-1/2+1/3-1/4+1/5-1/6+（直到100）。Public Sub example5()Dim i As Integer Dim s As Double i=1 s=0 do While i=100 i小于100时循环 s=s+(-1)(i+1)/i i=i+1 i不断增加，最后大于100，才能使循环结束 loop 或 While i=100 Debug.Print s=;s 输出的样子由编程者设计End Sub数据库技术与程序设计Do While 循环语句