《VBA编程基础语句》PPT课件.ppt

全国计算机等级考试 Access数据库程序设计（二级）,万红波 烟台大学,VBA编程基础,常量、变量、运算符和表达式； 流程控制语句； 过程调用和参数传递； 常用操作的实现方法； VBA的数据库编程；,2 VBA程序流程控制语句,VBA程序语句按照功能分为： 声明语句：声明变量，常量或自定义类型； 执行语句：执行赋值操作，调用函数或过程，实现各种流程控制； 顺序结构：依次执行； 条件结构：根据条件选择执行路径； 循环结构：重复执行某一段代码；,2.1 程序语句的书写,语句写法 通常将一个语句写在一行上； 续行符(_)将语句连续的写在下一行； 可以将多个语句写在一行上，使用(:)隔开； 注释内容： Rem 注释语句 使用,2.2 声明语句和赋值语句,声明语句用来定义变量，常量，数组和过程； 赋值语句为变量指定一个值或表达式；,Rem 下面的语句是声明语句 Dim age As Integer 下面的语句是赋值语句 age = 14,2.3 语句标号和GoTo跳转语句,GoTo语句实现无条件转移,Dim age As Integer age = Me.txtAge.Value If age 0 Then GoTo ErrorHandler End If GoTo EndProcess ErrorHandler: MsgBox “年龄不得小于零！“, vbExclamation Me.txtAge.SetFocus EndProcess: ,2.4 条件语句 If,If.Then.End If,Rem 例子8.4 Dim x, y As Double If x 0 Then y = Sqr(x) Else If x = 0 Then y = 0 Else y = Abs(x) End If End If,Dim x, y As Double If x 0 Then y = Sqr(x) ElseIf x = 0 Then y = 0 ElseIf x 0 Then y = Abs(x) End If,练习题,在窗体上添加一个名称为Command1的命令按钮，然后编写如下单击事件代码： Private Sub Command1_Click() a = 75 If a 60 Then k = 1 ElseIf a 70 Then k = 2 ElseIf a 80 Then k = 3 End If MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是： A) 1 B) 2 C) 3 D)不确定,2.4 条件语句 Select Case,Select Case.End Select,Select Case 表达式 Case 表达式1,表达式2 语句 Case 表达式3 To 表达式4 语句 Case Is 关系运算符 表达式5 语句 Case Else 语句 End Select,例子,在标准模块中定义一个Sub子过程，根据字符的类型，显示响应的信息,Public Sub charInfo(a As String) Dim Str As String Select Case a Case “A“ To “Z“ Str = “大写字母“ Case “a“ To “z“ Str = “小写字母“ Case “0“ To “9“ Str = “数字字符“ Case “!“, “?“, “,“, “.“, “;“ Str = “标点符号“ Case “ Str = “空字符串“ Case Is 32 Str = “特殊字符“ Case Else Str = “未知字符“ End Select MsgBox Str End Sub,练习题,下列Case语句中错误的是 A) Case 0 To 10 B) Case Is10 C) Case Is10 And Is10,2.4 条件语句-支持选择操作的函数,IIf函数 IIf(条件式,表达式1,表达式2) 根据“条件式”的值决定函数的返回值， “真” 返回“表达式1”的值 “假” 返回“表达式2”的值,返回a,b中较大的值 Max = IIf(a b, a, b),2.4 条件语句-支持选择操作的函数,Switch函数 Switch(条件式1,表达式1,条件式2,表达式2,.) 依次计算“条件表达式n”，直到为“真”，返回对应的“表达式n”,根据x的值，计算y的值 y = Switch(x 0, 1, x = 0, 0, x 0, -1),2.4 条件语句-支持选择操作的函数,Choose函数 Choose(索引式,选项1,选项2,.,选项n) 根据索引式的值(1n)，返回对应的选项,y = Choose(x, 5, m + 1, n),2.5 循环语句,循环语句可以重复执行一行或几行程序代码 VBA支持的循环语句结构 For.Next Do.Loop While.Wend,2.5 循环语句 For.Next,For 循环变量 = 初值 To 终值 Step 步长 循环体 Next 循环变量,默认情况下，步长为1； 步长0:循环变量=终值，执行循环体 可以使用Exit For提前退出循环；,Dim UChar(26) As String Dim i As Integer For i = 1 To 26 UChar(i) = Chr(i + 64) Next i,练习题,设有如下窗体单击事件过程： Private Sub Form_Click() a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是： A) 3 B) 4 C) 5 D)6,练习题,在窗体上添加一个名称为Command1的命令按钮，然后编写如下单击事件代码： Private Sub Command1_Click() sum = 0 For i = 10 To 1 Step -2 sum = sum + i Next i MsgBox sum End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是： A) 10 B) 30 C) 55 D)其他结果,2.5 循环语句 Do.While,Do While 条件式 循环体 Loop,Do 循环体 Loop While 条件式,Do Until 条件式 循环体 Loop,Do 循环体 Loop Until 条件式,条件为“真”，执行循环 条件为“假”，退出循环,条件为“真”，退出循环 条件为“假”，执行循环,可以使用Exit Do提前退出循环,练习题,下列四种形式的循环设计中，循环次数最少的是,A) a=5:b=8 Do a=a+1 Loop W