（本科）第7章VBA编程基础ppt课件.pptx

课程主讲人：（本科）第7章VBA编程基础ppt课件Access数据库程序设计授课教师：吴小菁 VBA编程基础第七章任务一任务二任务三任务四任务五VBAVBA(Visual Basic for Applications)语言是Access开发的应用程序的核心，也是开发Access向导和宏所不能涉及的应用程序的关键。提出任务任务一在模块里定义一个函数过程，实现以下功能：如果系统的日期为11月11日，则弹出消息框显示“双十一购物节！”子过程与函数过程 sub格式：(无返回值） Sub 过程名 程序代码 End Sub Function格式：（有返回值） Function 过程名 程序代码 End Function 1 Sub过程知识点2Function过程注释语句1Rem语句， 格式：Rem 注释语句2单引号“ ”，格式： 注释语句VBA常用操作 关闭对象Docmd.Close 打开窗体Docmd.OpenForm 打开报表Docmd.OpenReport 运行宏 Docmd.RunMacro对象的属性与方法1对象.方法 例子：DoCmd.OpenForm form12对象.属性 例子： Forms!form1!bt1.Caption = “hello条件语句（单分支结构） 格式1：If Then 格式2：If Then End If 1If-Then语句知识点提出任务创建一个模块，模块名为“双分支结构”，在模块里定义一个子过程“比较大小”，实现以下功能：输入 框输入两数，并比较这两个数的最大值，输出最大值。任务二在模块里定义一个子过程“成绩”，实现以下功能：用输入框输入一个成绩值，判断这个成绩是否及格，用弹出消息框显示“及格”或者“不及格”。条件语句（双分支结构） 格式1：If Then Else 格式2：If Then ElseEnd If 1If-Then-Else语句知识点输入框函数Inputbox（提示信息提示信息，标题，标题）通常的用法：通常的用法：变量变量Inputbox（提示信息，标题（提示信息，标题）变量的命名规则1一般是包含字母、数字、下划线_2第一个字符只能是字母3大小写不敏感变量的声明显式声明：格式：Dim 变量名 As 数据类型数据类型列表数据类型类型标识符号整数Integer%长整数Long&单精度Single!双精度Double#货币Currency字符串String$布尔型Boolean日期型Date变体类型Variant无隐含声明：例1：dim a1 省略变量数据类型默认为变体variant例2：a2=100 若变量没有声明直接赋值，则该变量默认为变体variant例题Dim b1,b2 As Boolean语句显式声明变量（ ）A、b1和b2都为布尔型B、b1是整型，b2是布尔型C、b1是变体型，b2是布尔型D、b1和b2都为变体型赋值语句赋值语句格式：赋值语句格式：变量值或表达式变量值或表达式条件函数（IIF） 条件式为真： 函数返回“表达式1”的值 条件式为假： 函数返回“表达式2”的值1知识点IIF（条件式，表达式1，表达式2）提出任务创建模块，名为“多分支结构”，自定义一个子过程，子过程名为“成绩级别” ，程序功能是：任务三自定义一个子过程“问好”，程序功能是：判断当前系统时间小时数所在范围。60以内60-7980以上8-1112-17其它时间条件语句（多分支结构）If Then ElseIf ThenElseEnd If 1If-Then-ElseIf语句格式条件语句（开关语句）Select Case 表达式Case 表达式1（可以是某个值如：0）语句序列1Case 表达式2（可以是值的范围如：1 to 10）语句序列2Case 表达式3（可以是某个条件表达式如：is =11）语句序列3Case Else（除了以上情况）不符合以上情况的语句序列End Select 1 Select Case-End Select语句格式时间函数 当前系统时间函数：time() 截取时间的时：hour() 截取时间的分：minute() 截取时间的秒：second()提出任务创建一个模块，名为“循环结构”，自定义一个子过程“正方形”，程序功能是：在立即窗口中显示有星号（*）组成的55的正方形。任务四提出任务在“循环结构”模块中自定义一个子过程名为“正三角形”，程序功能：在立即窗口中显示有星号（*）组成的正三角形。任务四提升循环语句For 循环变量=初值 To 终值 Step 步长循环体Next 循环变量 1 For-Next 语句格式循环语句Do While 循环体Loop 1Do While-Loop 语句格式提出任务在循环语句模块中：自定义一个子过程，程序的功能是：计算下列公式的值：sum=1+2+3+4+100。任务五任务五提升效果提出任务选择控件的事件添加代码任务五提升响应控件的事件代码THANKS