计算机基础与Access数据库程序设计 教学课件 作者 978 7 302 28810 7 计算机基础与Access数据库程序设计7.pptVIP

Rem 只有当 n 在0-12之间时才能够计算 If n = 0 And n 13 Then For k = 1 To n Fn = Fn * k Next Else MsgBox (数值超范围，合理的范围是1-12！) End If End Function Private Sub CFn() Debug.Print Fn(12) Debug.Print Fn(11), Fn(11) / Fn(12) End Sub 7.4.1 选择结构控制 选择结构可以依据条件选择程序的执行路线。VBA有两种选择控制语句，一是If条件分支语句，二是Select Case多分支语句。 1. If条件分支语句 If语句的典型语法结构有四种，第一种格式为： If 条件 Then 语句 语句执行时，判断条件(逻辑表达式)是否成立(为“真”)，如果成立则执行Then后面的语句，然后执行下一条语句。如果条件不成立，则不执行Then后面的语句而是直接执行下一条语句。 第二种格式为： If 条件 Then 语句序列 EndIf 语句执行的特点与第一种格式相同。执行时首先判断条件，如果成立则执行语句序列，然后执行EndIf之后的语句。如果条件不成立则直接执行EndIf之后的语句。 第三种格式为： If 条件 Then 语句序列1 Else 语句序列2 EndIf 语句执行时首先判断条件，如果成立则执行语句序列1，否则执行语句序列2，执行完语句序列1或语句序列2后继续执行EndIf之后的语句。第一种和第二种格式可以选择执行或不执行(跳过)一个语句或语句序列，第三种格式则依据条件选择执行两个不同的语句序列。 第四种格式为： If 条件1 Then 语句序列1 ElseIf 条件2 Then 语句序列2 ... ElseIf 条件n-1 Then 语句序列n-1 Else 语句序列n EndIf 语句依次判断条件，如果当前条件(条件i)不成立，则跳过语句序列i并继续判断下一个条件。如果条件i成立，则执行语句序列i，然后继续执行EndIf之后的语句，如果所有条件都不成立，则执行语句序列n。执行完某一分支语句序列之后，继续执行EndIf后面的语句。 【例7-8】If语句应用举例。本例通过InputBox函数输入一个数字字符串并将其转换为数值，然后判断该数值并显示消息框。 Dim aa As Integer aa = Val(InputBox(请输入一个数字：, 输入数据, 1)) If aa 0 Then MsgBox (输入一个正数) ElseIf aa = 0 Then MsgBox (输入零) Else MsgBox (输入一个负数) End If 2. Select Case多分支语句 当条件判断较多时，使用If语句会出现ElseIf过多的情况。一方面，语句比较繁琐，另一方面也不便于程序分析。可以使用Select Case语句解决这样的问题，其语法格式如下： Select Case 测试表达式 [Case 表达式列表1 [语句序列1] ... [Case 表达式列表n [语句序列n]]] [Case Else [语句序列n+1]] End Select 语句中的测试表达式可以是数值表达式或字符串表达式，执行前，该表达式必须是可以求值的。 Case 表达式列表及Case Else是可选的。表达式列表中可以包含下列形式的表达式(数值型或字符型)： 表达式，执行时值是确定的，当测试表达式的值等于表达式的值时满足测试条件。 表达式1 TO 表达式2，用于指定值的范围且表达式1 表达式2，当测试表达式的值 = 表达式1，同时测试表达式的值 = 表达式2的时候满足测试条件。 Is 比较运算符 表达式，用于比较测试表达式的值和给定表达式的值之间是否满足给定的比较关系，是则满足测试条件。 语句执行时，首先计算测试表达式的值，然后依次判断各Case条件是否满足(表达式列表中任一表达式满足测试条件即可)，如果某一Case条件满足则执行对应的语句序列，然后继续执行End Select之后的语句。当所有Case条件都不满足时，如果语句中没有Case Else，则执行End Select之后的语句，否则执行Case Else对应的语句序列，然后继续执行End Select之后的语句。 【例7-9】Select