活动一用For...Next语句实现循环结构_第1页
活动一用For...Next语句实现循环结构_第2页
活动一用For...Next语句实现循环结构_第3页
活动一用For...Next语句实现循环结构_第4页
活动一用For...Next语句实现循环结构_第5页
已阅读5页，还剩8页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、,第四节 循环结构,四川省旺苍东城中学 吴昕鸿,循环即重复。,800米： 1500米： 3000米 ： 5000米：,2圈,3圈又300米,7.5圈,12.5圈,以径赛为例，如果参加中长跑，重复做的事就是沿着运动场“跑”。,在中长跑的径赛中，需要哪些工作（裁判）人员？,记圈数的人,记秒数的人,800米： 1500米： 3000米 ： 5000米：,2圈,3圈又300米,7.5圈,12.5圈,(循环变量),(运算结果),1圈，2圈,1圈，2圈，3圈，300米,1圈，2圈，3圈，7圈，200米,1圈，2圈，3圈，12圈，200米,终值,初值,循环结构ForNext语句,语句格式： For 循环控制

2、变量 =初值 To 终值 Step 步长 循环体语句块 Next 循环控制变量,说明： 1、循环变量必须为数值型。 2、当步长为正时，初值 终值， 反之初值 终值； 步长缺省时为 。,小于,大于,1,练习一：编程求11000的和。,分析问题： 设i为循环变量，用来计数；sum用于放求和后的值。,1+2+3+4+5+6+7+,i=,1,sum=,0,0,2,3,4,5,.,.,1000,.,0+1=,1+2=,3+3=,6+4=,10+5=,i,sum+,练习一：编程求11000的和。,流程图：,i=1000,sum=sum+i,i=i+1,sum=0,i=1,False,True,Privat

3、e Sub Form_Click() Dim i As Integer Dim sum As Double sum = 0 For i=1 to 1000 step1 sum = sum + i Next i Print 1-1000的和为： & sum End Sub,编程求11000的和。,（代码）,练习二：判断一个数是否为素数。,演示,分析问题： 素数又称为“质数”，即只能被1和它本身整除的数。,由概念可知，判断这个数时，应从_开始，到_结束，对其中的每一个数做除法。在此范围内，若这个数能被其中的任一个数整除，则它不是素数。此后可不再对其后的数进行判断。,2,该数-1,Dim i As

4、Integer, flag As Integer Dim x As Long x = InputBox(请输入一个数, 输入) For i = _ To _ If _ Then flag = 1 标记，为1时表示能整除，该数不是素数。 Exit For End If Next i,（代码）,演示,练习二：判断一个数是否为素数。,2,x-1,x mod i=0,If flag = 1 Then Print x & 不是一个素数 Else pritn x & 是一个素数 End If End sub,（代码续上）,课堂练习,编程求20以内偶数的阶乘（2*4*6*20）。 Private Sub Form_Click() Dim i As _ Dim sum As _ sum =

人人文库> 全部分类> 教育资料 > 中学教育

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论