面向对象程序相关设计语言VBA.pptVIP

* * * * * * * * * * * * * * VBA程序由三种基本结构组成： 顺序结构：语句按排列的顺序依次执行。 条件判断结构：按照给定的条件进行判断，再按判断的 结果分别执行程序中不同部分的代码。 循环结构：按照条件反复执行一系列语句。 根据循环的条件，可以把循环结构分为两类： -当型循环结构：当条件成立时，反复执行语句。 -直到型循环结构：反复执行语句直到条件成立为止。 语句组2 语句组1 T F 语句组2 条件 语句组2 程序结构 F T 条件 语句组 T F 条件 语句组 If…Then…Else语句有三种形式： 单行式：条件成立则执行一个语句。 格式：if 条件 then 语句 例：if A=0 then MsgBox X*X 若有多个语句，应写在一行且用冒号隔开，例如， If A0 Then A=A+1:B=B+2:C=C+3 IF语句 带有else（否则）部分的形式：条件成立则执行一组语句，否则执行另一组语句 格式： If 条件 then 语句组1 Else 语句组2 End if x=InputBox(“x=”) If x=0 then y=2*x+1 Else y=-x Endif MsgBox “y=” y IF语句的嵌套： 格式： If 条件1 then 语句1 Elseif 条件2 then 语句2 …… Else 语句n End if 例：按成绩输出信息 score=InputBox(“成绩”) If score=90 Then Msgbox “优” ElseIf score=80 Then Msgbox “良” ElseIf score=70 Then Msgbox “中” ElseIf score=60 Then Msgbox “及格” Else Msgbox “不及格” End If Select Case选择结构：根据表达式求值结果，选择执行几个分支中的一个。 格式： Select Case 检验表达式 [Case 比较列表1 ] [ 语句1] [Case 比较列表2 ] [ 语句1] …… [Case Else [语句n]] End Select Select Case语句 例：按成绩输出信息 score=InputBox(“成绩”) k=score/10 Select Case k Case 9,10: Msgbox “优” Case 8: Msgbox “良” Case 7: Msgbox “中” Case 6: Msgbox “及格” Case Is 6: Msgbox “差” End Select For…Next循环结构：将一段程序重复执行指定的次数，其中使用一个计数变量，统计执行的次数。 格式： For 计数器=初值 To 终值 [Step 步长] [语句组1] Exit For [语句组2] Next [计数器] 功能：执行For语句时，“计数器”设为“初值”；执行到Next语句时，步长加（减）到计数器上；再执行For语句时，若“计数器”超过“终值”则循环结束。 步长：未指定值时默认为1。 若“步长”是正数或0，则“初值”应大于等于“终值”，否则，“初值”应小于等于“终值”。 For Next 语句 Do…Loop循环结构：定义要多次执行的语句块。可定义一个条件，当条件为假时，结束循环。 格式1：先判条件是否成立，再开始循环。 Do [{While | Until}条件] [语句] [Exit Do] [语句] Loop 格式2：先循环，再判条件是否成立。 Do [语句] [Exit Do] [语句] Loop [{While|Until}条件] Do…Loop 语句 VBA编程错误处理 VBA编程可用On Error GoTo指令来控制当有执行的错误发生时，程序作何反应。