ACCESS习题解答

选择题

1.使用VBA的逻辑值进行算术运算时，FALSE值被处理为:( ) A)-1 B)0 C) 1 D)任意值

2.在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为

A) Boolean B) Int C)String D)Variant 3.在Access中，自动启动宏的名称是

A)autoexec B)auto C) auto.bat D) autoexec.bat 4.要限制宏操作的操作范围，可以在创建宏时定义

A)宏操作对象 B)宏条件表达式 C)窗体或报表控件属性 D)宏操作目标

5.在宏的条件表达式中，要引用“rptT”报表上名为“txtName”控件的值，可以使用的引用表达式是

A) Reports! rptT! txtName B)Report! TxtName C) rptT! txtName D)txtName

6.为窗体或报表上的控件设置属性值的宏操作是

A) Beep B) Echo C) MsgBox D)SetValue

7.如果设置报表上某个文本框的控件来源属性为“=7 Mod 4”，则打印预览视图中，该文本框显示的信息为

A)未绑定 B)3 C)7Mod4 D)出错 8.在报表每一页的底部都输出信息，需要设置的区域是 A)报表页眉 B)报表页脚 C)页面页眉 D)页面页脚 9.Access窗体中的文本框控件分为

A)计算型和非计算型 B)结合型和非结合型 C)控制型和非控制型 D)记录型和非记录型

10.要显示格式为“页码／总页数”的页码，应当设置文本框控件的控件来源属性为

A)[Page]／[Pages] B)=Page]／[Pages] C)[Page]&“／”&[Pages] D)=[Page]&“／”&[Pages] 11.可以作为窗体记录源的是

A)表 B)查询 C)Select语句 D)表、查询或select语句 12.建立一个基于“学生”表的查询，要查找“出生日期”(数据类型为日期／时间型)在1980-06-06和1980-07-06间的学生，在“出生日期”对应列的“准则”行中应输入的表达式是

A) between l980-06-06 and 1980-07-06 B) between # 1980-06-06# and #1980-07-06#

C) between l980-06-06 or 1980-07-06 D) between #1980-06-06# or #1980-07-06#

13.某窗体中有一命令按钮，在“窗体视图”中单击此命令按钮，运行另一个应用程序。如果通过调用宏对象完成此功能，则需要执行的宏操作是 A)RunApp B)RunCode C)RunMacro D)RunSQL

14.在课程表中要查找课程名称中包含“计算机”的课程，对应“课程名称”字段的正确准则表达式是

A)“计算机” B)“*计算机*” C)Like“*计算机*” D)Like“计算机” 15.Access数据库表中的字段可以定义有效性规则，有效性规则是 A)控制符 B)文本 C)条件 D)前三种说法都不对 16既可以直接输入文字，又可以从列表中选择输入项的控件是 A)选项框 B)文本框 C)组合框 D)列表框 17.下面概念中，不属于面向对象方法的是 A)对象 B)继承 C)类 D)过程调用

18.用于获得字符串Str从第2个字符开始的3个字符的函数是

A)Mid(Str,2,3) B)Middle(Str,2,3) C)Right(Str,2,3) D)Left(Str,2,3)

19.确定一个控件在窗体或报表上的位置的属性是

A)Width或Height B)Width和Height C)Top或Left D)Top和Left

20假定窗体的名称为finTest，则把窗体的标题设置为“AccessTest”的语句是 A)Me＝“AccessTest” B)Me．Caption＝“AccessTest” C)Me．Text＝“AccessTest” D)Me．Name＝“AccessTest”

21.在条件宏设计时，对于连续重复的条件，可以代替的符号是 A)? B)： C)， D)；

22.Access通过数据访问页可以发布的数据

A)只能是静态数据 B)只能是数据库中保持不变的数据 C)只能是数据库中变化的数据 D)是数据库中保存的数据

23.要实现报表的分组统计，其操作区域是

A)报表页眉或报表页脚区域 B)贝间贝眉或贝圆贝脚区域 C)主体区域 D)组页眉或组页脚区域

24.假设已在ACCESS中建立包含“书名”、“单价”和“数量”等三个字段的“tOfg”表，以该表为数据源创建的窗体，有一个计算订购总金额的文体框，其控件来源为

