版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、第七章 Visual Basic控制结构-循环结结构 在Visual Basic程序的三种结构中,循环结构是一种重要结构。循环的本质:不断地重复某种动作。对计算机程序而言,循环必须具备两个重要因素:1. 在一定的条件下,重复执行一组语句2. 必然出现不满足条件的情况,使循环终止一、循环程序设计结构 VB中提供了两种类型的循环语句:一种是计数循环语句;另一种是条件循环语句。Visual Basic 支持的循环结构有: DoLoop For.Next WhileWend GoTo 语句重点掌握: DoLoop、 For.Next、 WhileWend等前三种循环1、DoLoop循环结构 DoLoo
2、p循环用于事先不知道循环次数的循环结构。此种语句四种语法格式: . Do While Loop 语句 . Do Loop While 语句 . Do Until Loop 语句 . Do Loop Until 语句 . Do While Loop语句语法格式:Do While 条件表达式 循环体 Exit Do 循环体 LoopTF条件循环体流程图说明: 条件表达式可以是一个逻辑表达式,也可以是一个关系表达式,其值应是逻辑型。 Do While和Loop应成对出现。 循环体中要有改变循环控制变量值的语句,以避免出现死循环。 由于该循环的特点是先判断条件,然后再决定是否要执行循环体里的语句。所以
3、,这种循环可以一次也不执行循环体。 Exit Do 表示当遇到该语句时,强制退出循环,执行Loop后的下一条语句,一般与If 语句联用(2). Do Loop While语句语法格式: Do 循环体 Exit Do 循环体 Loop While条件表达式流程图TF条件循环体注意: 至少要执行循环体一次。 与Do While循环的区别:Do While循环先测试条件是否成立,只有成立才执行循环;而该循环先执行循环体,后测试条件是否成立。语法格式: Do Until条件表达式 循环体 Exit Do 循环体 Loop . Do Until Loop语句Do Until Loop语句流程图 . Do
4、 Loop Until语句格式:Do 循环体 Exit Do 循环体 Loop Until条件表达式TF条件循环体Do Loop Until语句流程图FT条件循环体A=val(InputBox(“请输入第1个学生成绩”)B=val(InputBox(“请输入第2个学生成绩”)C=val(InputBox(“请输入第3个学生成绩”)Avg=(A+B+C)/3Print Avg编程:通过输入对话框输入三个学生成绩,计算成绩平均分。 此程序存在问题:如果需要输入20个成绩或更多或成绩个数根本不确定,则几乎让人无法忍受编程:通过输入对话框输入10个学生成绩,计算成绩平均分。i=1Do While i=
5、10 A=val(InputBox(“请输入第1个学生成绩”) i=i+1LoopAvg=(A+B+C)/10Print Avg思路:在前一程序的基础上作些改动,10个数据的输入过程用循环实现:让第一个输入语句循环10次思考:此程序存在哪些问题?1、输入的前面9个成绩丢失,B 和 C中无值2、输入对话框中的提示总是显示“第1个”解决办法:1、每个输入的成绩即时累加;2、提示信息分解成三部分: “请输入第” 、变量i 、 “个学生成绩”i=1:s=0Do While i=10 A=val(InputBox(“请输入第” & i & “个学生成绩”) s=s+Val(A) : i=i+1LoopA
6、vg=s/10Print Avg编程:通过输入对话框输入若干成绩,如果输入的成绩为-1,表示输入数据完毕,计算成绩平均分。 s = 0 : n = 1 cj = Val(InputBox(请输入第 & n & 个成绩) Do While cj -1 s = s + cj n = n + 1 cj = Val(InputBox(请输入第 & n & 个成绩) Loop avg= s / (n-1) Print 平均成绩为: ; avg2、ForNext循环结构循环体Exit For循环体循环变量增加步长循环变量获得初值FT变量在终值内?For循环的执行过程语法格式:For 循环变量 = 初值 T
7、o 终值 Step 步长 Exit For Next 循环变量例题: 编程计算:S=1+2+3+100Dim S% , i%S=0 累加前变量S为0For i=1 to 100 S=S+iNext iPrint S= , S 说明 格式中的参数说明: 循环变量必须为数值型。 循环的初值、终值和步长都是数值表达式,其值不一定是整数,可以是实数,VB自动取整。其中,增量参数可正可负。如果增量为正,则初值必须小于等于终值,否则不能执行循环体内的语句;如果增量为负,则初值必须大于等于终值。如果没有设置step,则增量默认为1。 在For语句和Next语句之间的语句序列称为循环体,可以是一个或多个语句。
8、 Exit For为强行退出循环语句。当遇到该语句时,退出循环,执行Next的下一个语句。 Next是循环终端语句,在Next后面的循环变量与For中的循环变量必须相同。当循环是单层循环时,Next后面的循环变量可以不写。 For循环语句的执行过程是:首先把初值赋给循环变量,接着检查循环变量的值是否超过终值,如果超过就不执行循环体,跳出循环,执行Next后面的语句;否则执行一次循环体,然后把循环变量增加步长,再赋给循环变量,重复上述过程。 当初值等于终值时,不管步长是正数还是负数,都执行一次循环体。 循环次数由初值、终值和步长决定,计算公式为: 循环次数=INT(终值 初值)/步长+1) Fo
9、r语句和Next语句必须成对出现,不能单独使用。 如果要在循环变量到达终值前退出循环,可用Exit For语句来实现。该语句可以在For循环中出现多次,且位置不限。 在循环体中可以使用循环变量,但一般不再对循环变量赋值。功能:当While的条件表达式的值是True时执行循环体内的代码,直到While后的条件表达式的值为False。说明:它与Do Loop语句的差别是:While Wend语句中不能使用Exit语句跳出循环。语法格式:While (条件表达式 ) 等价于 do While(条件表达式) 循环体 循环体Wend LOOP3、WhileWend循环结构二、循环的嵌套多重循环结构1、如
10、果在一个循环内完整地包含另一个循环结构,则称为多重循环,或循环嵌套,2、嵌套的层数可以根据需要而定,嵌套一层称为二重循环,嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套,下面是几种常见的二重嵌套形式:(1)For I=. . For J=. . Next J . Next I(2)For I=. . Do While/Until . . Loop . Next I(3)Do While. . For J=. . Next J . Loop(4)Do While/Until. . Do While/Until . . Loop . Loop例题:打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i & & j & = & i * j Picture1.Print Tab(j - 1) * 9 + 1); se; Next j Picture1.Print Next i对于循环的嵌套,要注意以下事项:(1) 内循环变量与外循环变量不能同名;(2) 外循环必须完全包含内循环,不能交叉; (3) 不能从循环体外转向循环体内,也不能从外循环转向内循环. 正 确错 误 For i =1 To 10
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 彩色皱纹纸产业运行及前景预测报告
- 农业机械用条播机产业规划专项研究报告
- 冷冻设备和机器产业深度调研及未来发展现状趋势
- 助产器械产业深度调研及未来发展现状趋势
- 企业内部反欺凌工作方案
- 铝合金门窗施工现场管理方案
- 刨干鲣鱼片用非电动刨鱼片刨市场需求与消费特点分析
- 室内除臭喷雾剂产业运行及前景预测报告
- 医院病房门禁系统安全方案
- 推理小说出版行业营销策略方案
- 《腰段解剖》PPT课件
- 李砚祖《艺术设计概论》第四章设计概论设计与科学技术通用课件
- 高速铁路桥涵工程桥上救援疏散通道施工方案
- 招投标法实施条例解读PPT
- 企业经营状况调查问卷
- 班会PPT: 认识小动物儿童PPT课件
- 机场道面混凝土施工工艺及方法
- 部编版三年级语文上册教材解读及教学建议(课堂PPT)
- 隐形眼镜医疗器械质量管理制度
- (最新整理)施工电梯方案,含电梯基础及地下室顶板回撑方案
- 立管改造施工方案
评论
0/150
提交评论