数据库编程基础第6章VBA6.1引例6.2模块的基本概念6．2．1类模块6．2．2标准模块6．2．2类模块和标准模块的异同6.3模块的创建6.4VBA编程基础6．4．1面向对象程序设计的基本概念2.属性3.事件4.方法6．4．2VBA编程环境一、VBE特性二、VBE窗口简介6．4．3数据类型一、基本数据类型表6-2VBA的基本数据类型6．4．4常量和变量二、变量6．4．5VBA常用内部函数6．4．6运算符和表达式6．4．7基本输入输出语句6.5VBA流程控制语句6．5．1顺序结构6．5．2分支结构例6.10某市举办全民田径运动会，对所有8岁～70岁的市民开放网上报名。报名按年龄分为如下组别：小于12（含12）岁的为少年组，13～18（含18）岁的为青少年组，19～30（含30）岁的为青年组，31～40（含40）岁的为中青年组，41～50（含50）岁的为中老年组，51（含51）岁以上的为老年组。要求市民填报出生年份（四位）信息后，能够根据其年龄显示相应的欢迎信息。如张三36岁，显示的欢迎信息为“张三您好，欢迎参加全民田径运动会中青年组的比赛”。解题步骤：（1）新建图6-23所示效果窗体，添加标签、文本框、按钮等控件。（2）修改相关属性设置录入用户名的文本框的名称为tname；录入出生年份的文本框名称为tyear；6．5．3循环结构6.6过程6．6．1过程与函数6．6．2参数传递6．6．3变量的作用域和生存期6.7VBA中常用对象及属性6．4．2VBA中常用的DoCmd、Me对象PrivateSubCommand4_Click()IfMe.Recordset.AbsolutePosition=Me.Recordset.RecordCount-1ThenMsgBox"你已经处于该记录集的最后一条记录"ElseDoCmd.GoToRecord,,acLastEndIfEndSubPrivateSubCommand6_Click()OnErrorGoToErr_Command6_ClickDoCmd.GoToRecord,,acNewRecExit_Command6_Click:ExitSubErr_Command6_Click:MsgBoxErr.DescriptionResumeExit_Command6_ClickEndSub6.8小结