VB控制结构多重循环课件.ppt

  1. 1、本文档共27页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第4章 Visual Basic语言基础5 提要 多重循环 常用算法 重点 多重循环 常用算法 For n = 101 To 300 Step 2 Next n Private Sub Form_Click() Dim S#, T#, i, n% n = Val(InputBox(n=)) T = 2: S = 1 初值 For i = 1 To n S = S * T S为连乘 T = (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) t为每一项 Next i Print S End Sub Private Sub Form_Click() Dim i%, n, T!, S! S = 0: A = 1 i = 1: T = 1 i计数器、t第i项的值 Do While T = 0.00001 S = S+ T 累加 Print 第 i 项的值为 T A= A * i: i = i + 1 连乘 T= 1 / A Loop Print 计算了; i; 项的和是 ; S End Sub 累加/连乘算法__小结 累加 初值:S=0, T=第一项 通用公式: S=S+T : … :T=B/A 连乘 初值:S=1, T=第一项 通用公式: S=S*T : … :T=B/A 说明: T=B/A中的A或B均可为常量或变量表达式 若A=1, 则T=B 若B=1, 则T=1/A 课后任务3 课后习题P56一.选择题 P61二.填空题 P66三.编程题(3 4) 实验四 P21实验案例一 P22 三.实验内容(3) * 4.7.5 多重循环——循环嵌套 For I= 1 to 5 Step 1 …… Next I For J= 1 to 3 Step 1 …… Next J 一个循环结构的循环体内包含了另一个循环结构. 嵌套一层称为二重循环 多重循环中遇Exit For(Do),只跳出当前一层循环. 讨论多重循环 内、外循环的循环变量不可同名. 内、外循环不可交叉 (外循环完全包含内循环). 执行次数 当外循环执行一次,内循环全部执行. 内循环执行总次数=外循环次数×内循环次数 For I= 1 to 5 Step 1 …… Next I For J= 1 to 3 Step 1 …… Next J For I= 1 to 5 Step 1 …… Next I For I= 1 to 3 Step 1 …… Next I 错误 正确 For I= 1 to 5 Step 1 …… Next J For J= 1 to 3 Step 1 …… Next I For i=1 to 6 step 1 Print * Next i For i=1 to 6 step 1 Print * ; Next i 问题1: 要求利用循环结构在一列打印6个“*” 问题2:要求利用循环结构在一行打印6个“*”, 如何修改? 归纳:分隔符“;”——使多个内容一个个紧跟着打印输出 For k=1 To 3 Next k For i=1 to 6 Print *; Next i Print 问题3: 打印3行,每行6个“*”,如何解决? For i = 1 To 6 Step 1 Print *; Next I Print For i = 1 To 6 Step 1 Print *; Next i Print For i = 1 To 6 Step 1 Print *; Next i 循环嵌套结构 结论 单层循环:控制一行上的所有列,采用“紧凑”方式输出; 双层循环:内循环控制一行上的所有列,外循环控制所有行. For I = 1 To 9 For J= 1 To 9 Next I End Sub For J= 1 To 9 Print J; x; 1; =; 1*J; Next J 示例: 打印九九乘法表. Print J; x; 1; =; 1*J; Print J; x; I; =; I * J; Print 输出一行所有列

文档评论(0)

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

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

1亿VIP精品文档

相关文档