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

1、第八讲 For循环,编程小贴士 设置属性确定事件； 构思算法草拟代码； 多写注释调整思路； 全面检查就这一招！,编程思路：“初始化输入处理输出”,2,循环结构： 根据条件决定某段代码是否重复执行,3,主要内容： For/Next语句,计数控制：控制循环次数，次数到则结束 例：小强：喵，我没吃饱，还要再吃10口 条件控制：决定循环结束 例：小狼：咩，我没吃饱，等我吃饱再说,4,For 循环变量 初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,For/Next循环（计数循环）,循环次数 = Int( 终值 - 初值 ）/ 步长 + 1),5,For i=-3

2、.5 to 5.5 step 0.5 For i=1 to 10 step -2 For i=-3 to 20 step 0,循环次数?,6,1. 简单例子,简单重复,For i = 1 to 10 Label1.Text &= * Next i,输出循环变量值,For i = 1 to 10 Step 2 Label1.Text &= i & vbCrLf Next i,7,注意：退出循环后，循环变量的值保持退出时的值,例: For i = 2 To 13 Step 3 Label1.Text &= i Next i Label2.Text = i,8,2. 在循环体中改变循环变量值,For

3、 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,下面程序段有没有问题？,9,j = 0 For i = 1 To 20 Step 2 j = j + 1 Next i Label1.Text = 退出循环后i= & i,注意：在循环体内不要轻易改变循环控制变量的值， 否则会影响原来的循环规律。,i = i + 3,10,3. 常用算法,累加：在原有和的基础上每次加一个数 S = 1 + 2 + 3 + + 100 连乘：在原有积的基础上每次乘一个数 S

4、= 100！,11,算法： 1. 初始化：定义变量 sum 存放累加和 输入：循环体外置初值 sum = 0 处理：For 1 To 100 ，sum = sum + i 输出：sum,【例】 Sum = 1 + 2 + 3 + + 100,累加是通过累加性语句：sum = sum + i 实现的,sum = 0可否放在循环体内?,12,算法： 1. 初始化：定义变量 s 存放连乘积 输入：循环体外置初值 s = 1 处理：For 1 To 100 ，s = s * i 输出：s,【例】 S = 100!,连乘是通过连乘性语句：s = s * i 实现的,s = 1可否放在循环体内?,13,一

5、个好的程序，应该为存放累加、连乘等 的变量在循环体外赋初值。累加时置0，连乘时置1,Exit For语句 退出循环，执行Next后面的语句，一般与If合用,For i = 1 To 10 If i = 5 Then Exit For TextBox1.Text = i Next,14,【例】有一数列，前两项是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作为新产生的数，利用循环不断用新值代替旧值。,递 推 法,15,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 &