2014年9月二级VB等级考试辅导第2次分析.ppt

P77 循环结构 循环结构 解决一些需要重复多次才能完成的问题 每一次在做相同操作或与上一次有联系的相似操作 两种循环 循环条件 循环体 0 当型循环 非0 入口 出口 非0 循环体 循环条件 0 直到型循环 入口 出口 循环结构 三条循环语句 For……Next语句 Do……Loop语句 While... Wend 语句 循环结构 For……Next语句 实现循环次数已知的循环 For 循环变量=初值 To 终值 [Step 步长] 循环体 [Exit For] Next 循环变量 循环结构 For……Next语句 循环变量赋初值 循环条件 循环体 循环变量增值 真 假 初值只赋一次 循环条件 步长0时，循环变量当前值≤终值 步长0时，循环变量当前值≥终值 步长=0时，死循环 Next语句作用 循环变量=循环变量+步长 一般不在循环体中改变循环变量值 步长缺省为1 循环次数=Int((终值-初值)/步长+1) 历年真题 [EX]以下程序段的输出结果是（） X=6 for k= 1 to 10 step -2 x=x+k Next k Print k;x A -1 6 B -1 16 C 1 6 D 11 31 循环结构 Do……Loop语句 多用于循环次数未知的循环 两种形式 Do 循环条件……Loop Do ……Loop 循环条件 两种条件 While条件为真时执行循环，否则退出 Until条件为假时执行循环，否则退出 While条件 循环体语句 False True Until条件 循环体语句 True False Do While-Loop语句 Do Until-Loop语句 Do -Loop While语句 Do -Loop Until语句 True 循环体语句 While条件 False False 循环体语句 Until条件 True 练习题 给出下面程序段的输出结果 P=0 S=0 Do p=p+2 s=s+p Loop while p11 Print “s=”;s 练习题 以下程序用于计算机数学表达式1^2-2^2+3^2-4^2+…+(n-1)^2-n^2 Private sub command1_click() N=val(inputbox(“请输入大于零的偶数n”)) S=0: I=1: C=1 Do S=S+C*I*I C=__(1)____ I=___(2)____ Loop while __(3)_______ Print “s=”;s End sub 循环结构 循环三要素 循环条件、循环变量初始化、改变循环变量的值 Do条件-Loop Do-Loop条件 For-Next 类型 当型 直到 当型 循环条件 Do后 Loop后 For中 循环变量初始化 Do前 Do前 For中 改变循环变量的值 循环体中 循环体中 Next中 循环结构 循环中应避免的问题 不循环 发生场合：当型循环 原因：循环变量初值不合适，循环初始条件为假 死循环 发生场合：当型循环、直到型循环 原因：循环变量改变量不合适，循环条件始终为真或假 循环结构 循环的入口与出口 循环入口 满足循环条件即可进入循环 循环出口 正常出口：不满足循环条件，正常退出 紧急出口：当出现某种情况时，不管当前是否满足循环条件，立即退出 Exit For语句：退出For循环 Exit Do语句：退出Do循环 一般出现在一条If语句中，如If n Mod 3=0 Then Exit For 循环结构 嵌套：一个结构中又包含另一个完整的结构 几种选择结构可以相互嵌套 几种循环语句可以相互嵌套 一般情况下各层循环变量互不相同 选择结构与循环结构可以相互嵌套 典型例题 x=0 For i=0 to 4 For j=0 to 4 x=x+j Next j Exit for Next i Print x 程序改错 已有一模块文件Modify.Bas。该模块中的 Guess 过程是猜数游戏，由计算机产生一个[1，100]的任意整数，输入猜数后计算机给出提示，如果5次后还没有猜中就结束游戏并公布正确答案。 Public Sub Guess() Dim R As Integer Dim X As Integer Dim times As Integer Randomize R = Rnd * 100 产生一个1--100 的任意整数 times = 1 Do X = Val(I