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

上传人:刘静 文档编号:83299175 上传时间:2023-03-30 格式:PPT 页数:15 大小:1.94MB
返回 下载 相关 举报
数据库技术与程序设计 (49).ppt_第1页
第1页 / 共15页
数据库技术与程序设计 (49).ppt_第2页
第2页 / 共15页
点击查看更多>>
资源描述

《数据库技术与程序设计 (49).ppt》由会员分享,可在线阅读,更多相关《数据库技术与程序设计 (49).ppt(15页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、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

2、 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 循环语句

3、例:求阶乘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

4、如何变化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

5、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 循环语句

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 教育专区 > 大学资料

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