2007年4月全国计算机等级考试二级笔试试卷Access数据库程序设计-在线考试系统

本栏目下题库来源于互联网，轻速云承诺对于用户导入平台的题库是严格保密的，不会在此呈现！
轻速云给您提供更好的在线考试系统服务！

2007年4月全国计算机等级考试二级笔试试卷Access数据库程序设计

1、【填空题】
如果表中一个字段不是本表的主关键字，而是另外一个表的主键字或候选关键字，这个字段称为。 [每空2分]

答案： ["外部关键字"]

2、【填空题】
在SQL的Select命令中用短语对查询的结果进行排序。 [每空2分]

答案： ["Order By"]

3、【填空题】
报表记录分组操作时，首先要选定分组字段，在这些字段上值的记录数据归为同一组。 [每空2分]

答案： ["相等"]

4、【填空题】
如果希望按满足指定条件执行宏中的一个或多个操作，这类宏称为。 [每空2分]

答案： ["条件操作宏"]

5、【填空题】
退出Access应用程序的VBA代码是。 [每空2分]

答案： ["DoCmd.Quit"]

6、【填空题】
在VBA编程中检测字符串长度的函数名是。 [每空2分]

答案： ["LEN( )"]

7、【填空题】
若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：
Private Function f(x As Long) As Boolean
If x Mod 2 = 0 Then
f = True
Else
f=False
End If
End Function
Private Sub Command 1_Click( )
Dim n As Long
n = Val(Me!text1)
p = iif(f(n), "Even number", "Odd number")
Me!Labell.Caption = n & "is" & p
End Sub
窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为。 [每空2分]

答案： ["21 is Odd nunber"]

8、【填空题】
有如下用户定义类型及操作语句：
Type Student
Sno As String
Sname As String
Sage As Integer
End Type
Dim Stru As Student
With Stu
.SNo="200609001"
.Sname="陈果果"
.Age=19
End With
执行MsgBox Stu.Age后，消息框输出结果是。 [每空2分]

答案： ["19"]

9、【填空题】
已知一个名为“学生”的Access数据库，库中的表“stud”存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stud”表中添加学生记录，对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tNmae、tSex和tRes。当单击窗体中的“增加”命令按钮（名称为Command1）时，首先判断学号是否重复，如果不重复则向“stud”表中添加学生记录；如果学号重复，则给出提示信息。
　

　
请依据所要求的功能，将如下程序补充完整。
Private Sub Form_Load( )
'打开窗口时，连接Access数据库
Set ADOcn = CurrentProject.Connection
End Sub
Dim ADOcn As New ADODB.Connection
Private Sub Command1_Click( )
'增加学生记录
Dim strSQL As String
Dim ADOrs As New ADODB.Recordset
Set ADOrs.ActiveConnection = ADOcn
ADOrs.Open "Select 学号 From Stud Where 学号=""+tNO+"""
If Not ADOrs. Then
'如果该学号的学生记录已经存在，则显示提示信息
MsgBox "你输入的学号已存在，不能增加！"
Else
'增加新学生的记录
strSQL="Insert Into stud(学号，姓名，性别，籍贯)"
strSQL=strSQl+"Values('''+tNo+''', '''+tName+''', '''+tSex+''', '''+tRes+''')"
ADOcn.Execute
MsgBox "添加成功，请继续！"
End If
ADOrs. Close
Set ADOrs=Nothing
End Sub [每空2分]

答案： ["EOF","strSQL"]

首页 1 2

共2页，共49个题库