access填空题库(答案版)

填空题

1.在Access中，要在查找条件中与任意一个字符匹配，可使用的通配符是______。

2.在学生成绩表中，如果需要根据输入的学生姓名查找学生的成绩，需要使用的是______查询。

3.Int(-3.25)的结果是______。

4.分支结构在程序执行时，根据______选择执行不同的程序语句。

5.在VBA中变体类型的类型标识是______。

6.在窗体中有一个名为Command1的命令按钮，Click事件的代码如下：

Private Sub Command1_Click()

f = 0

For n = 1 To 10 Step 2

f = f + n

Next n

Me!Lb1.Caption = f

End Sub

单击命令按钮后，标签显示的结果是______。

7.在窗体中有一个名为Command12的命令按钮，Click事件的代码如下。该事件所完成的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。

Private Sub Command12_Click()

max = 0

max_n = 0

For i=1 To 10

num = Val(InputBox("请输入第" & i & "个大于0的整数：" ))

If(num > max) Then

max = ______

max_n = ______

End If

Next i

MsgBox("最大值为第"& max_n & "个输入的"& max)

End Sub

8.下列程序的功能是求算式：1-1/2+1/3-1/4+....前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Command1_Click()

Dim i as Integer, s As Single, f As Integer

s = 0 : f = 1

For i = 1 To 30

s = s + f/i

f =______

Next i

Debug.Print “1-1/2+1/3-1/4+…=”; s

End Sub

9.Access中用于执行指定的SQL语言的宏操作名是______。

10.直接在属性窗口设置对象的属性，属于“静态”设置方法，在代码窗口中由VBA代码设置对象的属性叫做“______”设置方法。

11.在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码：

Private Sub Command1_Click()

Dim x As Integer,y As Integer

x = 12:y = 32

Call p(x,y)

MsgBox x*y

End Sub

Public Sub p(n As Integer,ByVal m As Integer)

n = n Mod 10

m = m Mod 10

End Sub

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

12.已知数列的递推公式如下：

f(n)=1 当n=0,1时

f(n)=f(n-1)+f(n-2) 当n>1时

则按照递推公式可以得到数列：1,1,2,3,5,8,13,21,34,55,……。现要求从键盘输入n值，输出对应项的值。例如当输入n为8时，应该输出34.程序如下，请补充完整。

Private Sub run11_Click()

f0 = 1

f1 = 1

num = Val(InputBox("请输入一个大于2的整数："))

For n = 2 To ______

f2 = ______

f0 = f1

f1 = f2

Next n

MsgBox f2

End Sub

13.在关系数据库中，从关系中找出满足给定条件的元组，该操作可称为____。

14.函数Mid("学生信息管理系统",3,2)的结果是____。

15.用SQL语句实现查询表名为“图书表”中的所有记录，应该使用的SELECT语句是:select ____。

16.Access的窗体或报表事件可以有两种方法来响应:宏对象和____。

17.子过程Test显示一个如下所示4×4的乘法表。

1*1=1 1*2=2 1*3=3 1*4=4

2*2=4 2*3=6 2*4=8

3*3=9 3*4=12

4*4=16

请在空白处填入适当的语句使子过程完成指定的功能。

Sub Text()

Dim i, j As Integer

For i = 1 To 4

For j = 1 To 4

If ____ Then

Debug.print i & "*" & j & "=" & i * j & space(2),

End If

Next j

Debug.Print

Next i

End Sub

18.窗体中有两个命令按钮:“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。当单击“测试”按钮时，执行的事件功能是：首先弹出消息框，若单击其中的“确定”按钮，则隐藏窗体上的“显示”按钮；否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub cmdTest_Click()

Answer= ____ ("隐藏按钮? ", vbOKCancel + vbQuestion, "Msg")

If Answer = vbOK Then

Me!cmdDisplay.Visible = ____

End If

End Sub

