vba试题和答案

1、 编写程序，随机生成20个两位整数，并统计出其中小于等于60、大于60小于等于80及大于80的数据以及相应个数，结果打印输出到窗体。 Private Sub Form_Click() For i = 1 To 20

a = Fix(Rnd() * 91 + 10) If a <= 60 Then x = x & a & \b = b + 1 End If

If a > 60 And b <= 80 Then y = y & a & \c = c + 1 End If

If a > 80 Then z = z & a & \d = d + 1 End If Next i

Print \小于等于60的个数：\个,\

Print \大于60小于等于80的个数：\个,\Print \大于80的个数：\个,\End Sub

2、 编写程序：利用随机函数产生10个（59，142）范围内的随机整数，显示它们当中的最大值、最小值和平均值。 Private Sub Form_Click() Max = 60 Min = 141

For i = 1 To 10

a = Fix(Rnd * 82 + 60) Sum = Sum + a

If a > Max Then Max = a If a < Min Then Min = a Print a; Next i Print

Print \最大值：\Print \最小值：\

Print \平均值：\End Sub

3、 编写程序，随机生成15

VBA基础练习题（二）

姓名：

班级：

成绩：

一、选择题

1．VBA中定义符号常量可以用关键字( ) A)Const B)Dim C)Public D)Static

2．Sub过程和Function过程最根本的区别是( )

A)Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 B)Sub过程可以使用Call语句或直接使用过程名，而Function过程不能 C)两种过程参数的传递方式不同

D)Function过程可以有参数，Sub过程不能有参数

3．定义了二维数组A(2 to 5，5)，则该数组的元素个数为( ) A)25 B)36 C)20 D)24

4．在有参函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。其设置选项是( )

A)ByVal B)ByRef C)Optional D)ParamArray

5．在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是 A)快速监

VBA练习1

一、选择题

1、下列关于VBA面向对象中的“事件”，说法正确的是（B）。 A、每个对象的事件都是不相同的

B、触发相同的事件，可以执行不同的事件过程 C、事件可以由程序员定义

D、事件都是由用户的操作触发的

2、设a，b为整数变量，且均不为0，下列关系表达式中恒成立的是（C）。 A、a*b\\a*=1 B、a\\b*b\\a=1 C、a\\b*b+a Mod b=a D、a\\b*b=a

3、设有如下变量声明：Dim TestDate As Date ，变量TestDate正确赋值的表达式是（A）。A、TestDate＝#1/1/2007# B、TestDate#″1/1/2007″#

C、TestDate=date(″1/1/2002″) D、TestDate=Format(″m/d/yy″，″1/1/2002″) 4、下列可作为Visual Basic变量名的是（D）。

A、B#C B、4A C、?xy D、constA 5、以下内容不

VB和VBA开发CAD的知识

1、如何在 VB 中连接 AutoCAD。

启动 VB ，引用 AutoCAD 类型库。操作步骤：从“工程”菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择 AutoCAD 类型库，然后单击“确定”。 定义模块级变量 AutoCAD 应用程序 (acadApp) 和当前的文档 (acadDoc)。

如果 AutoCAD 正在运行，使用 GetObject 函数将检索 AutoCAD Application 对象。如果 AutoCAD 没有运行，使用 CreateObject 函数试图创建一个 AutoCAD Application 对象。如果创建成功，会启动 AutoCAD；如果失败，则会发生错误。

同时运行多个 AutoCAD 任务时，GetObject 函数会返回 Windows 运行对象表中的第一个 AutoCAD 实例。

要显示 AutoCAD 图形窗口，需要将 AutoCAD 应用程序的 Visible 特性设置为 TRUE。

使用 acadDoc 变量引用当前的 AutoCAD 图形。 示例：

Dim acadApp As AcadApplication Di

第 1 页 共 20 页 2010.3等级考试基本操作题

一、模块和VBA小结：

一、添加标签控件：

1.名称；

2.标题（字体、字号、字型、颜色，高度、宽度等）； 3.位置：绝对位置（上边界，左边界），相对位置；

第 2 页 共 20 页 2010.3等级考试基本操作题

二、模块和VBA

实训一：

（1）窗体加载时设置窗体标题属性为系统当前日期。窗体“加载”事件代码 已提供，请补充完整（文件夹03（5））。

（2）单击“刷新”按钮（名为“bt1”），在事件过程中补充语句，动态设置窗体记录源为查询对象“qEmp”，实现窗体数据按性别条件动态显示退休职工的信息；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体（文件夹01（4））。

（3）在窗体中有一个“显示全部记录”命令按钮（名称为bList），单击该按钮后，应实现将“tStudent”表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整（文件夹02（5））。

第 3 页 共 20 页 2010.3等级

第8章 模和块BAV序程设计1

gxz1729110h1x1@6.3com1

