2008春VB程序设计第五部分程序流程控制.pptVIP

Visual Basic 程序设计（五） 教材： Visual Basic程序设计教程 （第三版） 高等教育出版社 主讲： 陆延哲 第5部分 程序流程控制 一、程序语句 二、顺序结构设计 三、选择结构设计 四、循环结构设计 五、其它控制语句 六、应用程序举例 七、程序调试 八、条件编译 7. 条件函数 （1）if函数 ?? 　 Iif（表达式，当条件为True时的值，当条件为False时的值）　　 例：求X、Y中大的数，并放入变量Tmax中：?? Tmax = Iif（XY, X, Y） （2）Choose函数 ?? 　 Choose（整数表达式，选项列表）　　 如果整数表达式的值是1，则选择列表中的第1项，依次类推； 如果小于1或大于列表项数时，则返回NULL。　　 例： 根据nub为1 -4的值，换算成不同的运算符： OP= Choose（nub,“＋”，“－”，“×”，“÷”） 四、循环结构程序设计 1. 循环的种类 Do……Loop循环 For……Next循环 While……Wend循环 循环嵌套 2. Do……Loop 循环 Do While … Loop Do While 条件 循环体 Loop 条件 循环体 真 假 Do Until … Loop Do Until 条件 循环体 Loop 条件 循环体 假 真 Do … Loop While Do 循环体 Loop While 条件 条件 循环体 真 假 Do … Loop Until Do 循环体 Loop Until 条件 条件 循环体 假 真 Do……Loop循环举例 例：用近似公式求自然对数的底 e 的值 要求: 精确到最后一项 err , err的值由用户输入. 例: 判断一个数是否是素数. 例 : 设计一个摇奖装置, 随机产生一个n(1≤n≤10)位数的中奖号码, n值由用户提供. For 循环控制变量=初值 To 终值［step 步长］ 循环体 Next [循环控制变量] 3. For …… Next 循环 例： S=0 For I=1 to 100 Step 2 S=S+I Next 省略时 步长=1 可省写 4. While …… Wend 循环 While 条件 循环体 Wend 条件 循环体 真 假 例： S=0 I=1 While I100 S=S+I I=I+2 Wend 例: 提示用户输入非负数值, 统计数据的总和和 平均值, 用负数表示输入结束. 5. 循环的嵌套 一个循环的循环体内又包含另外一个完整的循环, 称为循环的嵌套. 例: 输出100以内所有的素数. 例: 输出100~999内所有的水仙花数. 例: 输出一个“数字金字塔”. 五、其它控制语句 1. Goto语句 格式: Go To {标号|行号} 作用是无条件地转移到标号 或行号指定的那行语句. 标号是一个字符序列 行号是一个数字序列 例 求100以内的素数 判别某数m是否为素数最简单的方法是: 对于m 从i=2，3，…，m-1判别m能否被i整除，只要有一个能整除 ，m不是素数，否则m是素数。 For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM EndIf Next i Print m NotNextM: Next m 2. Exit 语句 Exit 语句用于退出 Do...Loop、 For...Next、 Function代码块、 Sub代码块。 对应的使用格式为： Exit Do、 Exit For、 Exit Function、 Exit Sub 分别表示退出 DO循环、For循环、 函数过程、子过程。 例如： 下面的例子是使用 Exit 语句退出 For...Next 循环、Do...Loop 循环及子过程。 Private Sub Form_Click() Dim I%, Num% Do 建立无穷循环。 For I = 1 To 100