VB 第七章 控制结构程序设计2 循环结构 免费下载.pptVIP

VB 第七章 控制结构程序设计2 循环结构 免费下载.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 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 * * * 结合下面的程序段,我们

文档评论(0)

rovend + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档