A）［单价］＊［数量］ B）＝［单价］＊［数量］ C）［图书订单表］！［单价］＊［图书订单表］！［数量］ D）＝［图书订单表］！［单价］是＊［图书订单表］！［数量］

25.某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开另一个窗体，需要执行的宏操作是

A)OpenQuery B)OpenReport C)OpenWindow D)OpenForm

26.下列不属于Access窗体的视图是

A)设计视图 B)窗体视图 C)版面视图 D)数据表视图

27.在Access的数据库中已建立了“tBook”;表，若查找“图书编号”是“112266”和“113388”的记录，应在查询设计视图的准则行中输入

A)“112266”，and“113388”， B)notin(“112266”，“113388”) C)in(“112266”，“113388”) D)not(“112266”，and“113388"”)

28.数据表中的“行”称为

A)字段 B)数据 C)记录 D)数据视图

29.Access中表和数据库的关系是

A)一个数据库可以包含多个表 B)一个表只能包含两个数据库 C)一个表可以包含多个数据库 D）一个数据库只能包含一个表

30.将两个关系拼接成一个新关系，生成的新关系中包含满足条件的元组，这种操作称为 A) 选择

B) 投影

C) 联接

D) 并

31.数据库系统的核心是 A) 数据模型 员

B) 数据库管理系统 C) 数据库

D) 数据库管理

32.设有如下关系表：

R A 1 2 B 1 2

C 2 3

A 3 S

B 1 C 3 T

A 1 2 3 B 1 2 1 C 2 3 3 则下列操作中正确的是 A) T=R∩S T=R/S

B) T=R∪S C) T=R×S D)

33.如果表A中的一条记录与表B中的多条记录相匹配，且表B中的一条记录与表A中的多条记录相匹配，则表A与表B存在的关系是: A) 一对一

B) 一对多

C) 多对一

D) 多对多

34.宏操作中，Quit命令用于( ) A）退出Access B）关闭窗体 C）关闭查询 D）关闭模块

35.以下关于模块的叙述，错误的是( ) A）模块是以VBA语言为基础编写的 B）模块分为类模块和标准模块两种类型 C）窗体模块和报表模块都属于标准模块

D）窗体模块和报表模块都具有局部特性，其作用范围局限在所属的窗体或报表内部

36.定义表的结构时，不用定义( ) A）字段名 B）数据库名 C）字段类型

53.窗体上添加有3个命令按钮，分别命名为Command1、Command2和Command3。编写Command1的单击事件过程，完成的功能为：当单击按钮Command1时，按钮Command2可用，按钮Command3不可见。以下正确的是 A) Private Sub Command1_Click() ()

Command2.Visible=True

B) Private Sub Command1_Click

Command2.Enabled=True Command3.Enabled=False

Command3.Visible=False End Sub

End Sub

D) Private Sub Command1_Click

C) Private Sub Command1_Click() ()

Command2. Enabled =True Command3.Visible=False End Sub 填空题

Command2.Visible =True Command3.Enabled=False

End Sub

1.在表格式窗体、纵栏式窗体和数据表窗体中，将窗体最大化后显示记录最多的窗体数据表窗体。

2. 宏是一个或多个 操作 的集合。

3.在设计带条件宏时，对于连续重复的条件，可以用 ? 符号来代替重复条件。 4.VBA的自动运行宏，必须命名为_autoexec_______。

5.在关系数据库中，把数据表示成二维表，每一个二维表称为_关系______ 6.数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 数据库系统阶段。

7.根据对数据源操作方式和结果的不同，查询可以分为5类：_选择查询_ 、交叉表查询、参数查询、操作查询和SQL查询。 8.一个__MDB文件____标志一个独立的数据库文件。

9.创建交叉表查询时，必须对行标题和__列标题_进行分组（Group By）操作。 10.函数Now()返回值的含义是____当前系统的日期时间______。

11. 在报表设计中，可以通过添加___分页符__ 控件来控制另起一页输出显示。 三、程序填空题

1. Function FtoC(temperature as single

) as single

’实现接收一个参数，将这个参数值从华氏温度转为摄氏温度，并从函数返回新值

FtoC=(temperature-32)*(5/9) End Function

2. Function Sum1(x as integer,y as integer) as integer ‘本函数实现两个整数相加

y=y+x

Sum1=y

End Function