19.对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求:该文本框中只接受大于等于15且小于等于30的数值数据，若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下，请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub txtAge_BeforeUpdate(Cancel As Integer)

If Me!txtAge = "" Or ____ (Me!txtAge) Then

'数据为空时的验证

MsgBox "年龄不能为空!",vbCritical,"警告"

Cancel = True ' 取消BefOreUpdate事件

ElseIf IsNumeric(Me!txtAge) = False Then

'非数值数据输入的验证

MsgBox "年龄必须输入数值数据!",vbCritical, "警告"

Cancel=True '取消BeforeUpdate事件

ElseIf Me!txtAge < 15 0r Me!txtAge ____ Then

'非法范围数据输入的验证…

MsgBox "年龄为15-30范围数据!",vbCritical' "警告"

Cancel = True ' 取消BeforeUpdate事件

Else '数据验证通过

MsgBox "数据验证OK! " , vbInformation, "通告"

End If

End Sub

20.人员基本信息一般包括：身份证号、姓名、性别、年龄等。其中可以作为主关键字的是____。

21.Access中若要将数据库中的数据发布到网上，应采用的对象是______。

22.当文本框中的内容发生了改变时，触发的事件名称是______。

23.在VBA中求字符串的长度可以使用函数______。

24.要将正实数x保留两位小数，若采用Int函数完成，则表达式为______。

25.在窗体中有两个文本框分别是Text1和Text2，一个命令按钮Command1，编写如下两个事件过程：

Private Sub Command1_Click()

a= Text1.Value+Text2.Value

MsgBox a

End Sub

Private Sub Form_Load()

Text1.Value=“”

Text2.Value=“”

End Sub

程序运行时，在文本框Text1中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为______。26.某次大奖赛有7个评为同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。

sub command1_click()

Dim mark!,aver!,i%,max1!,min1!

aver = 0

For i = 1 To 7

mark=InputBox(“请输入第”&i&”位评委的打分”)

If i =1 Then

max1=mark:min1=mark

Else

if mark

min1=mark

Elseif mark>max1 Then

______

End If

End If

____

Next i

aver = (aver-max1-min1)/5

MsgBox aver

End Sub

27.有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号，______，成绩)。

28.窗体上有一个命令按钮(名称为Command1)和一个选项组(名称为Frame1)，选项组上显示“Frame1”文本的标签控件名称为Label1，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是______。

29.在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是______。

30.使用向导创建数据访问页时，在确定分组级别步骤中最多可设置______个分组字段。

31.在窗体文本框Text1中输入“456AbC”后，立即窗口上输出的结果是______。

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 97 To 122

Debug.Print Ucase(Chr(KeyAscii));

Case 65 To 90

Debug.Print Lcase(Chr(KeyAscii));

Case 48 to 57

Debug.Print chr(KeyAscii);

Case E1se

KevAscii = 0

End Select

End Sub

32.在窗体上有一个命令按钮Command1，编写事件代码如下：

Private Sub Command1_C1ick()

Dim a(10)，p(3) As Integer

k=5

For i=1 To 10

a(i)=i*i

Next i

For i=1 To 3

p(i)=a(i*i)

Next i

For i=1 To 3

k = k + p(i) * 2

Next i

MsgBox k

End Sub

打开窗体运行后，单击命令按钮，消息框中输出的结果是______。

33.下列程序的功能是找出被5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Form_C1ick()

Dim Ncount%,n%

Ncount=0

n=1

Do

n = n+1

If______Then

Debug.Print n

Ncount=Ncount+1

End If

Loop Until Ncount=5

End Sub

34.以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Command2_Click()

Dim i％，j％，k％，t％ 't为统计素数的个数

Dim b As Boolean

For i = 100 To 200

b = True

k = 2

j = Int(Sqr(i))

Do While k<=j And b

If i Mod k=0 Then

b =______

End If

k = ______

Loop

If b=True Then

t=t+1

Debug.Print i

