VB讲义(6)

1． VB首先测试条件1，如果它为False，VB就测试条件2，依次类推，直到找到一个为True的条件。此时，VB就会执行相应的语句组，然后执行End If后面的语句。

2． 不能交叉嵌套（内外层），只能完全嵌套。 3． 可以使用任意数量的ElseIf语句。 4． 只有一个End If与If相对应。

例4-6，商场购物打折的计算

4.2.4 多条件选择语句Select Case

格式：Select Case 测试表达式 Case 表达式1 语句组1 Case 表达式2 语句组2 ……

Case 表达式n 语句组n [ Case Else

语句组n+1 ]

End Select

改进：Select Case 测试表达式 ‘复合语句 Case 表达式1：语句组1 Case 表达式2：语句组2 ……

Case 表达式n：语句组n [ Case Else ：语句组n+1 ]

End Select

1． 测试表达式只能是数值型或字符型。

2． 测试表达式只计算一次，然后VB将表达式的值与结构中的每个Case的值进行比较，如果相等，就执行与该Case相关联的语句组。

3． 如果不止一个Case与测试表达式相匹配，则只对第一个匹配的Case执行与之相关联的语句组。

4． 表达式n的可能形式：

(1) 表达式1[,表达式2][,表达式3]?? 无大小顺序。 (2) 表达式1 To 表达式2 包括表达式1和表达式2在内。

(3) Is<关系运算符><表达式>

只能是简单的条件，不能用逻辑运算符将两个或多个条件组合在一起。 以上三种形式可以混合使用。

例4-7：输入月份，求所属季度

例4-8：进行10-99之间两位数的加、减、乘、除运算，并判断得分。

4.2.5 条件判断函数IIF

格式：IIf(条件，表达式1，表达式2)

1． 当条件为真时，函数返回值是表达式1的值；当条件为假时，函数返回值是表达式2的值。

例：Print IIf(cj>=60,“通过”,“不通过”)

2． IIf函数可以嵌套使用。 例：Print IIf(a<0,-1,IIf(a=0,0,1)) 总结：

1． 行If语句：双分支结构 2． 块If语句：双分支结构 3． If语句的嵌套：多分支结构 4． ElseIf语句：多分支结构

5． 多条件选择语句Select Case：多分支结构 6． 条件判断函数IIf：双分支结构

4.3 循环结构程序设计

1． 特点：根据给定条件是否满足决定是否继续执行循环体中的操作。 注：避免出现“死循环”。当程序运行了“死循环”的结构，必须按Ctrl+Break中断。 2． 三种循环结构：

（1）For?Next （2）While?Wend （3）Do?Loop 3． 循环方式：（1）计数法 （2）标志法

4.3.1 For循环结构

格式：For 循环变量=初值 To 终值 [Step 步长] 循环体 Next [循环变量]

循环控制变量=初值 循环控制变量 当前值超出终值? False True 循环体语句组 循环控制变量=循环控制变量+步长 Next的下一条语句

1． 缺省步长时，默认是1。步长可以为正值或为负值。 2． 先判断条件，后执行循环体。

注：若循环体执行n次，则条件将被判断n+1次。

3． Exit For语句的作用：提前退出循环体，结束循环结构。 4． 空循环的作用：延时。

5． For循环一般用在已知循环次数的情况。 6． 多重循环：不能交叉嵌套，只能完全嵌套。 各层次的循环变量名不能相同。

7． 多重循环可以共用一个Next语句，但此时循环变量名不能省略，并且先内循环变量，后外循环变量。

Private Sub Command1_Click() Dim s As Integer, i As Integer For i = 1 To 99 Step 2

s = s + i Next i

Print \的和是：\ Print \的当前值是：\End Sub

例：For i=1 To 10 For j=1 To 15 For k=1 To 20 循环体 Next k Next j

Next i

例4-9：求1！+2！+3！+…+n!的值 例4-10：打印九九乘法表

4.3.2 当型循环While…Wend结构

格式：While 条件 循环体 Wend

False 逻辑表达式 True 循环体语句组 Wend后的下一条语句

1． 先判断条件，后执行循环体。

注：若循环体执行n次，则条件将被判断n+1次。

2． 循环体内一定要有改变条件的语句，否则就会导致“死循环”。 3． 多重循环：不能交叉嵌套，只能完全嵌套。 例4-11：求两个数的最大公约数。

4.3.3 Do…Loop循环结构

1． 既可以是当型循环，也可以是直到型循环。 2． While与Untill后面的“条件”总是相反的。 3． 既可以先判断后执行：

若循环体执行n次，则条件将被判断n+1次。 也可以先执行后判断：

若循环体执行n次，则条件将被判断n次。

4． Exit Do语句的作用：提前退出循环体，结束循环结构。 当 型 循 环 直 到 型 循 先判断后执行 Do While 条件 循环体 Loop 与While?Wend结构相同 Do Untill 条件 循环体 Loop Do Do 先执行后判断 循环体 Loop While 条件 循环体 Loop Untill 条件 环

例4-12：求1?111111???????的前n项之和。 248163264总结：提前退出循环体的方法： (1) For?Next ：用Exit For语句 (2) While?Wend

(3) Do?Loop ：用Exit Do语句 总结：

1． For循环结构：计数法。

2． While循环结构：计数法、标志法，可以实现多条件判断。 3． Do?Loop循环结构：计数法、标志法，可以实现多条件判断。

4.3.4 常用算法举例

1． 例4-13：输入一个正整数，判断是否为素数。

2． 例4-14：用牛顿切线法求高次方程3x?4x?5x?13?0的根。 3． 例4-15：用二分法求高次方程3x?4x?5x?13?0的根。 4． 用迭代法求x?为xn?1?2222a，a从键盘输入（a>0）。要求x的误差小于0.00001。迭代公式

1?a???x? n?2?xn??4.4 其他辅助语句

4.4.1 GoTo语句

功能：无条件地转向执行语句标号或行号的语句。

1． 格式1：Goto 语句标号 语句标号后面必须加一个冒号。 2． 格式2：Goto 行号 行号后面不能加冒号。

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库VB讲义(6)在线全文阅读。