《VB控制结构语句.docVIP

控制结构语句 有了控制结构就可控制程序执行的流程。如果未复选控制流语句，程序便从左至右、自顶向下地贯穿这些语句。有些简单程序可以只用单向流程来编写，有些流程可以依靠运算符的优先级来控制，但任何编程语言的效力和用途皆由其通过结构和循环改变语句顺序的能力而得。 　 一、判定结构 Visual Basic 过程能够测试条件式，然后根据测试结果执行不同的操作。 Visual Basic 支持的判定结构有： 1.If...Then 2.If...Then...Else 3.Select Case （一）、If...Then 用 If...Then 结构有条件地执行一个或多个语句。单行语法和多行块语法都可以使用： If 条件 Then 执行语句 If 条件 Then 　　 执行语句 End If 条件 通常是比较式，但它可以是任何计算数值的表达式。Visual Basic 将这个值解释为 True 或 False：一个为零的数值为 False，而任何非零数值都被看作 True。若 条件 为 True，则 Visual Basic 执行 Then 关键字后面的所有 执行语句。可以使用单行或多行语法有条件地执行一个语句（下面两个例子等价）： If X 1 Then Y = 100 If X 1 Then 　　 Y = 100 End If 注意：If...Then 的单行格式不用 End If 语句。如果 条件 为 True 时要执行多行代码，则必须使用多行块 If...Then...End If 语法。 If X 1 Then 　　 　Y = 100 注意，这里有一行以上的执行语句，必须使用多行块形式写 　　　 Z = 200 End If （二）、If...Then...Else 用 If...Then...Else 块定义几个语句块，执行其中一个语句： If 条件1 Then 　　　[执行语句-1] [ElseIf 条件2 Then 　　　[执行语句-2]] ... [Else 　　　[执行语句-n]] End If Visual Basic 首先测试 条件1。如果它为 False，Visual Basic就测试条件2，依此类推，直到找到一个为 True 的条件。当它找到一个为 True的条件时，Visual Basic就会执行相应的语句块，然后执行 End If 后面的代码。作为一个选择，可以包含 Else 语句块，如果条件都不是 True，则 VisualBasic 执行 Else 语句块。 If...Then...ElseIf 只是 If...Then...Else 的一个特例。注意，可以使用任意数量的 ElseIf 子句，或者一个也不用。可以有一个 Else 子句，而不管有没有 ElseIf 子句。 例如，应用程序可以根据菜单控件数组中哪个控件被单击而采取相应的动作： Private Sub mnuCut_Click (Index As Integer) If Index = 0 Then　“剪切”命令。 　　　CopyActiveControl　调用通用过程。 　　　ClearActiveControl ElseIf Index = 1 Then　　　“复制”命令。 　　　CopyActiveControl ElseIf Index = 2 Then　　　“清除”命令。 　　　ClearActiveControl Else　　　“粘贴”命令。 　　　PasteActiveControl End If End Sub 注意，总是可以添加更多的 ElseIf 块到 If...Then 结构中去。但是，当每个ElseIf 都将相同的表达式比作不同的数值时，这个结构编写起来很乏味。在这种情况下可以使用 Select Case 判定结构。 （三）、Select Case Visual Basic 提供 Select Case 结构替代 If...Then...Else，从而可在多个语句块中有选择地执行其中一个。Select Case 语句的能力与 If...Then...Else 语句类似，但对多重选择的情况，Select Case 语句使代码更加易读。 Select Case 在结构的上方处理一个测试表达式并只计算一次。然后，VisualBasic 将表达式的值与结构中的每个 Case 的值进行比较。如果相等，就执行与该 Case 相关联的语句块。 Select Case 表达式（值） [Case 表达式（值）1 [执行语句-1]] [Case