End If

Next i

Debug.Print"t=";t

35.如果要求在执行查询时通过输入的学号查询学生信息，可以采用____查询。

36.Access 中产生的数据访问页会保存在独立文件中，其文件格式是____。

37.可以通过多种方法执行宏：在其他宏中调用该宏：在VBA程序中调用该宏；____发生时触发该宏。

38.在VBA中要判断一个字段的值是否为Null，应该使用的函数是____。

39.下列程序的功能是求方程：的所有整数解。请在空白处填入适当的语句，请使用程序完成指定的功能。

Private Sub Command1_Click()

Dim x as integer , y as integer

For x=-34 to 34

For y = -34 to 34

If_____Then

Debug.Print x,y

End If

Next y

Next x

End Sub

40.下列程序的功能是求算式：1+1/2！ +1/3！ +1/4！ +……前10项的和(其中n！的含义是n的阶乘)。请在空白处填入适当的语句，使程序完成指定的功能。

Private Sub Commandl_Click( )

Dim i as integer, s as single, a as single

a = 1: s = 0

For I = 1 To 10

a = ____

s = s + a

Next i

Debug.Print"1+1/2！+1/3！+…..="；s

End Sub

41.在窗体中有一个名为Command2的命令按钮，Click事件功能是：接收从键盘输入的10个大于0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。

Private Sub Command2_Click（）

max = 0

maxn = 0

For i = 1 To 10

num = Val(InputBox("请输入第"& i &"个大于0的整数：" ))

If____Then

max = num

maxn =____

End If

Next i

MsgBox ("最大值为第"&maxn&"个输入的"&max)

End Sub

42.在Access查询的条件表达式中要表示任意单个数字字符，应使用通配符____。

43.在SELECT语句中，HAVING子句必须与____子句一起使用。

44.若要在宏中打开某个数据表，应使用的宏命令是____。

45.在VBA中要将数值表达式的值转换为字符串，应使用函数____。

46.运行下列程序，输入如下两行：

Hi,

I am here．

弹出的窗体中的显示结果是____。

Private Sub Command11_Click()

Dim abc As String, sum As string

sum=""

Do

abc=InputBox("输入abc")

If Right(abc,1)="." Then Exit Do

sum=sum+abc

MsgBox sum

End Sub

47.运行下列程序，窗体中的显示结果是：x=____。

Option Compare Database

Dim x As Integer

Private Sub Form_Load()

x=3

End Sub

Private Sub Command11_Click()

Static a As Integer

Dim b As Integer

b=x^2

fun1 x,b

fun1 x,b

MsgBox "x="&x

End Sub