3. 已知窗体MyForm上有一个标签Label1和一个命令按钮CmdBtn1，下列程序功能是当点击按钮时标签LABEL1显示“计算机水平考试“。试完成下列程序。

Private Sub cmdbtn_click()

Label1.Caption=“ 计算机水平考试”

End Sub

4. 已知窗体上有一个复选框Checkbox1、一个按钮CMD和一个标签Label1，下列程序功能是当双击按钮时，标签的标题显示“选中”。试完成下列程序。

Private Sub CMD__DblClick(Cancel As Integer)

Label1.Caption=“选中”

End Sub

5. 现有一程序实现设置窗体Frm高度为5cm，试完成下列程序

Private Sub MySet()

Frm.height=5

End Sub

6.有一个 VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除（名为Command1）、计算（名为Command2）和退出（名为Command3）。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击退出按钮则退出。请将下列程序填空补充完整。

Private Sub Command1_Click() Me!Text1=”” Me!Text2=”” Me!Text3=”” Me!Text4=”” End Sub

Private Sub Command2_Click()

If Me!Text1 = ”” Or Me!Text2 = ”” Or Me!Text3 = ”” Then MsgBox ”成绩输入不全” Else

Me!Text4 =(Val(Me!Text2)__+ Val(Me!Text2)+Val(Me!Text3))/3 END IF End Sub

Private Sub Command3_Click() Docmd. close

End Sub

7．以下是一个竞赛评分程序。8位评委，去掉个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。 Private SubForm_ClickO

Dim Max as Integer,Min as Integer Dimi as Integer,x as Integer,s as Integer Dim p as Single Max=0 Min=10 Fori=1 T0 8

x=Val(InputBox(“请输入分数：”) If _ X>MAX _ Then Max=x lf _ X

s=_ S-MAX-MIN __ p=s/6

MsgBOx “最后得分：”& p EndSub

8.下面程序的功能是计算折旧年限。假设一台机器的原价值为100万元，如果每年的折旧率为4％，多少年后它的价值不足50万元。请填空。 y=0 p=100

x=0.04 Do

P=p*(1-x) y=y+l Loop Until p<50 MsgBox y

9.假定有以下程序段 n=0

for i=1 to 3 for j=-4 to –1

n=n+1

next j

next i

运行完毕后，n的值是 A) 0

B) 3

C) 4

1. Sub ShowSystemDate()

Dim Mydate as date Mydate=date

Msgbox Mydate

End sub

运行结果是：2006-06-13

10.设有以下窗体单击事件过程： Private Sub Form_Click()

D) 12

a=1

For i=1 To 3 Select Case i Case 1,3

a=a +1

Case 2,4

a=a +2

End Select Next i MsgBox a End Sub

打开窗体运行后，单击窗体，则消息框的输出内容是_____5________。 11.在窗体上添加一个命令按钮（名为Command1）和一个文本框（名为text1），然后编写如下事件过程： Private Sub Command1_Click()

Dim a As Integer, y As Integer, z As Integer x=5 : y = 7 : z = 0 Me!Text1 =”” Call p1(x,y,z) Me!Text1 =z End Sub

Sub p1(a As Integer, b As Integer, c As Integer)

c = a + b

End Sub

打开窗体运行后，单击命令按钮，文本框中显示的内容是 12 。

12.执行下面的程序段后，b的值为 7 a=5 b=7 a=a+b b=a-b a=a-b

13.执行下面的程序，消息框里显示的结果是 abdb 。 Private Sub Form_Click( ) Dim Str1 As String Dim k As Integer Str1 = \

For k = Len(Str1) To 1 Step -1

Str1 = Str1 & Chr(Asc(Mid(Str1, k, 1)) + k) Next k MsgBox Str1 End Sub

14.在名为“Forml”的窗体上添加三个文本框和一个命令按钮，其名称分别为“Textl”、 “Text2”、“Text3”和“Commandl”。然后编写如下两个事件过程：

Private Sub Commandl_Click( ) Text3=Textl+Text2 End Sub

Private Sub Forml_Load( ) Textl=”” Text2=”” Text3=”” End Sub

打开窗体Forml后，在第一个文本框(Textl)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Commandl，则文本框(Text3)中显示的内容为 57 。 15.执行下面的程序，消息框的输出结果是 33 。 Option Base 1

Private Sub Commandl_Cliek( ) Dim a(10),p(3)As Integer k=5

