VB语言PPT: 程序流程控制.ppt

  1. 1、本文档共321页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

计数器=初值计数器≤终值语句计数器=计数器+步长FalseTrue下一个语句(a)步长0计数器=初值计数器≤终值语句计数器=计数器+步长FalseTrue下一个语句(a)步长0计数器=初值计数器≤终值语句计数器=计数器+步长FalseTrue下一个语句(a)步长0计数器=初值计数器≤终值语句计数器=计数器+步长FalseTrue下一个语句(a)步长0执行情况:条件语句下一个语句FalseTrue(a)Do…LoopWhile执行情况:条件语句下一个语句FalseTrue(a)Do…LoopWhile执行情况:条件语句下一个语句FalseTrue(a)Do…LoopWhile执行情况:条件语句下一个语句FalseTrue(a)Do…LoopWhile执行情况:条件语句下一个语句FalseTrue(a)Do…LoopWhile执行情况:条件语句下一个语句FalseTrue(a)Do…LoopWhile执行情况:条件语句下一个语句FalseTrue(a)Do…LoopWhile示例:S=0Write(输入正数(-1结束)):X=Val(ReadLine())DoS=S+xWrite(输入正数(-1结束)):X=Val(ReadLine())LoopWhilex0WriteLine(S={0},S)执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil执行情况:条件语句下一个语句TrueFalse(b)Do…LoopUntil示例:S=0Write(输入正数(-1结束)):X=Val(ReadLine())DoS=S+xWrite(输入正数(-1结束)):X=Val(ReadLine())LoopUntilx0WriteLine(S={0},S)用迭代法求。求立方根的迭代公式为:算法设计当|xn+1-xn|ε时,则xn+1为的近似值。例3-11根据迭代公式,求a的立方根的近似值计算过程为:令n=0,由迭代公式得x1,然后判别∣x1-x0∣是否小于ε(给定精度)。若是,则迭代结束,x1作为a的立方根的近似值;否则,进行下一步。令n=1,由迭代公式得x2,然后判别∣x2-x1∣是否小于ε。若是,则迭代结束,x2作为a的立方根的近似值;否则,进行下一步求x3。┇按这样做下去,一直到∣xn+1-xn∣ε(n=0,1,2,…)为止。由于每一步只需前后两次迭代值xn+1和xn进行计算,所以在编程时我们只需两个变量来存放前后两次迭代值。若用u存放前次迭代值和用v存放后次迭代值,则上述计算过程可以使用循环结构来实现。ImportsSystem.ConsoleImportsSystem.MathModuleModule1SubMain()Consteps=0.000001Dima!,u!,v!Write(Ent

文档评论(0)

ning2021 + 关注
实名认证
内容提供者

中医资格证持证人

该用户很懒,什么也没介绍

领域认证该用户于2023年05月10日上传了中医资格证

1亿VIP精品文档

相关文档