第4章3 环结构2.pptVIP

１、For循环语句 For循环语句 步长可为正、可为负、为1时可省略 如果步长为正，则变量小于等于终值时循环 如果步长为负，则变量大于等于终值时循环 当是单层循环时，Next后面的循环变量可不写 特点：计数型循环， 循环次数=INT(终值-初值)/步长+1 For语句和Next语句必须成对出现 在循环体中可以使用循环变量，但一般不再对循环变量赋值。 编程：通过输入对话框输入三个学生成绩，计算成绩平均分。 A=val(InputBox(“请输入第1个学生成绩”) B=val(InputBox(“请输入第2个学生成绩”) C=val(InputBox(“请输入第3个学生成绩”) Avg=(A+B+C)/3 Print Avg 编程：通过输入对话框输入10个学生成绩，计算成绩平均分。 解决办法：1、每个输入的成绩即时累加；2、提示信息分解成三部分： “请输入第” 、变量K 、 “个学生成绩” 编程：通过输入对话框输入若干成绩，如果输入的成绩为-1，表示输入数据完毕，计算成绩平均分。 Exit Do与Exit For语句 语句功能：强制退出循环 Exit Do语句只能用在Do循环语句中 Exit For 语句只能用在For循环语句中 使用方法：在循环体中，作为IF语句的子句 一、程序分析举例 题目1: K = 7 A = 5 Do K = K - 1 A = A + 2 Loop Until K = 4 Print K= ; K Print “A= ; A 程序分析举例 题目2: n = 3 j = 1 Do Until n 1 n = n + 1 j = j + n * (n + 1) Loop Print n ; j 程序分析举例 题目3: k = 1: m = 2: n = 4 Do While k = n m = m * 2 k = k + 1 Loop Print m ; k 程序分析举例 题目4: C=4 D=Val(InputBox(请输入一个数)) Do While D0 If DC Then C= C+1 D= Val(InputBox(请输入一个数)) Loop Print C+D 程序分析举例 题目5: S=0:i=1 Do while i100 if i mod 100 then s=s+i end if i=i+1 Loop Print s= ; s 程序分析举例 题目6: x = 1 y = 1 For i = 1 To 3 f = x + y y = x x = f Print f; Next i 程序分析举例 题目7: x = 1 For y = 1 To 30 If x = 10 Then Exit For End If If x Mod 2 = 1 Then x = x + 7 Else x = x - 5 End If Next y Print x 程序分析举例 题目8: For i = 1 To 10 k = 2 * i - 1 Print k; If I Mod 3 = 0 Then Print Next i 循环结构程序的要素： 题目1: 输入若干个职工工资，输入0时结束，求平均工资。 题目2:目前我国人口为13亿，如果以每年1.1%的速度增长，多少年以后我国人口将达到15亿。 题目3: 对SUM=1+3+5+……+N，求SUM不大于1000的最大整数之和以及所对应的N值。 题目4:输出所的水仙花数，所谓水仙花数是指一个三位数，其各位数字的立方和等于该数本身，例如，153是一个水仙花数，因为153=13+53+33。 题目5: 统计一文本框中数字字符的个数。 题目6: 判断一个数x是否为素数。 题目7:求裴波那契数列的前20项，该数列形式为：1，1，2，3，5，8……。即A(1)=1，A(2)=1，A(K+2)=A(K)+A(K+1) 循环嵌套举例 一、程序分析举例 题目1: n = 1 For i = 1 To 3 For j = 5 To I Step -1 n = n + 2 Next j Print n ; j ; i Next