第六章 循环结构PPT课件

i=5
Print "S="; s
12
例，判断正整数是否为素数
X=97 For I=2 To Sqr(X)
If X Mod I = 0 Then Exit For Next I If I > Sqr(X) Then
print Str(X)+"是素数！" Else
print Str(X)+"不是素数！" End If
3
举例
❖1+2+3+…..+100 的和
Sum=0 For i=1 to 100
Sum=sum+i Next i Print sum
Sum=0 For i=100 to 1 step -1
Sum=sum+i Next i Print sum
4
执行过程
1.计算循环中表达式的值； 2.赋初值；(1与2只做一次) 3.判循环变量的值是否超过终值，如果未超过，则执行循环
答案：B
17
（2011年9月第21题）
❖ 设有如下程序： ❖ Private Sub Form_Click() ❖ Dim s As Long, f As Long ❖ Dim n As Integer, i As Integer ❖f = 1 ❖n = 4 ❖ For i = 1 To n
▪ f=f*i ▪ s=s+f ❖ Next i ❖ Print s ❖ End Sub ❖ 程序运行后，单击窗体，输出结果是（ ）。 ❖ A）32 B）33 C）34 D）35
例：F2o.如r 果s=s2teTpo步1长0为0 S负te数p，2而初值小于终值时。 …..
Next s 循环次数=Int((100-2)/2)+1=50次
6
举例
❖ 例：求1-100之间所有奇数的和。 ❖Dim sum as integer ❖ sum=0 ❖For I =1 to 100 step 2 ❖ Sum=sum+I ❖ Next
累乘”法。 ❖ 累加变量初值为0 ❖ 累乘变量初值必须为1
9
循环变量的值
1、如果循环正常结束，循环变量的值如何？ 例：For i = 1 To 10 Step 2
Print i; Next i Print "i="; i
i=11
10
2、给定一个循环，首先要判断循环是否一次也不做 。如果循环一次也不做，循环变量的值如何？
❖ Next i
❖ Print y
❖ End Sub
❖ 程序运行后，单击窗体，输出结果为（ ❖ A）ABCCDEDEFG B）AABBCDEFG
）。答案：A
❖ C）ABCDEFG
D）AABBCCDDEEFFGG
注意2：next后的循环变量也可缺省
❖ 举一反三，求1-100之间所以有偶数的和。
7
❖求10!=1*2*3*4* ….*10
❖ Dim s as integer ❖ s=1 ❖ For I =1 to 10
▪ s=s*I ❖ Next
8
求多个数的和与连乘积 ❖ 求若干个数之和或连乘积，可采用“累加”或“
答案：B
18
（2011年9月第24题）
❖ 设有如下程序：
❖ Private Sub Form_Click()
❖ Dim i As Integer, x As String, y As String
❖ x = "ABCDEFG"
❖ For i = 4 To 1 Step -1
▪ y = Mid(x, i, i) + y
第六章 VB循环结构
指导老师：李赛红 lsh427@163.com
1
引入
❖要计算1+2+3+4+ ….+100的和。
2
6.1 For循环控制结构
格式：
For 循环变量 = 初使值 To ]
[循环体] [Exit For] Next 循环变量
终值
[Step 步长
当步长为1时，step 部分可以省略。 注意1：next与for成对出现！
13
上机举例
❖ 编写程序，由用户输入十个学生的成绩，输出不 及格的学生人数，并求出所有学生的平均成绩。
14
上机举例
❖ Dim score As Integer ❖ Dim sum As Integer, count As Integer ❖ sum = 0 ❖ count = 0 ❖ For i = 1 To 10 Step 1 ❖ score = InputBox("请输入第" & i & "个同学的成
体；如果超过了，则退出循Biblioteka Baidu。
4.做完循环体后,到Next语句，循环变量增加一个步长；转 3:判别操作。
For I = 10-9 To 45+5 Step 3-2
Print "*";
Next I
5
循环次数
❖ 注意事项
▪ 循环次数：
Int((e2-e1)/e3)+1
▪ 以Exi下t F两or种是情终况止循一环次运也行不。会执行： 1、如果step步长为正数，而初值大于终值。
绩", "输入成绩") ❖ If score < 60 Then count = count + 1 ❖ sum = sum + score ❖ Next i ❖ Print "不及格的学生人数为"; count ❖ Print "平均成绩为:"; sum / 10
15
上机举例
❖
16
（2012年9月第21题）
例：s = 0
For i = 10 To 1
s=s+i
Next i
i=10
Print s, i
11
3、如果循环非正常结束（异常终止），循环变量的 值如何？
例：s=0
For i = 1 To 10 Step 2
s=s+i
If i>=5 Then Exit For
Next i
Print "I="; I
❖ 现有以下程序：
❖ Private Sub Command1_Click() ❖ c1 = 0 ❖ c2 = 0 ❖ For i = 1 To 100
▪ If i Mod 3 = 0 Then c1 = c1 + 1
▪ ElseIf i Mod 7 = 0 Then c2 = c2 + 1
▪ End If ❖ Next ❖ Print c1 + c2 ❖ End Sub ❖ 此程序运行后输出的是在1~100 范围内 ❖ A）同时能被3 和7 整除的整数个数 ❖ B）能被3 或7 整除的整数个数 ❖ C）能被3 整除，而不能被7 整除的整数个数 ❖ D）能被7 整除，而不能被3 整除的整数个数