- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
练习 实验教程:实验5 教 学 课 件 循环结构 在Visual Basic程序的三种结构中,循环结构是一种重要结构。 循环的本质:不断地重复某种动作。 对计算机程序而言,循环必须具备两个重要因素: 1. 在一定的条件下,重复执行一组语句 2. 必然出现不满足条件的情况,使循环终止 思考题 编写程序实现计算:0+1+2+3+4+…+n的值 前后两项之差都为1,是一个等差数列 Sum=0 Sum=sum+1 Sum=sum+2 Sum=sum+3 … Sum=sum+n Sum=sum+i i=i+1 i是从1到n递增1的数列 重复执行n次 一、循环程序设计结构 VB中提供了两种类型的循环语句:一种是计数循环语句;另一种是条件循环语句。Visual Basic 支持的循环结构有: ☆ For...Next结构 ☆ Do…Loop 结构 ☆ While…Wend ☆ goto 重点掌握: Do…Loop、 For.Next、 While…Wend等前三种循环 1、For…Next循环结构 循环体 Exit For 循环体 循环变量增加步长 循环变量获得初值 F T 循环变量在终值内 For循环的执行过程 语法格式: For 循环变量 = 初值 To 终值 [Step 步长] 循环体 [ Exit For ] 循环体 Next [循环变量] 记住了 编程计算:S=1+2+3+…+100 Dim S%, i% S=0 For i=1 to 100 S=S+i Next i Print i,S 思考: 求100以内的奇数和、偶数和怎样改程序? 求10!怎样改程序? 注意执行过程!! 循环结束后循环变量i的值为多少 说明 ① 格式中的参数说明: 循环的初值、终值和步长都是数值表达式,其值不一定是 整数,可以是实数。 增量参数可正可负。如果增量为正,则初值必须小于等于 终值,否则不能执行循环体内的语句;如果增量为负,则 初值必须大于等于终值。如果没有设置step,则增量默认 为1。 当初值等于终值时,不管步长是正数还是负数,都执行一次循环体。 ②循环次数由初值、终值和步长决定,计算公式为: 循环次数=INT((终值 – 初值)/步长+1) ③ For语句和Next语句必须成对出现,不能单独使用。 Next是循环终端语句,在Next后面的循环变量与For中的循 环变量必须相同。当循环是单层循环时,Next后面的循环变量 可以不写。 ④ 如果要在循环变量到达终值前退出循环,可用Exit For语句来实现。该语句可以在For循环中出现多次,且位置不限。 如:前例中加入条件“当sum超过400时跳出循环”。 For i=1 to 500 step 100 S=S+I If s400 then Exit for Next i Print i,S 2、Do…Loop循环结构 Do…Loop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式: ⑴ . Do While … Loop 语句 先判断条件值,如果为真,执行循环体,否则退出 ⑵ . Do Until …Loop 语句 先判断条件值,如果为假,执行循环体,直到为真时退出 ⑶ . Do … Loop While 语句 先执行循环体,后判断条件值,为真继续循环,否则退出 ⑷ . Do … Loop Until 语句 先执行循环体,后判断条件值,为假继续,直到为真退出 ⑴. Do While … Loop语句 Dim S%, i% S=0 For i=1 to 100 S=S+I If s400 then Exit for Next i Print S=,S Dim S%, i% S=0 i=1 Do while s=400 S=S+i i=i+1 Loop Print S=,S 语法格式: Do Until〈条件表达式〉 〈循环体〉 [Exit Do] 〈循环体〉 Loop (2) Do Until …Loop语句 语法格式: Do While 〈条件表达式〉 〈循环体〉
文档评论(0)