第七章控制结构
7.2循环程序结构
7.2.1For循环
复习提问
1．在Visual Basic中，UCASE("12ABcd34")的值是 ( ) A．abcd B．1234 C．12ABCD34 D．12abcd34 2．Visual Basic窗体模块文件的扩展名是 ( ) A．.FRM B．.WIN C．.VBG D．.BAS 3．执行Visual Basic语句PRINT "100"+"45"的显示结果是 (
）
本课学习目标：
1. 掌握for …next循环方法 2. 掌握for …next编程方法 3. for …next循环过程程序分析
学习重点： 1、for …next循环方法。 2、for …next循环编程应用 学习难点： for …next循环用法。
循 环 结 构
循环变量得初值
1. For循环语句 (一般用于循环次数已知) 形式 For 循环变量＝初值 to 终值 [Step 步长] 语句块 [Exit For] 循环体 语句块 Next 循环变量 例5.7(补) 计算1~100的奇数和，程序段如下：
要注意： 出了循环，循环控制变量值的问题。 例程序段： 132 For i=2 To 13 Step 3 循环执行次数 Int( 3 1) 4 Print i , 输出 i的值分别为: Next i 2 5 8 11 Print : Print “I=“, i 出了循环输出为: I=14 在循环体内对循环控制变量可多次引用；但最好不要对其 赋值，否则影响原来的循环控制规律。
Dim i %, s% s=0 For i = 1 To 100 step 2 s=s+i Next i
循环变量 < = 终值
F T
语句块
Exit For
语句块 循环变量加步长
>0 初值<终值 =1 时,可省略 <0 初值>终值 步长 =0 死循环 循环次数 Int( 终值初值 1)
步长
) A．145 B．10045 C．100+45 D．语句有语法错误 4．读下面Visual Basic程序，最后一行输出结果是（ a = 12: b = 5 c = Len(a + b) Print c A． 4 B ．5 C ．6 D ．2 5.表达式Int( - 3.8) +Sgn(4.8)的值是（ ）. (A)3 (B)-3 (C) 1 (D) 2
典型题目（一） 累加

求1+2+3+……n的值


代码：
Dim i as integer,s as integer s=0 N=inputbox(“”) For i=1 to n s=s+i Next Print s
典型题目（二） 累乘

1.求1*2*3*……n的值


例:改变循环控制变量对循环的影响 Private Sub Command1_Click() j=0 For i = 1 To 20 Step 2 i=i+3 j=j+1 Print "第"; j; "次循环i="; i Next i Print "退出循环后i="; i End Sub 正常情况：i=1,3,5,7,9,11,13,15,17,19 现在：i=4,9,14,19
代码：
Dim i as integer,s as integer s=1 N=inputbox(“”) For i=1 to n s=s* i Next I Print s
上机练习

1、例题上机设计运行调试

2、计算1分钱每天翻一倍，3月份31天后，月底会有多少 钱，编程计算上机运行。
例:输入一个班的学习成绩，统计其中及格的学生人数，并计算 出全班的平均分数。学生人数不定，输入负数时截止。设全 班人数不超过50人。
Private Sub Command1_Click() Dim Score As Single, PassN As Integer, n As Integer Dim i As Integer, Sum As Single Sum = 0: PassN = 0: n = 0 For i = 1 To 50 ' 统计人数大于50时停止循环 Score = Val(InputBox("请输入学生成绩:")) If Score < 0 Then ' 输入负数时停止循环 Exit For Else If Score >= 60 Then PassN = PassN + 1 '统计及格人数 n=n+1 '统计总人数 Sum = Sum + Score '统计总分 End If Next i Text1.Text = Str$(n) Text2.Text = Str$(PassN) Text3.Text = Str$(Sum / n) End Sub