8.2过程及模块分类-子过程 子过程：也称为Sub过程，是执行一项操作的过程。 子过程没有返回值，子程序以关键字Sub开始，并 以End Subi语句作为结束。 可以引用过程名调用，或使用关键字Cal 子过程格式： Sub子程序名(0 [程序代码] End Sub 例：编写标准模块1，写子过程model,输出消息框：这是model,位于标 准模块 编写窗体类模块1，写字过程class,输出消息框：这是class,位于窗体类 模块
• 子过程：也称为Sub过程，是执行一项操作的过程。 • 子过程没有返回值，子程序以关键字Sub开始，并 以End Sub语句作为结束。 • 可以引用过程名调用，或使用关键字Call 8.2 过程及模块分类-子过程 子过程格式： Sub 子程序名() [程序代码] End Sub 例：编写标准模块1，写子过程model，输出消息框：这是model，位于标 准模块 编写窗体类模块1，写字过程 class，输出消息框：这是class，位于窗体类 模块
8.2过程及模块分类-函数 函数过程：也称为Function过程，是一种能够返回具体 值的过程，返回的值可以在表达式中使用。 函数过程以关键字Function开始，并以End Function语 句作为结束。 不能使用ca调用，直接引用函数过程名，函数名后要 加括号。 函数格式： Function 函数名称0as数据类型 [程序代码] End Function 例：在标准模块中编写全局函数yesterday0
◼ 函数过程：也称为Function过程，是一种能够返回具体 值的过程，返回的值可以在表达式中使用。 ◼ 函数过程以关键字Function开始，并以End Function语 句作为结束。 ◼ 不能使用call调用，直接引用函数过程名，函数名后要 加括号。 函数格式： Function 函数名称() as 数据类型 [程序代码] End Function 8.2 过程及模块分类 -函数 例：在标准模块中编写全局函数yesterday()
阳欢迎：窗体 ▣x 作业1 号主体 在数据库窗口对象下，双击“在设计 欢迎 未绑定 视图中创建窗体”，在窗体中添加文本 框，标签名称为“欢迎”，添加2个命 2 显示 洁除 令按钮，标题分别为“显示”和“清 除”，然后选中“显示”按钮，单击 教学管理宏-Form欢迎 代码) “属性”按钮，选择“事件”选项卡， For■ Load 单击“单击”项中的 ”..”,在代码窗口 Option Compare Database 中输入vba语句。 Private Sub Form_Load( Me.Caption=“欢迎“ 在代码窗口的对象框中选择“清除” End Sub 按钮（命令2），在该过程中输入Vba语 Private Sub命令2 Click0 Me.文本0.SetFocus 句。在代码窗口的对象框中选择 Me.文本0.Text=“您好！欢迎学习BA“ "form”,在该过程中输入vba语句。 End Sub Private Sub命令3_Click0 返回到窗体，单击窗体视图，分别单 Me.文本0.SetFocus Me.文本0.Text=“ 击显示和清除按钮，看运行情况。 End Sub 三复山
在数据库窗口对象下，双击“在设计 视图中创建窗体” ，在窗体中添加文本 框，标签名称为“欢迎” ，添加2个命 令按钮，标题分别为“显示”和“清 除” ，然后选中“显示”按钮，单击 “属性”按钮，选择“事件”选项卡， 单击“单击”项中的“…” ，在代码窗口 中输入vba语句。 在代码窗口的对象框中选择“清除” 按钮（命令2），在该过程中输入vba语 句 。 在 代 码 窗 口 的 对 象 框 中 选 择 “form” ，在该过程中输入vba语句。 返回到窗体，单击窗体视图，分别单 击显示和清除按钮，看运行情况。 作业1
作业2：在模块对象下创建函数过程，计算半径为3的 球的体积。操作步骤如下 在模块对象下，单击“新建” 按钮，打开新建模块窗 口，单击“插入”菜单上“过程”，在过程对话框中选择 类型为”函数”范围为”公共的”，输入名称为 “volume”,单击“确定”按钮。在函数过程中填写vba语 句。 Public Function Volume()As Single Volume=4/3*3.14*3^3 End Function 在窗体文本框中调用函数function(O 显示结果：13.04 计算半径为3的球的体积
作业2：在模块对象下创建函数过程，计算半径为3的 球的体积。操作步骤如下： 在模块对象下，单击“新建”按钮，打开新建模块窗 口，单击“插入”菜单上“过程” ，在过程对话框中选择 类型为 “ 函 数 ” 范 围 为 “ 公共的 ” ， 输入名称为 “volume” ，单击“确定”按钮。在函数过程中填写vba语 句。 Public Function Volume() As Single Volume＝4/3*3.14*3^3 End Function 在窗体文本框中调用函数function() 显示结果：113.04 计算半径为3的球的体积
8.3VBA程序设计基础 8.3.1面向对象程序设计的基本概念 1.对象 在VBA程序设计时，界面上的所有事物都 可以称为对象。每一个对象都有自己的属性、 方法和事件。用户是通过属性、方法和事件来 处理对象的
1.对象 在VBA程序设计时，界面上的所有事物都 可以称为对象。每一个对象都有自己的属性、 方法和事件。用户是通过属性、方法和事件来 处理对象的。 8.3 VBA 程序设计基础 8.3.1 面向对象程序设计的基本概念