vb课件第4章 节 .VB的基本控制结构.pptVIP

例2: 求10！ 分析: 重复过程:* 初值、终值与增量不变 Dim I as Integer, s As Integer For I = 1 To 10 s = s + I Next I Print I, s 例1:求1+2+3+4+ …+10之和. 分析: 重复过程(循环体): + 初值、终值和增量:1、10、1 Dim I, s As Integer For I = 1 To 10 s = s * I Next I Print I, s s=1 For I = 1 To 10 For循环 【例】设计程序，输入一个班（设全班人数不超过100人）学生的VB学习成绩，统计其中及格的学生人数，并计算出全班的平均分。由于学生人数不定，输入负数时截止。 For循环 程序代码（按钮的Click事件） Dim Grade As Single, PassCount As Integer, total As Integer Dim i As Integer, Sum As Single Sum = 0:PassCount = 0:Average = 0:total = 0 For i = 1 To 100 当输入学生成绩个数大于100时停止循环 Grade = Val(InputBox(请输入学生的VB成绩:)) If Grade 0 Then 输入负数时退出循环 Exit For Else If Grade = 60 Then PassCount = PassCount + 1 及格学生人数 total = total + 1 计算总人数 Sum = Sum + Grade 计算总分 End If Next i For循环 If total 0 Then Average = Sum/total 防止用户未输入值时溢出 txtTotal.Text = Str(total) txtCount.Text = Str(PassCount) txtAvg.Text = Str(Average) For循环 练习1：计算1～1000的奇数和与偶数和 方法一： 方法二： S1 =0:S2 =0 For I = 1 To 1000 Step 2 S1 = S1 + I Next I For I = 2 To 1000 Step 2 S2 = S2 + I Next I Print S1,S2 S1 =0:S2 =0 For I = 1 To 1000 If I mod 20 then S1 = S1 + I Else S2 = S2 + I End If Next I Print S1,S2 For循环 练习2：输入一个正整数，求各位数字之和 1. 输入正整数k，求它的位数 2.用For循环，设计初值、终值和步长 3. 取k的末位数，求和 4. 使k去掉末位数 重复以上两步，直到结束，并在文本框中显示结果 For循环 注意： ⑴ 初值、终值、步长必须是数值型，步长为正，初值终值；若为负，初值终值；缺省为默认为1 ⑵ 在已知循环次数时使用For循环，循环次数=int((终值-初值)/步长)+1 ⑶ 组成循环体的语句块可以是一条或多条语句 ⑷ Exit For表示当遇到该语句时，退出循环体，执行Next的下一句； For循环 注意： ⑸??在循环体内对循环变量可多次引用，但在循环过程中一般不改变其值，否则影响结果。 ⑹ 注意在循环体内对循环变量、步长、初值、终值修改对循环次数的影响。 ⑺ 退出循环后，循环变量保持退出时的值 例：分析下列程序段的输出结果： Dim I As Integer, J As Integer J = 0 For I = 0 To 10 Step 2 I = I + 3 J = J + 1 Next I For循环 思考：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿？ 1. Do While 条件 循环体 Loop 2. D0 循环体 Loop While 条件 3. Do Until