Visual Basic程序设计与实训 教学课件 作者 苏玉雄 电子教案 第5章.pptVIP

fgdfgdg 第 5 章  循环结构程序设计  5.1 For循环 5.1.1 For格式说明 5.1.1 For格式说明 循环变量也称“循环计算器”或“循环控制变量”，用来记录循环的次数。 初值与终值均为数值或数值型表达式，表示循环的开始位置和终止位置，初值与终值的大小不固定。 步长是一个数值表达式，为循环变量的增量；如果省略，默认为1。当初值小于终值时步长为正书数，当初值大于终值时步长为负数。 Exit For可用于提前退出for循环。 Next后面的“循环变量”与For后面的“循环变量”必须相同。 执行步骤： 把“初值”赋给“循环变量” 检查“循环变量”是否超过终值，若没有则执行循环体，若超出则结束循环，执行Next后面的语句 循环变量加步长，转②，继续循环。 直到循环变量达到终值时退出该循环。 由上可看出For-Next循环的循环次数由初值、终值和步长三个因素决定，计算公式为：循环次数＝Int（终值－初值）/步长＋1。 案例5-1 案例5-1：单击窗体时，在窗体上打印输出5个“@_@”符号。 案例5-1 【案例分析】：如果在本实例中我们使用5个Print语句也可以达到效果，但书写比较麻烦。实际上这个一个重复5次输出的过程，所以我们使用For循环结构。本实例中，循环变量初值为1，总共循环5次，所以总值为5。 【操作步骤】： 1、界面设计 新建一窗体Form1，打开代码窗口，找到FORM_CLICK事件. 2、程序代码如下： Private Sub Form_Click() For i = 1 To 5 ‘ 循环变量初值为1、终值为5 Print @_@ ‘ 循环体 Next i ‘ 下一次循环，直到结束 End Sub ‘ 结束 [思考]：如果循环起始值为0可以吗？循环的起始值和终止值有什么要求？ 案例5-2 案例5-2：单击窗体时，在窗体上打印1～10。如图所示： 案例5-2 【案例分析】：可以看出这个实例是采用循环语句，这个实例与案例1的区别主要在于案例1中打印的每个内容都一样，而此例中每次输出的都不一样。仔细观察我们可以看到打印的内容其实和循环变量的变化是一致的。所以可以打印循环变量达到效果。 【操作步骤】： 1、界面设计 新建一窗体Form1，打开代码窗口，找到FORM_CLICK事件. 2、程序代码 Private Sub Form_Click() For i = 1 To 10 Print i ‘ 打印输出循环变量 Next i End Sub [思考]：假设我们将这十个数分两行输出，每行5个如何实现？ 课堂练习5-1 课堂练习5-1：点击窗体，在窗体上打印输出1～20内的所有奇数的和。 【案例分析】：该实例和案例3很相似，但区别在于起始值不一样。同时这里使用到了数据的累加。 【操作步骤】： 1、界面设计： 新建一个窗体Form1，打开代码窗口，找到FORM_CLICK事件. 2、程序代码 Private Sub Form_Click() Dim s As Integer For i = 1 To 20 Step 2 ‘ i的初值为1，终值为20，步长为2 s = s +i ‘ 累加 Next i Print 计算结果为： s End Sub [思考]：1、本实例中S变量的初始值是多少？ 2、打印结果的语句可不可以放在循环内部？ 课堂练习5-2 课堂练习5-2：点击窗体，在窗体上打印输出1～20内的所有能被3整除的数的乘积。 【案例分析】：该实例和课堂练习1很相似，它的起始值应该是3，步长应该是3。同时本实例中涉及到了乘积，乘积和累加的不同在于乘积的起始值必须为1。 【操作步骤】： 1、程序代码