国家二级ACCESS机试选择题（VBA编程）模拟试卷3
(总分60,考试时间90分钟)
1. 选择题
1. 下列属于通知或警告用户的命令是
A. PrintOut        B. OutputTo
C. MsgBox        D. RunWarnings
2. VBA中一般采用Hungarian符号法命名变量，代表子窗体的字首码是
A. sub        B. Rpt
C. Frnt        D. txt
3. Access将内置函数分类进行管理，下列选项中，不属于Access内置函数分类的是
A. 窗口        B. 数据库
C. 数组        D. 财务
4. ODBC的含义是
A. 开放式数据库连接        B. 数据库访问对象
C. 对象链接嵌入数据库        D. ActiveX数据对象
5. 下列Access内置函数中，属于SQL聚合函数的是
A. Int        B. Fix
C. Count        D. Chr
6. 运行下列程序，结果是    Private Sub Command2_Click()    f0=1：f1=1：f2=1：k=1    Do While k<=4    f=f0+f1+f2    f0=f1    f1=f2    f2=f    k=k+2    Loop    MsgBox"f="＆ f    End Sub
A. f=5        B. f=7resize函数vba
C. f=8        D. f=17
7. 下列程序的输出结果是    Private Sub Command3_Click()    t=0    m=1    sum=0    Do    t=t+m    sum=sum+t    m=In+2    Loop While m<=5    MsgBox"Sum="＆sumEnd Sub
A. Sum=6        B. Sum=10
C. Sum=35        D. Sum=14
8. 下列代码实现的功能是：若在窗体中一个名为“tNum"的文本框中输入课程编号，则程序要查询“课程表”中对应的“课程名称”，并显示在另一个名为“tName”文本框中，    Private Sub tNurn_AfterUpdate()    Me!tName=DLookup("课程名称"，"课程表"，"课程编号='|＆[]＆"'")    End Sub    下列选项中，不能在程序中[]处填写的是
A. Me!tNum        B. Me．tNum
C. Me[tNum]        D. Me．[tNum]
9. 子过程Plus完成对当前库中“教师表”的年龄字段都加1的操作。    Sub Plus()    ** As New ADODB．Connection    Dim rs As New ADODB．Recordset    Dim fd As ADODB．Field   
Dim strConnect As String    Dim strSQL As String    **=CurrentProj ect．Connection    strSQL="Select 年龄 from教师表"    rs．Open strSQL，ca，adOpenDynamic，adLockOptimistic，adCmdText    Set fd=rs．Fields("年龄")    Do While Not rs．EOF    fd=fd+1    rs．Opdate    []    Loop    rs．Close    ca．Close    Set rs=Nothing    **=Nothing    End Sub    程序空白处应该填写的语句是
A. rs．MoveNext        B. rs．MovePrevious
C. rs．MoveFirst        D. rs．MoveLast
10. Access中描述若干个操作组合的对象是
A. 表        B. 查询
C. 窗体        D. 宏
11. 下列关于嵌入宏的叙述中，正确的是
A. 嵌入宏不是独立的对象        B. 嵌入宏可以在导航窗格中被直接运行
C. 嵌入宏不能与其被嵌入的对象一起被复制        D. 同一嵌入宏可以被多个对象调用
12. 要从指定记录集内获取特定字段的值，应该使用的内置函数是
A. DLookup        B. Choose
C. Switch        D. Trim
13. SQL语句的Where子句可以限制表中的记录，完成同样功能的宏命令是
A. Requery        B. FindRecord
C. ApplyFilter        D. FindNextRecord
14. 打开报表后，下列事件中首先发生的是
A. 加载(Load)        B. 改变(Change)
C. 调整大小(Resize)        D. 成为当前(Current)
15. 当文本框或组合框文本部分的内容发生更改时，发生的事件是
A. Current        B. Click
C. Change        D. MouseMove
16. 要运行VBA的函数过程，应使用宏命令是
A. RunCommand        B. RunApp
C. RunCode        D. RunVBA
17. VBA中一般采用Hungarian符号法命名变量，代表复选框的字首码是
A. Chk        B. cmd
C. Fmt        D. txt
18. Access对内置函数进行了分类，下列选项中，不属于Access内置函数分类的是
A. 窗口        B. 消息
C. 文本        D. 财务
19. 下列Access内置函数中，不属于SQL聚合函数的是
A. Avg        B. Min
C. Count        D. Abs
20. 下列程序的输出结果是    Dim x As Integer    Private Sub Command4_Click()    Dim y As Integer    x=3    y=10    Call fun(y，x)    MsgBox"y="＆y    End Sub    Sub fun(ByRef y As Integer，ByVal z As Integer)    y=y+z    z=y-z    End Sub
A. y=3        B. y=10
C. y=13        D. y=7
21. 下列程序的输出结果是    Private Sub Command3_Click()    t=0    m=1    sum=0    Do    t=t+m    sum=sum+t    m=m+1    Loop While m<=5    MsgBox"Sum="＆sum    End Sub