Fori=l To 10 a(i)=i Next i For i=l To 3 p(i)=a(i*I) Next I For i=l To3 k=k+p(i)*2 Next i MsgBox k End Sub

16.某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为_______1024___ Private Sub Form Click()

Dim k as Integer,n as Integer,m as Integer n=10:m=1:k=1 Do While k<=n m=m*2 k=k+l Loop MsgBOX m End Sub

17.在窗体上添加一个命令按钮(名为Commandl)，然后编写如下程序： Function m(X aS Integer,y as Integer)aS Integer m=IIf(x>y,x,y) End Function

Private Sub Commandl—Click() Dim a aS Integer,b aS Integer a=l b=2

MsgBox m(a,b) EndSub

打开窗体运行后，单击命令按钮，消息框的输出结果为__2_____

三、程序设计题(2小题，共15分，共30分)

1. 请设计一窗体，名称为MyForm，高度为200，宽度为400，定义一个名

称为“MyLabel”，标题为“计算机水平考试”的标签；定义3个复选框，名称分别为Check1,Check2,Check3，标题分别为“加粗”，“倾斜”，“下划线”；再定义2个按钮，名称为“确定”和“退出”，当点击“确定”按钮时应用各复选框中的效果到“MyLabel”上，当点击“退出”按钮时关闭窗体。要求你写出”确定”按钮的单击事件程序。如图1所示

(如图1)

答案参考

if check1.Value=True then mylabel.FontBold=true endif

if check2.Value=True then mylabel.Fontitalic=true endif

if check3.Value=True then mylabel.FonUnderline=true endif

2. 设计一程序判断从对话框中的输入的数字是否是素数（如图1），并显示出结果。

（如图2）

（如图1）

（如图2）

答案参考 dim i,a as Integer

a=int(inputbox(“请输入一个整数！”,”判断是否素数”)) for I=2 to a-1 if a mod I=0 then

msgbox “不是素数” exit for end if next I if I>a-1 then

msgbox ” 是素数” endif

3、求1~100的各数和 rem 方法1 s=0

for I=1 to 100 s=s+I next I

debug.print s

rem 方法2 s=0 I=1

do while I<=100 s=s+I I=I+1 Loop

Debug.print s

rem 方法3 s=0 I=1

do until I>100 s=s+I I=I+1 Loop

Debug.print s

4、求1~100的奇数和 rem 方法1 s=0

for I=1 to 100 step 2 s=s+I next I

debug.print s

rem 方法2 s=0 I=1

do while I<=100 s=s+I I=I+2 Loop

Debug.print s

5、求N！函数 function jc() Dim n As Integer

n = InputBox(\求N！请输入N值\ t = 1

For i = 1 To n t = t * i Next i Jc=t

End function

6、求最大公约数函数 function zdgys() Dim a, b As Integer

a = InputBox(\请输入第一个数\b = InputBox(\请输入第二个数\Do

c = a Mod b a = b b = c

Loop While c <> 0 Zdgys=a

End function

7、三个数比较大小 Sub abc()

Dim A, B, c, T As Integer A = InputBox(\请输入A:\ B = InputBox(\请输入B:\ c = InputBox(\请输入C:\ If A < B Then T = A A = B B = T End If

If A < c Then T = A A = c c = T End If

If B < c Then T = B B = c c = T End If

Debug.Print A, B, c

End Sub

8、两个数比较大小 DIM A AS INTEGER DIM B AS INTEGER

DIM MAXN AS INTEGER INPUT “请输入A” TO A INPUT “请输入B” TO B IF A>=B THEN MAXN=A

ELSE

MAXN=B END IF

MSGBOX “最大的数是：” & MAXN END SUB

9、求一元二次方程的解(文本框名为aaa,bbb,ccc,x111,x222,按钮为CMD1)

Private Sub CMD1_Click()

Dim A, B, c, x1, x2, f As Double A = Me.aaa B = Me.bbb c = Me.ccc

f = B ^ 2 - 4 * A * c If f >= 0 Then

x1 = (-B + Sqr(f)) / (2 * A) x2 = (-B - Sqr(f)) / (2 * A) Me.x111 = x1 Me.x222 = x2 Else

MsgBox \无解\提示\End If End Sub

本文来源：https://www.bwwdw.com/article/o9ir.html