第8 模块章和 章模 和VBA程序块设计 程序计设本章要求: 本要章求：1、了V解B编A环境程 、;了 编解环程境 编；程环境 、2握掌BV编A程础基：常，变量量，达表式 、;掌握编 基础：程 程编础 基常量变量，,表达式； 3、握掌序顺制控选，控制，择环控循 制、握顺掌控制，选择序控制，4、 解了BA模V 、了解 块块模

本章点：要 章本要：点掌顺握控制序选择，控，制 掌顺序握控制选择，制控循，环制控学时排安：学时 安排:6时(学理论+)6时(学实践) 学(理时论+6)时(学践)实学 时2zg1972x0111xh163@.cmo

第8 章块和模 模块和章VA程B序计 程序设计● 设模的概念 块●V A程B序计设础 基● 常标准函数用● VBA的程序构 ● V结BA的据数库程编 ●过调用和参数程递

3

zgx传1720111hx91@36c.om

第章8模块 章和 模和VBA程块序计设 序程计在A设cecss统中系把宏、,窗和报表等对象结体 合起来，不编用程写序码代就可建立以能较功善 完数的库据管系理统但宏。的能功有局是性限的它， 只处理能些简单一操的，如作要果实功现强

第 1 页 共 33 页 2010.3等级考试基本操作题

一、模块和VBA小结：

等级考试2010.3(1-基本操作题38个,2-简单应用题38个,3-综合应用题18,3-综合应用题（含VBA）20)

●一、窗体的属性及其含义：

表示方法:Me. 属性标识 例1：标题： Caption Me.Caption=＂程序设计＂ 例2：滚动条：ScrollBars Me.ScrollBars = 0

见VBA1

例3：图片：Picture

Me.Picture=＂d:\\试题＼test.jpg＂

见实训一（三、综合应用题）

例4：记录源：RecordSource Me.RecordSource=＂qEmp＂

见实训一

●二、控件的属性及其含义：

例1：标题： Caption Cmd1.Caption=＂显示内容＂ Cmd２.Caption=＂取消内容＂

见VBA1

例2：前景色： ForeColor Cmd1.ForeColor=255 例3：可见性： Visible Cmd1.Visible=false 例4：可用性： Enabled

第 2 页 共 33 页 2010.3等级考试基本操

目 录

前言 .............................................................................................. 6 致谢 .............................................................................................. 7 第1章 介绍 ............................................................................... 8

1.1 金融学概览 ........................................................................................................................ 8

1.2 收益分布假设 ...........................................................................................

第 1 页 共 33 页 2010.3等级考试基本操作题

一、模块和VBA小结：

等级考试2010.3(1-基本操作题38个,2-简单应用题38个,3-综合应用题18,3-综合应用题（含VBA）20)

●一、窗体的属性及其含义：

表示方法:Me. 属性标识 例1：标题： Caption Me.Caption=＂程序设计＂ 例2：滚动条：ScrollBars Me.ScrollBars = 0

见VBA1

例3：图片：Picture

Me.Picture=＂d:\\试题＼test.jpg＂

见实训一（三、综合应用题）

例4：记录源：RecordSource Me.RecordSource=＂qEmp＂

见实训一

●二、控件的属性及其含义：

例1：标题： Caption Cmd1.Caption=＂显示内容＂ Cmd２.Caption=＂取消内容＂

见VBA1

例2：前景色： ForeColor Cmd1.ForeColor=255 例3：可见性： Visible Cmd1.Visible=false 例4：可用性： Enabled

第 2 页 共 33 页 2010.3等级考试基本操

第8章 模和块BAV序程设计1

gxz1729110h1x1@6.3com1

第8 模块章和 章模 和VBA程序块设计 程序计设本章要求: 本要章求：1、了V解B编A环境程 、;了 编解环程境 编；程环境 、2握掌BV编A程础基：常，变量量，达表式 、;掌握编 基础：程 程编础 基常量变量，,表达式； 3、握掌序顺制控选，控制，择环控循 制、握顺掌控制，选择序控制，4、 解了BA模V 、了解 块块模

本章点：要 章本要：点掌顺握控制序选择，控，制 掌顺序握控制选择，制控循，环制控学时排安：学时 安排:6时(学理论+)6时(学实践) 学(理时论+6)时(学践)实学 时2zg1972x0111xh163@.cmo

第8 章块和模 模块和章VA程B序计 程序设计● 设模的概念 块●V A程B序计设础 基● 常标准函数用● VBA的程序构 ● V结BA的据数库程编 ●过调用和参数程递

3

zgx传1720111hx91@36c.om

第章8模块 章和 模和VBA程块序计设 序程计在A设cecss统中系把宏、,窗和报表等对象结体 合起来，不编用程写序码代就可建立以能较功善 完数的库据管系理统但宏。的能功有局是性限的它， 只处理能些简单一操的，如作要果实功现强