VB程序设计课件第8讲 For循环.pptVIP

主要内容： For/Next语句 For 循环变量 ＝ 初值 to 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量] 算法： 1. 初始化：定义变量 sum 存放累加和 输入：循环体外置初值 sum = 0 处理：For 1 To 100 ，sum = sum + i 输出：sum 【例】有一数列，前两项是1、1，第三项是前二项之和，以后每一项都是前二项之和。即为：1、1、2、3、5、8、13、21…。输出前30项 递推：（1）初始值：F1=1、F2=1 （2）递推关系：Fn=Fn-1+Fn-2（n2） F1和F2始终作为前两个数，F3作为新产生的数，利用循环不断用新值代替旧值。 * * 编程小贴士 设置属性确定事件； 构思算法草拟代码； 多写注释调整思路； 全面检查就这一招！ 编程思路：“初始化－输入－处理－输出” 循环结构： 根据条件决定某段代码是否重复执行 计数控制：控制循环次数，次数到则结束 例：小强：喵，我没吃饱，还要再吃10口 条件控制：决定循环结束 例：小狼：咩，我没吃饱，等我吃饱再说 循环体 循环次数 = Int(( 终值 - 初值 ）/ 步长 + 1) 0 初值终值 (步长=1时，可省略) 0 初值终值 =0 死循环 步长 For i=-3.5 to 5.5 step 0.5 For i=1 to 10 step -2 For i=-3 to 20 step 0 循环次数? 1. 简单例子 简单重复 For i = 1 to 10 Label1.Text = * Next i 输出循环变量值 For i = 1 to 10 Step 2 Label1.Text = i vbCrLf Next i 注意：退出循环后，循环变量的值保持退出时的值 例: For i = 2 To 13 Step 3 Label1.Text = i Next i Label2.Text = i 2. 在循环体中改变循环变量值 For i = 1 to 10 Label1.Text = i i = i + 1 Next i For i = 1 to 10 Label1.Text = i i = i - 1 Next i 下面程序段有没有问题？ j = 0 For i = 1 To 20 Step 2 j = j + 1 Next i Label1.Text = 退出循环后i= i 注意：在循环体内不要轻易改变循环控制变量的值， 否则会影响原来的循环规律。 i = i + 3 3. 常用算法 累加：在原有和的基础上每次加一个数 S = 1 + 2 + 3 + … + 100 连乘：在原有积的基础上每次乘一个数 S = 100！ 【例】 Sum = 1 + 2 + 3 + … + 100 累加是通过累加性语句：sum = sum + i 实现的 sum = 0可否放在循环体内? 算法： 1. 初始化：定义变量 s 存放连乘积 输入：循环体外置初值 s = 1 处理：For 1 To 100 ，s = s * i 输出：s 【例】 S = 100! 连乘是通过连乘性语句：s = s * i 实现的 s = 1可否放在循环体内? 一个好的程序，应该为存放累加、连乘等 的变量在循环体外赋初值。累加时置0，连乘时置1 Exit For语句 退出循环，执行Next后面的语句，一般与If合用 For i = 1 To 10 If i = 5 Then Exit For TextBox1.Text = i Next 递 推 法 Dim F1, F2, F3, i% F1 = 1: F2 = 1 Label1.Text = F1 F2 For i = 3 To 30 F3 = F1 + F2 Label1.Text = F3  F1 = F2 : F2 = F3 用新值代替旧值 Next If i Mod 4 = 0 Then Label1.Text = vbCrLf 每行4个 1．For 循环次数，循环变量保留退出时的值 2. 累加 s = s + t、连乘 s = s * t 3. 递推法的递推关系 内 容 小 结