跟我学vb--第11课时 For循环语句.docVIP

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
For循环语句 标准条目 (二)1.(1)理解并掌握一种程序设计语言的基本知识,包括语句、数据类型、变量、常量、表达式、函数。会使用程序设计语言实现顺序、选择、循环三种控制结构。 (二)1.(3)初步掌握调试、运行程序的方法。 学习目标 1、了解循环语句的作用。 2、理解掌握for循环语句的基本格式与执行流程。 3、理解for循环语句中变量的取值及相应的变化情况(递增或递减)。 4、会用for next循环语句解决问题。 5、培养学生独立思考、分析问题、解决问题的能力。 重点难点 1、for next语句的基本格式与执行流程。 2、用for next循环语句解决问题。 新课引入 1、在屏幕的中央画1个圆,代码如下: Circle(width/2,height/2),500,vbred 2、画5个同心圆应该如何完成? 3、让学生思考,画10个同心圆或100个同心圆,应该如何完成? 是不是写10个 Circle语句, 100个Circle语句? For循环语句的基本格式 1、结构: 2、说明: (1)格式中各项的说明 · 循环变量:亦称为循环控制变量,必须为数值型。 · 初值、终值:都是数值型,可以是数值表达式。 · 步长:循环变量的增量,是一个数值表达式。一般来说,其值为正,初值应小于终值;若为负,初值应大于终值。但步长不能是0。如果步长是1,Step 1可略去不写。 · 循环体:在For语句和Next语句之间的语句序列。 · Next后面的循环变量与For语句中的循环变量必须相同。 3、示范:使用For循环语句画20个同心圆。 执行过程 For循环语句的执行过程如下: A: 系统将初值赋给循环变量,并自动记下终值和步长。 B: 检查循环变量的值是否超过终值。如果超过就结束循环,执行Next后面的语句;否则,执行一次循环体。 C: 执行Next语句,将循环变量增加一个步长值再赋给循环变量,转到B继续执行。 以上执行过程用流程图描述,如下图所示。 以“画圆”为例, r是循环变量,它的初值为1,反复执行next后面的语句,然后使r的值增加1,直到r的值超过终值10,就不再执行循环。执行流程如下图: 提出以下问题: 1、循环体总共执行了多少次?循环的次数如何计算? 2、退出循环时,循环变量的值为多少? 3、FOR循环语句在什么情况下会出现死循环? 4、循环变量退出循环时,它的值是否一定大于终值? 学生对循环变量的值“超过”终值比较难理解,容易出错。为了帮助学生较直观理解循环变量的值在某个范围时才执行循环体,利用VB中逐句执行的方式跟踪循环变量的值的变化情况。 这里所说的“超过”有两种含义,即大于或小于。当步长为正值时,循环变量大于终值为“超过”;当步长为负值时,循环变量小于终值为“超过”。 举例如下: Private Sub Command3_Click() Dim i As Integer For i = 0 To -10 Step -1 Print i Next i End Sub Private Sub Command4_Click() Dim i As Integer For i = 1 To 10 Print i Next i End Sub 上机验证程序,并说明程序功能。 (1)程序一 程序如下: Dim n As Integer For n=1 To 10 Step 3 Print n, Next n 具体执行情况如下(请完成): 第几次循环 n 与终值比较 执行循环体否 1 1 10 执行 2 3 4 5 上面程序的执行结果为(请填写): (2)程序二:求S=1+3+5+…+13的值 程序如下: Dim i As Integer, s As Integer s = 0 For i = 1 To 13 step 2 s= s + i Next i Print s=; s 具体执行情况如下(请完成): 第几次循环 循环变量i 总和s 与终值比较 执行循环体否 0 0 s=0 13 执行 1 1 s=0+1 13 执行 2 3 s=0+1+3 3 4 5 6 7

您可能关注的文档

文档评论(0)

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

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

1亿VIP精品文档

相关文档