程序设计基础_上课资料

《程序设计基础_上课资料》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、8.3.1VBA编程环境和变量学习一、实验目的1.熟悉VBA编程环境；2.掌握变量的赋值和引用；二、实验内容1.学习如何打开VBA编程环境；2.学习如何创建一个标准模块；3.学习如何变量声明、赋值和引用；三、操作步骤1.开启VBA编程环境（1）使用Access新建一个MDB文件或打开一个MDB文件。（2）打开VBA编程窗口。依次单击数据窗口中的“模块”→“新建”，即弹出新窗口为VBA编程窗口。（3）配置VBA编程窗口。依次单击“视图”→“属性窗口”和“视图”→“立即窗口”，如图8-1所示。图8-1VBA编程窗口（4）创建一个标准模块并重命名。在“属性窗口”内，修改“（名称）”属

2、性值，值为“我的标准模块”。2.变量的认识和操作（1）在“立即窗口”中依次输入如下代码，查看“立即窗口”的内容显示，并思考其原因。A=100?AB=30?BC=A+B?C?C*A（2）思考变量的含义，在“立即窗口”中使用代码完成如下功能：分别定义A、B、C、D、E为100、20、30、10、55，显示五个数的总和与平均值。8.3.2模块中的过程与输出学习一、实验目的1.在VBA编程环境创建模块和过程；2.程序的信息输出；二、实验内容1.学习在VBA中创建标准模块并在模块中创建过程；2.学习在VBA中通过窗体创建类模块，并在类模块中创建事件过程和普通过程；3.学习在VBA中通过立

3、即窗口、消息框和窗体输出信息；三、操作步骤1.在标准模块中创建过程实现变量赋值和计算（1）在Access文件中创建标准模块，模块名称为cAddSub；（2）在模块中输入如下过程：SubcAdd()A=150:B=30C=A+BMsgBoxCEndSub（3）在立即窗口中输入cAdd后按回车；（4）在模块中输入如下过程：SubcDiv()A=150:B=30C=A/BDebug.PrintCEndSub（5）在立即窗口中输入cDiv后按回车；2.使用窗体创建类模块，并使用过程实现变量赋值和计算（1）在Access中使用窗体设计创建窗体，窗体名称为“计算”；（2）在窗体中创建两个文

4、本框，文本框的名称以及相应标签显示为A、B，文本框的格式属性为常规数字；在文本的下方四个标签，名称分别为X1、X2、X3和X4；在最下方创建一个按钮，名称为Calc，显示为“计算”。（3）在“计算”按钮上单击右键，选择“事件生成器”，将弹出如图8-2所示的对话框，选择“代码生成器”后按“确定”，进入本窗体的类模块，光标的当前位置为单击事件过程。（4）在事件过程的下方输入以下代码：SubCalc_minus()X2.Caption="差为："+Str(A-B)EndSubFunctionCalc_product()Calc_product="积为："+Str(A*B)EndFun

5、ctionSubCalc_divide(XAsSingle,YAsSingle)X4.Caption="商为："+Str(X/Y)EndSub（5）在事件过程的里面输入以下代码：DimCAsIntegerC=A+BX1.Caption="和为："+Str(C)Calc_minusX3.Caption=Calc_productCallCalc_divide(A,B)（6）程序运行后的实例如图8-2所示。图8-2实例运行窗体8.3.3VBA中的数据输入与变量的作用域一、实验目的1.在VBA中类模块和标准模块输入数据；2.了解局部变量、模块变量和全局变量的作用域；二、实验内容1.学习

6、输入函数inputbox输入数据；2.学习创建窗体，使用用控件输入数据；3.学习区分局部变量、模块变量和全局变量的声明和使用；三、操作步骤1.局部变量与模块变量（1）在Access文件中创建标准模块，模块名称为privateVar；；（2）在模块中输入过程A1，过程里面有三个变量A、B、C，A为150，B为30，C为A+B，使用MSGBOX显示C的值；输入如下代码并在立即窗口运行A1。SubA1()DimAasIntegerDimBasIntegerDimCasIntegerA=150B=30C=A+BMsgBoxCEndSub（3）在模块中输入过程A2，过程里面有三个变量A、

7、B、C，A为150，B为30，C为A/B，使用Debug.print显示C的值；输入如下代码并在立即窗口运行A2。SubA2()DimAasIntegerDimBasIntegerDimCasIntegerA=150B=30C=A/BDebug.PrintCEndSub（4）在模块中输入过程A3，过程里面有两个变量A、B，A为150，B为30，使用Debug.print分别显示A与B的和、差、积、商；输入如下代码并在立即窗口运行A3。SubA3()DimAasIntegerDimBasInt