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

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

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

1、【填空题】
下图所示的窗体上有一个命令按钮(名称为Command1)和一个选项组(名称为Framel)，选项组上显示“Framel”文本的标签控件名称为Labell，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是。
　

　 [每空2分]

答案： ["Label1.Caption="性别""]

2、【填空题】
在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是。 [每空2分]

答案： ["SetFocus"]

3、【填空题】
使用向导创建数据访问页时，在确定分组级别步骤中最多可设置个分组字段。 [每空2分]

答案： ["4"]

4、【填空题】
在窗体文本框Text l中输入“456AbC”后，立即窗口上输出的结果是。
Private Sub Textl_KeyPress(KeyAscii As Integer)
Select Case DeyAscii
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 Else
KeyAscii = 0
End Select
End Sub [每空2分]

答案： ["456aBC"]

5、【填空题】
在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Command1_Click()
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
打开窗体运行后，单击命令按钮，消息框中输出的结果是。 [每空2分]

答案： ["201"]

6、【填空题】
下列程序的功能是找出被5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Form_Click()
Dim Ncount %, n%
n = n + 1
If Then
Debug.Print n
Ncount =Ncount + 1
End If
Loop Until Ncont = 5
End Sub [每空2分]

答案： ["n Mod 5=1 And n Mod 7=1"]

7、【填空题】
以下程序的功能是在立即窗口中输出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
End Sub [每空2分]

答案： ["False","k+1"]

8、【填空题】
数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command5_Click()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim gz As DAO.Field
Dim zc As DAO.Field
Dim sum As Currency
Dim rate As Single
Set db = CurrentDb()
Set rs = db.OpenRecordset("工资表")
Set gz = rs.Fields("工资")
Set zc = rs.Fields("职称")
sum = 0
Do While Not
rs.Edit
Select Case zc
Case Is = "教授"
rate = 0.15
Case Is = "副教授"
rate = 0.1
Case Else
rate = 0.05
End Select
sum = sum + gz * rate
gz = gz + gz * rate

rs.MoveNext
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
MsgBox "涨工资总计:" & sum
End Sub [每空2分]

答案： ["rs,EOF","rs,UpDate"]

首页 1 2

共2页，共48个题库