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

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

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

1、【填空题】
Access中若要将数据库中的数据发布到网上，应采用的对象是。 [每空2分]

答案： ["数据访问页"]

2、【填空题】
在一个查询集中，要将指定的记录设置为当前记录，应该使用的宏操作命令是。 [每空2分]

答案： ["GoToRecord"]

3、【填空题】
当文本框中的内容发生了改变时，触发的事件名称是。 [每空2分]

答案： ["Change"]

4、【填空题】
在VBA中求字符串的长度可以使用函数。 [每空2分]

答案： ["Len"]

5、【填空题】
要将正实数x保留两位小数，若采用Int函数完成，则表达式为。 [每空2分]

答案： ["Int(x * 100) / 100"]

6、【填空题】
在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Commandl，编写如下两个事件过程：
Private Sub Commandl_Click()
a=Textl.Value+Text2.Value
MsgBox a
End Sub
Private Sub Form_Load()
Textl.Value=""
Text2.Value=""
End Sub
程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为。 [每空2分]

答案： ["7887"]

7、【填空题】
某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。
sub commandl_Click()
Dim mark!, aver!, i%, maxl!, minl!
aver=0
For i=1 To 7
mark=InputBox("请输入第"& i &"位评委的打分")
If i=1 Then
maxl=mark:minl=mark
Else
If mark < minl Then
minl = mark
ElseIf mark>maxl Then

End If
End If

Next i
aver = (aver-maxl-minl)/5
MsgBox aver
End sub [每空2分]

答案： ["max1 = mark","aver = aver + mark"]

8、【填空题】
“学生成绩”表含有字段（学号，姓名，数学，外语，专业，总分）。下列程序的功能是：计算每名学生的总分（总分=数学+外语+专业）。请在程序空白处填入适当语句，使程序实现所需要的功能。
Private Sub Commandl_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim zongfen As ADODB.Field
Dim shuxue As ADODB.Field
Dim waiyu As ADODB.Field
Dim zhuanye As ADODB.Fieid
Dim strSQL As String
Set cn = CurrentProject.Connection
strSQL = "Select * from成绩表"
rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
Set zongfen = rs.Fields("总分")
Set shuxue=rs.Fields("数学")
Set waiyu = rs.Fields("外语")
Set zhuanye = rs.Fields("专业")
Do While
zongfen = shuxue + waiyu + zhuanye

rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub [每空2分]

答案： ["Not rs.EOF","rs.Update"]

首页 1 2

共2页，共48个题库

咨询热线

400-886-8169

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

在线客服

点击咨询

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