活动一 用For...Next语句实现循环结构 课件

课件14张PPT。FOR循环及输入输出语句《算法与程序设计》复习二、程序有三种基本结构：顺序结构、选择结构、循环结构一、算法的几个基本特征：有穷性、确定性、输入、输出、可行性实例引入，分组讨论 例题1：设计一个程序，计算1*2+2*3+3*4+4*5+……+n*(n+1)的和（n<60）。
功能：当用户输入N后，单击“求1*2+2*3+3*4+4*5+5*6+……+n*(n+1)”按钮后，在“计算结果：”后得文本框中输出正确结果。程序界面如图问题1：请同学们想一想，这样的题目，我们该如何实现呢？
（学生分组讨论）实例引入，分组讨论 Dim n, s, i As Integer
n = <1>
For i = 1 To n

s = s + <2>
Next i
Text2.Text = <3>设计一个程序，计算1*2+2*3+3*4+4*5+……+n*(n+1)的和（n<60）。知识点归纳归纳知识点一：
1、 输入部分常用的方法
方法一：用文本框输入
方法二：用Inputbox函数输入
格式：
Inputbox(提示信息，标题，默认值，位置)
其中：提示信息不能省略
2、输出部分常用方法
方法一：print语句
格式：print 输出项1[；输出项2；…输出项n]
方法二：用控件输出，如：标签、文本框等归纳与总结 归纳知识点二：
FOR循环的一般格式
For???循环变量=初值??To??终值??Step??步长值??????语句组 （又称循环体）
Next??循环变量 For循环语句的执行过程：
①将初值赋给循环变量，并记住终值和步长（两数间隔）
②判断循环变量是否超过终值，如果超过，则退出循环执行Next后面的语句；如果没有超过则执行循环体
③遇到Next语句，则循环变量增加一个步长，转到②继续循环 For i = 1 To n

s = s + i*(i+1)
Next i(3)For语句格式说明：
①循环变量是数值型变量
②
当初值小于终值时，步长应为正数；当初值大于终值时，步长应为负数：如果省略Step，则步长为1
③语句组可以是一个或者多个语句，又称为循环体。
(4)For语句注意事项：
For-?Next语句成对出现(1)FOR循环的一般格式
For???循环变量=初值??To??终值??Step??步长值
??????语句组 （又称循环体）
Next??循环变量 归纳与总结求a=1+3+5+…+(2n-1)
Dim a As Integer, i As Integer, n As Integer
n = Val(InputBox("请输入整数"))
For i = 1 To n
a = a + 2 * n - 1
Next i
Print "a="; a
输入：5 ，输出结果是_____________ 例题二：阅读下列程序，观察程序是否有错，如果有错，请修改后，得出结果
（组织同学们分组讨论）改为：2*i-125“大家来找茬” 实例分析同学们动脑筋想一想，还有没有别的方法来解这道题呢？方法二：通过改变步长，来实现求1到2*n-1的所有奇数之和For i = 1 To 2 * n - 1 Step 2
Dim a As Integer, i As Integer, n As Integer
n = Val(InputBox("请输入整数")) a = a + i
Next i
Print "a="; a实例分析方法三：我们可以把1到2*n-1的每个整数都列举出来，然后判断这个数能否被2整除，如果不能被2整除则累加，否则不累加。Dim a As Integer, i As Integer, n As Integer
n = Val(InputBox("请输入整数"))For i = 1 To 2 * n - 1 If i Mod 2 <> 0 Then
a = a + i
End If
Next i
Print "a="; a想一想，我们还有哪些题目可以用这些方法来实现呢？比如：输出100到200之间能被3整除的数课堂练习 设计一个程序，求第一组：要求用INPUTBOX输入, PRINT语句输出
第二组：要求用textbox输入，textbox输出
(在10分钟内分组完成 )测试数据：
输入n=100,输出结果s= 2.593689这节课我们通过实例对FOR循环的基本结构和输入输出语句知识点做了系统的复习。我们所学的内容之间都是有联系，都不是孤立的，同学们要把知识动态化、多角度、多方式地去思考，掌握知识的内在联系，提高解题能力，开阔自己的视野 。本课小结作业及课后探究设计一个程序，求1到100之间能被6整除的整数的个数
（用多种方法实现输入、输出，并用两种以上的算法去解决该程序）谢谢！