- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB 第七章 控制结构程序设计2 循环结构 免费下载
* * 6.2 循环结构程序设计 在实际工作中,常遇到一些操作过程不太复杂,但又需要反复进行相同处理的问题,比如,在窗体上打印一百条相同的字符串,这个问题的解决逻辑上并不复杂,但如果单纯用顺序结构来处理,那将得到一个非常乏味且冗长的程序: * * Print “你好“ Print 你好“ Print 你好“ Print 你好“ Print 你好“ Print 你好“ …… Print 你好“ Print 你好“ 100次 * * * 由上面的例子不难看出,程序其实就是在反复执行语句:Print 你好 ,程序当然非常简单易懂,但缺乏最基本的编程技巧。要想方便地解决这类问题,最好的办法就是用循环语句。 所谓循环就是重复地执行一组语句。 我们用循环语句解决上面的问题,程序非常简短: For i = 1 To 100 Print 你好“ Next i * * * 上述程序段便是一个循环语句,在循环过程中第2句被反复执行了100次,从而打印出最终的图形。 通过上面的对比可知,循环结构非常适合于解决处理的过程相同、处理的数据相关,但处理的具体值不同的问题。我们把能够处理这类问题的语句称为循环语句。 VB提供了三种不同风格的循环语句,它们分别是: (1) For…Next语句; (2) While…Wend语句; (3)Do…Loop语句。 我们将对这3种循环语句逐一介绍。 * * * 6.2.1 用For…Next语句实现循环 For 循环变量 = 初始值 To 终止值 [Step 步长] 循环体 [Exit For] Next [循环变量] 说明 循环变量:亦称为循环控制变量,必须为数值型。 初值、终值:都是数值型,可以是数值表达式。 步长:循环变量的增量,是一个数值表达式。一般来说,步长为正,初始值应小于终止值;若为负,初始值应大于终止值。步长不能是0。如果步长是1,Step 1可略去不写。 循环变量的值是自动改变的,不要人为改变,否则会出错。 For跟Next必须成对出现。Next后面的循环变量与For语句中的循环变量必须相同。 Exit For用于:当需要无条件跳出循环时 循环次数:Int((终值-初值)/步长+1) 例子说明 * * * For循环结构执行过程 * * * For n=1 To 10 Step 3 Print n; Next n 具体执行情况如下: 第几次循环 n 与终值比较 执行循环体否 1 1 10 2 4 10 3 7 10 4 10 =10 5 13 10 上面程序的执行结果为: 1 4 7 10 我们通过分析下面的程序来理解For语句的执行过程。 执行 执行 执行 执行 停止执行 返回 * * * 思考题 题1: For n=1 To 10 Step 3 Print n; Next n 上面程序的执行结果为: 1 4 7 10 题2: a=0 For i=1 to 10 step –1 a=a+1 print a Next i ‘以上循环体执行次数为? For n=1 To 10 Step 3 …… Next n Print n 上面程序的执行结果? 13 打开程序 * * Private Sub Command1_Click() Dim N, i As Integer ’i为循环变量 Dim sum As Long N = Text1.Text sum = 0 For i = 1 To N sum = sum + i Next i Text2.Text = sum End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text1.SetFocus End Sub 例6-6:求1+2+3+…+n的值,n从键盘输入。 思考:若改为1*2*……*N,如何实现? 例6-6程序 * * * 6.2.2 While ……Wend 循环结构 循环语句必须包含的三部分内容 循环初始条件 终止条件 循环体 While……Wend实现循环 语法: While 条件 语句块(循环体) Wend * * * 结合下面的程序段,我们
您可能关注的文档
- [计算机软件及应用]Java项目开发平台开发规范.doc
- [资料]指南语言领域解读-陈晓燕.ppt
- [优质文档]依据递推公式求数列通项公式的常用方法.doc
- [PPT]-嬗变的机遇中国家电行业在经济全球化深化当中的定位转.ppt
- [管理]股权众筹商业计划书股权融资商业计划书.doc
- [优质文档]指南措辞领域解读-陈晓燕.ppt
- [数学]珠心算练习题100以内的加减法.doc
- [解决方案]江苏南通三建集团有限公司运营方案讨论稿-20130330.doc
- [医药卫生]常见急危重症患者的识别和处理技巧.ppt
- [整理版]九大人物风格与九大发型风格.doc
- [整理版]高新技巧企业认定专项审计指引(中注协).doc
- [DOC]-《联想专卖店店面运营管理手册全套10本》(doc160)-经营管理.doc
- [课程]高新技术企业认定专项审计指引(中注协).doc
- [新版]高压共轨柴油机剖图.doc
- [最新中考语文]青春随想课件.ppt
- [汇编]歌舞青春3 英文剧本台词.doc
- [指南]煤层气韩城分公司钻井工程完井资料验收治理(暂行)办法.doc
- [优质文档]现代市场营销学第06章.ppt
- Polymeric nanoparticles for targeted drug delivery system for cancer therapy文档.pdf
- [培训]冲裁——凸凹模刃口尺寸计算.ppt
最近下载
- 2024电梯监督检验和定期检验指南第1部分:乘客和载货电梯.pdf VIP
- 合成药物工艺研究.pptx VIP
- 电气预防性试验及防雷试验工程方案投标文件(技术方案).doc
- 基于“六位一体”内部控制的创新实践.pdf VIP
- 外商投资产业指导目录(2007年修订)(全文).doc VIP
- 新一代大学英语(提高篇)视听说教程 1 B1U1.pptx VIP
- 2025年秋新人教版数学三年级上册全册课件.pptx
- 吉J2020-011:木塑复合材料景观工程构造.pdf VIP
- 2024电梯监督检验和定期检验指南第3部分:杂物电梯.docx VIP
- 服装裁剪与制作(第三版)全书电子教案教学课件汇总.ppt
文档评论(0)