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

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

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

1、【填空题】
如果要求在执行查询时通过输入的学号查询学生信息，可以采用查询。 [每空2分]

答案： [""]

2、【填空题】
Access中产生的数据访问页会保存在独立文件中，其文件格式是。 [每空2分]

答案： [""]

3、【填空题】
可以通过多种方法执行宏：在其他宏中调用该宏；在VBA程序中调用该宏；发生时触发该宏。 [每空2分]

答案： [""]

4、【填空题】
在VBA中要判断一个字段的值是否为Null,应该使用的函数是。 [每空2分]

答案： [""]

5、【填空题】
一下列程序的功能是求方程：x2十y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。
Private Sub Commandl_Click（）
Dim × 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 [每空2分]

答案： [""]

6、【填空题】
下列程序的功能是求算式：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 [每空2分]

答案： [""]

7、【填空题】
在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Command12_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 [每空2分]

答案： [""]

8、【填空题】
数据库的”职I基本情况表“有”姓名“和”职称“等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Commands_Click（）
Dim db As DAO .Database
Dim rs As DAO .Recordset
Dim zc As DAO .Field
Dim Countl As Integer,Count2 As Integer,Count3 As Integer
Set db=CurrentDb（）
Set rs=db .OpenRecordset（”职工基本情况表“）
Set zc=rs .Fields（”职称“）
Countl=0 : Count2=0 : Count3=0
Do While Not
Select Case zc
Case Is=”教授“
Countl=Countl+1
CaseIs=”副教授“
Count2=Count2+1
Case Else
Courit3=Count3+1
End Select

Loop
rs .Close
Set rs=Nothing
Set db=Nothing
MsgBox”教授：“&Count1&”,副教授：“&Count2 &”,其他：“&count3
End Sub [每空2分]

答案： [""]

首页 1 2

共2页，共48个题库

咨询热线

400-886-8169

周一到周日 8:00-22:00

在线客服

点击咨询

微信公众号
微信小程序
安卓APP