Sub fun1(ByRef y As Integer,ByVal z As Integer）

y=y+z

z=y-z

End Sub

48.Access数据库中的字节（Byte）数值类型在数据库中占______字节。

49.在报表中要显示格式为“第N页”的页码，页码格式设置是：=”第”&______&”页”。

50.要将Access数据库中保存的数据发布到网络上，可以采用的对象是______。

51.若窗体名称为Form1，则将该窗体标题设置为“Access窗体”的语句是______。

52.下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句，使程序完成指定的功能。

Dim s As Integer, m As Integer

s = 0

m = 1

do While ______

s = s + m

m = m + 1

Loop

53.VBA程序中注释的内容被显示成色，有语法错误的语句被显示成色。

54.VBA中整型的英文关键字是 Integer ，类型符号是，在内存中占个字节。

55.在宏操作中打开报表的英文命令是。

56.打开宏设计窗口后，默认的只有和两列。

57.报表通常由、页面页眉、报表页脚、及报表主体部分组成。

58.自动创建窗体包括、、窗体。

59.查询的条件项上，同一行的条件是的关系，不同行的条件是的关系。

60.已知有定义Dim array(2，3) as Single，该二维数组第一个元素array(0,0)的十进制存储地址是100，则数组元素array(1,2)的十进制存储地址是。

61.VBA中字符串连接符有"+"和"&"。则"12" & 34结果是；"12" + 34结果是。

62.E-R图中实体用矩形表示，属性用形表示，实体之间的联系用形表示。

63.数据管理技术经历了人工管理阶段、文件系统管理阶段和。

64.打开窗体设计视图创建窗体时，进入窗体设计视图时，默认设置的节是。

65.在宏操作中，运行其他宏的英文命令是。

66.在数据库的窗体设计中，控件共有绑定型、非绑定型和。

67.在VBA中，数据类型符号“%”表示的数据类型是。

68.在数据库中创建报表时，要为报表设计封面，封面中的控件应该放在报表的节内。

69.在书写查询准则时，写在同一条件行上的准则之间进行的是逻辑运算。

70.在Access中，用VBA编写的事件过程有两种：Function过程和过程。

71.在窗体上，设置控件Command1为不可见的属性是。

72.在VBA中，程序流程控制的方式有顺序结构、和循环结构。

73.书写查询准则时，文本值要使用半角的括起来，日期值要使用半角的括起来。

74.在宏操作中打开一个窗体的英文命令是；Quit的中文含义是。

75.已知有定义Dim array[2，3] as Single，则该二维数组一共有个元素。

76.算术表达式－4＋3 * 6 MOD 5∧ (2﹨4) 的值是 。

77.Access 的查询主要有5种，其中 查询及 查询必须在选择查询基础上创建。 78.VBA 中单精度型的英文关键字是 ，类型符号是 ，在内存中占 个字节。 79.算术表达式7﹨2－4＞1的值是 。

80.已知有定义Dim bb[3，4] as Long ，则该二维数组一共占 个存储空间。

SQL 填空题

第一套 已知Access

1create table 学生(学号 ，姓名 char(10)，生日 ， 班级 char(6)，特长 ， (学号)) 2、插入新记录

insert into values ( ， ， ， ) 3、将班级字段值为 “日语” 的记录更新为“日语01班”

学生 set 班级= where 班级= 4、将“学生”表中“特长”字段删除 table 学生 特长

5、创建选择查询，查看生日小于1980-1-1的学生的学号、姓名、班级，并按学号升序排序 select 学号，姓名，班级 from 学生 where 生日 学号 第二套 已知Access 中“职工表”，结构如下，完成下列SQL 语句：

1 职工(编号 Char(6) , 姓名 Char(4), 性别 Char(2),年龄 Char, 工作时间 , 工资 ) 2、修改“职工表”中的“年龄”字段，将其类型修改为长整型。 Alter Table 职工 年龄 3、插入新记录

职工（编号，姓名，性别，年龄，工作时间，工资）

Values( ，“赵敏”，“女”， ， ，986.5） 4、删除“职工”表中年龄高于60岁的退休职工的记录。 from 职工 年龄>60

5、创建查询，按性别分组，统计工资小于1000的员工人数、性别。

性别 , As 员工人数 From 职工 Where 工资<1000 性别

计算题

1、计算下列函数的值

（1）Year(#2010/1/30#) （2）Mid$（"computer"，2，3） （3）isnumeric （"a234"） （4）int （123.987） （5）left$（"access"，4） （6）3<2 or 3>4 （7）Asc （"a"） （8）Day(#2008/10/30#) （9）10>7 Xor 8<21 （10）Chr （65） （11）Month(#2008/5/12#) （12）5+6>10 and 7

（13）Sqr(1+5*7) （14）date( )-5 注：计算机系统日期是2010-5-17 （15） “ABC”>”ab”

2、已知关系A 、B 、C ，计算关系代数A －B 、B÷C 、A ∩B 、A ∪B 的值。

3、已知关系A 和B ，计算关系代数∏1 , 3(σX= “E 1” ∨Y= “E 1” (A ∪B))的值。

4、已知关系A 和B ，求关系运算A ∞B 的结果。

5、已知关系P 和Q ，求关系代数

的结果。 程序填空题

1、单击Com1命令按钮，将Text0中的字体设置为隶书、红色格式，补充完整程序。

Private Sub Com1 ( )

Me.Text0.FontName =

Me.Text0. = 255 End Sub

2、下面的循环语句，执行的循环次数为

For a = 30 To 20 Step -3 …… Next a

3、文本框Text0输入-5后，单击命令按钮Com1，则Text2中显示-5的绝对值，补充完整程序。

Dim x as integer …定义整型变量x

Me.Text0.SetFocus …文本框T ext0获得焦点

x= …将文本框T ext0的值赋给变量x

Me.Text2.SetFocus …文本框T ext2获得焦点

Me.T ext2=…将变量x的绝对值用T ext2显示输出

4、运行以下程序段后，a的值是，b的值是，c的值是。

Dim a%, b%, c%

a=100: b =10: c = 0

Select Case a Mod 5

Case 0

b = b + 1

Case 1

c = c + 1

End Select

Debug.Print a, b, c

5、以下程序实现的是对于输入到a,b,c中的三个任意数，输出其中最大数的功能，补充完整程序。

dim i as integer

If a >= b And a >= c Then m= a

If b >= a And b >= c Then m= b

If

MsgBox m

6、在窗体上有一个名称为Lab1的标签，名称为Com1的命令按钮，其Click事件代码如下，程序运行后，单击命令

按钮，则在标签中显示的内容是。

Private Sub Com1_Click( )

p=”ACCESS数据库”

https://www.wendangku.net/doc/d915770283.html,b1.Caption = p

End Sub

7、下面程序段中，循环语句的执行次数为。

For n=6 to 20 step 2

……

Next n

8、在窗体中有名称为text1的文本框Command1的命令按钮。用户在文本框text1中输入5，

单击该命令按钮后，打开的消息框显示以5为半径的圆的面积。将程序补充完整。

Private Sub_Click（）

Dim …定义整型变量a

Me.Text1.…文本框Text1获得焦点

a= Text1.Text …将text1中的值赋给变量a

s=3.14* a ^ 2

s …将圆面积s用消息框输出

End Sub

9、有以下程序段，运行完毕后，a的值是，m的值是。

a=10：m=20

if a>=m then

a=a-m

m=a+m

else

a=a+m

m=m-a

end if

10、在窗体中单击Comm0命令按钮，将标签LA0的标题设置为“你好”，字体设置为楷体、加粗

格式，请补充完整程序。

Private Sub Comm0_Click( )

https://www.wendangku.net/doc/d915770283.html,0.= “你好”

https://www.wendangku.net/doc/d915770283.html,0.fontname=“楷体”

https://www.wendangku.net/doc/d915770283.html,0.fontBold=

End Sub

11、以下程序中循环语句n=n+a+b的执行次数为，运行完毕后，n的值是。

n=0

For a=1 to 2

For b=-3 to -1

n=n+a+b

Next b

Next a

12、在窗体中添加一个名为Com1的命令按钮，然后编写如下代码，窗体打开运行后，单击命令按钮，则消息框的输出结果是。

Private Sub Com1_Click( )

Dim x As String, y As String, z As String,m As Integer

For m= 6 To 2 Step -2

x = Mid("$$##%%&&", m, m)

y = Left("$$##%%&&", m)

z = Right("$$##%%&&", m)

Next m

MsgBox z

End Sub

13、命令按钮Com1的Click事件代码如下，单击该命令按钮则在窗体上显示的内容是

Private Sub Com1_Click( )

A=1234

B$=Str(A)

C=Len(B$)

Me.Lbl1.Caption=C

End Sub

14、有如下VBA程序段，以上For循环计算sum，最终结果是

sum＝0 : n＝0

For a＝1 To 5

x＝n / a : n＝n ＋1 : sum＝sum＋x

Next a

15、在窗体上有一个命令按钮Com0和一个文本框Text0，编写事件代码如下，打开窗体运行后，单击命令按钮，文本框中显示结果是

Private Sub Command0_Click( )

Dim i%, j%, x%

For i = 1 To 20 step 2

x = 1

For j = i To 20 step 3

x = x + 1

Next j

Next i

T ext0.Value=Str(x)

End Sub

16、已知a = 75，运行以下程序段后，则消息框的输出结果是

If a>60 Then k = 1

lf a>70 Then k = 2

lf a>80 Then k = 3

lf a>90 Then k = 4

MsgBox k

17、已知a = 75，运行以下程序段后，则消息框的输出结果是

If a>60 Then

k = 1

Elself a>70 Then

k = 2

Elself a>80 Then

k = 3

Elself a>90 Then

k = 4

EndIf

MsgBox k

答案:

填空题

1.答案：?

2.答案：参数

3.答案：-4

4.答案：条件表达式的值

5.答案：Variant

6.答案：25

7.答案：num i

8.答案：-1*f

9.答案：RunSQL

10.答案：动态

11.答案：64

12.答案：num f0+f1

13.答案：选择

14.答案：信息

15.答案：* from 图书表

16.答案：事件过程

17.答案：i<=j或i

18.答案：MsgBox false或0

19.答案：ISNULL >30

20.答案：身份证号

21.答案：数据访问页

22.答案：Change

23.答案：Len

24.答案：Int(x*100)/100

25.答案：7887

26.答案：max1=mark aver=aver+mark

27.答案：课号

28.答案：Label1.Caption="性别"

29.答案：SetFocus

30.答案：4

31.答案：456aBc

32.答案：201

33.答案：n Mod 5=1 And n Mod 7=1

34.答案：false k+1

35.答案：参数

36.答案：HTML或HTML 文件

37.答案：事件

38.答案：ISNULL

39.答案：x^2+y^2=1000或x*x+y*y=1000

40.答案：a*1/I

41.答案：num>max或max

42.答案：#

43.答案：group by

44.答案：OpenTable

45.答案：Str()或Str

46.答案：hi,

47.答案：21

48.答案：1

49.答案：[page]

50.答案：数据访问页

51.答案：Form1.Caption="Access窗体"

52.答案：m<=100或m<101

53.绿，红

54.Integer， % ， 2

55.OpenReport

56.操作和注释

57.报表页眉、页面页脚

58.表格式、数据表、纵栏式

59.与，或

60.124

61."1234"； 46

62.椭圆，菱

63.数据库系统管理阶段

64.主体节

65.RunMarco

66.计算型

67.integer

68.报表页眉

69.与(或and)

70.Sub

71.Visible

72.选择(或分支)

73.双引号，井号

74.OpenForm；退出Access

75.12

76.-4

77.动作，SQL

78.Single，！， 4

79.False(或0)

80.80

SQL填空题

第一套

1、integer， date， memo，primary key

2、20090101，"李力"，#1983-10-23#，"日语"

3、update ”日语01班””日语”

4、alter drop

5、< #1980-1-1# order by

第二套

1、 Create table primary key, Date , Float

2、 alter 年龄 int

3、Insert into “090101”， 30 ， #2000-07-02#，

4、Delete where

5、Select, Count([性别]) Group by

计算题

答案：（1）2010 （2）omp （3）False

（4）123 （5）acce （6）False

（7）97 （8）30 （9）False

（10）A （11）5 （12）True

（13）6 （14）2010-5-12 （15）False

程序填空题

1、Click “隶书” ForeColor

2、0

3、Me.Text0 abs(x)

4、100，11， 0

5、c >= a And c >= b Then m=c

6、ACCESS数据库

7、8

8、Command1 a as integer setfocus msgbox

9、30，-10

10、caption TRUE

11、6， -3

12、

13、

14、

15、

16、2

17、1