14.模块8-2.pptVIP

计算机基础科学系 2010.12 ;本章内容提要;;本讲主要教学内容;学习目标;重点与难点;引　言;8.3 VBA程序设计;;;　　1、顺序结构：顺序结构是指程序的执行按照程序中语句的先后顺序执行。程序的执行流程如下图所示。 ;　　2、选择结构 ：选择程序结构用于判断给定的条件，根据判断的结果来控制程序的流程。使用选择结构语句时，要用条件表达式来描述条件。在VBA中，选择结构通过If语句与Select Case语句来实现。;　　① If…Then。在程序需要作出选择时使用该语句。该语句又有两种形式，分别为单行形式和多行形式。 。;例8-1:已知两个数x和y，比较它们的大小，且确保x大于y。 程序段的代码为： If xy Then t=x x=y y=t ‘交换变量x与y的值 End If 或： If xy Then t=x: x=y: y=t ;　　② If...Then...Else。如果程序要根据条件的成立与否选择执行相应的语句，则使用If...Then...Else。语法格式为： ;8.3 VBA程序设计;　　③If…Then…ElseIf…Else。如果要从3种或3种以上的条件中选择一种，则要使用If…Then…ElseIf…Else。语法格式为：;8.3 VBA程序设计;　　④Select Case语句 。Select Case语句是根据表达式的求值结果，选择执行几个分支中的一个。其语法如下： ; Select Case语句的Select Case后的表达式是必选参数，可为任何数值表达式或字符串表达式； 在每个Case后出现表达式列表是多个“比较元素”的列表。表达式列表可有下面4种形式之一，如下表所示。;8.3 VBA程序设计;注意： 按照在 Select...Case 结构中出现的顺序，将表达式的值和 Case 语句中的值进行比较。 如果发现一个匹配项或一条 Case Else 语句，则执行相应的语句块。 在任何情况下，随后都会将控制转移到 End Select 语句后面的语句。;;　　3、循环结构 ：循环结构主要用来描述重复执行算法的问题，它是程序设计中最能发挥计算机特长的程序结构。 ; ⑴ Do…Loop语句 ：该形式的语句通过Do来执行循环，有4种形式，形式一与形式二为当型循环，形式三与形式四为直到型循环。其中While是条件为真时循环，Until是条件为假时循环。 ; 当型循环的程???流程如下左图所示，直到型循环的程序流程如下右图所示。 ;8.3 VBA程序设计;8.3 VBA程序设计; ⑵ While…Wend循环结构 ：该语句的功能与Do While 条件….Loop实现的循环完全相同。区别在于该语句中不能出现Exit语句！ ; （3） For循环语句 ：For循环一般用于循环次数已知的循环。语句形式如下，该循环结构执行过程如右图所示。 ;;例：显示Fibonacci数列的第15个元素 ;;;　　4、其他语句 ：除了前面所学的一些重要语句格式，我们还了解几个其他常见的语句。 ;8.3 VBA程序设计;Private Sub Form_Click() Dim I%, Num% Do 建立无穷循环。 For I = 1 To 100 循环 100 次。 Num = Int(Rnd * 100) 生成一个0~99的随机数。 Select Case Num Case 10: Exit For 退出 For...Next 循环。 Case 50: Exit Do 退出 Do...Loop 循环。 Case 64: Exit Sub 退出子过程。 End Select Next I Loop End Sub ;8.3 VBA程序设计;小 结;