教案(1)VB-For循环结构(1)

1、第七章控制结构,7.2循环程序结构 7.2.1For循环,复习提问,1在Visual Basic中，UCASE(12ABcd34)的值是 ( ) Aabcd B1234 C12ABCD34 D12abcd34 2Visual Basic窗体模块文件的扩展名是 ( ) A.FRM B.WIN C.VBG D.BAS 3执行Visual Basic语句PRINT 100+45的显示结果是 ( ) A145 B10045 C100+45 D语句有语法错误 4读下面Visual Basic程序，最后一行输出结果是（ ） a = 12: b = 5 c = Len(a + b) Print c A 4

2、B5 C6 D2 5.表达式Int( - 3.8) +Sgn(4.8)的值是（ ）. (A)3 (B)-3 (C) 1 (D) 2,本课学习目标： 掌握for next循环方法 掌握for next编程方法 for next循环过程程序分析,学习重点： 1、for next循环方法。 2、for next循环编程应用,学习难点： for next循环用法。,循 环 结 构 1. For循环语句 (一般用于循环次数已知) 形式 For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,循环变量, =,终值,语句块,Exit For,语句块,循环变量加

3、步长,T,F,循环变量得初值,循环体,例5.7(补) 计算1100的奇数和，程序段如下： Dim i %, s% s=0 For i = 1 To 100 step 2 s = s + i Next i,0 初值终值 =0 死循环,循环次数,要注意： 出了循环，循环控制变量值的问题。 例程序段： For i=2 To 13 Step 3 循环执行次数 Print i , 输出 i的值分别为: Next i 2 5 8 11 Print : Print “I=“, i 出了循环输出为: I=14 在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。,步长,例:改变

4、循环控制变量对循环的影响 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,例:输入一个班的学习成绩，统计其中及格的学生人数，并计算出全班的平均分数。学生人数不定，输入负数时截止。设全班人数不超过50人。,Private Sub Command1_Click() Dim Score As Si

5、ngle, 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 = 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,求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的值 代码： Dim i as integer,s as integer s=1 N=inputbox(“”) Fo