国家二级ACCESS机试（模块与VBA编程基础）模拟试卷2 (题后含答案及解析)
题型有：1. 选择题
选择题
1． VBA中定义符号常量使用的关键字是
A．Const
B．Dim
C．Public
D．Static
正确答案：A
解析：在VBA编程过程中，如果在代码中要反复使用相同的值，或者代表一些具有特定意义的数字或字符串，可以用符号常量形式来表示，符号常量使用关键字Const来定义，格式如下： 
  Const符号常量名称：常量值 
2． 可以用InputBox函数产生“输入对话框”。执行语句：    st=InputBox(“请输入字符串”，“字符串对话框”,“aaaa”)  当用户输入字符串“bbbb”，按OK按钮后，变量st的内容是
A．aaaa
B．请输入字符串
C．字符串对话框
D．bbbb
正确答案：D   
3． 下列不属于VBA函数的是
A．Choose
B．If
C．IIf
D．Switch
正确答案：B
解析：If(  )函数，该函数可用于选择操作。调用格式为：    If(条件表达式，表达式l，表达式2)    功能：函数根据”条件表达式”的值来决定返回值。如果“条件表达式”的值为“真”(True)，函数返回“表达式1”的值；“条件表达式”的值为“假”(Flase)，函数返回“表达式2”的值。    Switch(  )函数，该函数可用于多条件选择操作。调用格式为：    Switch(条件式1，表达式l[，条件式2，表达式2]…[，条件式n，表达式n])    功能：函数分别根据“条件式1”、“条件式2”…“条件式n”的值来决定返回值。条件式是由左至右进行计算判断的，函数将返回第一个条件式为True的对应“表达式”的值。    Choose(  )函数，调用格式为：    Choose(数值表达式，表达式l[，表达式2]…[，表达式n])    功能：函数根据“数值表达式”的值决定返回值。若不考虑变量的小数的定义位数，当“数值表达式”值大于1、小于2时，函数将返回“表达式1”的值；值大于2、小于3，返回“表达式2”的值，依此类推。以上3种函数均为VBA的函数。 
4． 下列关于VBA事件的叙述中，正确的是
A．触发相同的事件可以执行不同的事件过程
B．每个对象的事件都是不相同的
C．事件都是由用户操作触发的
D．事件可以由程序定义
正确答案：A
解析：事件是由系统定义的，事件的过程是由程序员定义的，因此触发相同的事件可以执行不同的事件过程；不同的对象可能有相同的实现，如很多控件都具有“获取焦点”事件。有些事件并不是用户触发的，如Resize事件。事件是由系统定义供程序员使用的，并不能由程序员定义。 
5． 用来测试当前读写位置是否达到文件末尾的函数是
A．EOF
B．FileLen
C．Len
D．LOF
正确答案：A
解析：在到达文件末尾之前，EOF函数一直返回False，到达文件末尾时，EOF返回True；FileLen函数返回一个文件的长度，单位为字节；Len返回文本串的字符数；LOF函数返回某文件的字节数。 
6． 下列表达式中，能够保留变量X整数部分并进行四舍五入的是
A．Fix(x1
B．Rnd(x)
C．Round(x1
D．Int(x) 
正确答案：C
解析：FiX(x)和Int(x)返回x的整数部分，对于小数部分完全舍弃。Rnd(x)返回一个随机数，Round(x)保留x的整数部分并进行四舍五入。 
7． VBA程序中，可以实现代码注释功能的是
A．方括号([])
B．冒号(：)
C．双引号(”)
D．单引号(’)
正确答案：D
解析：一个好的程序一般都有注释语句。这对程序的维护有很大的好处。    在VBA程序中，注释可以通过以下两种方式实现：    使用Rem语句，格式为：    Rem注释语句    用单引号“’”，格式为：    注释语句 
8． 在窗口中有一个标签Label0和一个命令按钮Commandl，Commandl的事件代码如下：    Private Sub Command l_Click(  )    LabelO．Lefl=Label0．Left+100    End Sub    打开窗口，单击命令按钮，结果是
A．标签向左加宽
B．标签向右加宽
C．标签向左移动
D．标签向右移动
正确答案：D
字符串处理函数 如果是a展示b解析：Left表示的是控件的左边距，所以left+100表示控件向右移动。 
9． 假定有以下循环结构    Do Until条件    循环体    Loop      则正确的叙述是
A．如果“条件”值为0，则一次循环体也不执行
B．如果“条件”值为0，则至少执行一次循环体
C．如果“条件”值不为0，则至少执行一次循环体
D．不论“条件”是否为“真”，至少要执行一次循环体
正确答案：B
解析：本题考查VBA中Do IJntil…Loop循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中是先判断条件，条件值为0表示条件是：False，则至少执行一次循环体。 
10． 假定有以下程序段    n=0    for i=l to 3    for j=一4 to-1    n=n+1    nextj    next i    运行完毕后，n的值是
A．0
B．3
C．4
D．12
正确答案：D
解析：本题考查VBA中嵌套。For循环的知识。这种问题要注意分析清楚每次循环的变化以及循环的次数。在这个循环中，内循环执行4次，外循环执行3次，所以里面的循环体语句n=n+1共执行12次，所以最终n的值为12。 
11． 以下程序段运行结束后，变量X的值为    X=2    Y=4    DO    X==x*y    Y=y+l    Loop  While y＜4
A．2
B．4
C．8
D．20
正确答案：C
解析：本题考查VBA中循环的知识。在本题中用了Do…Loop While循环，先运行循环体后判断条件，当条件满足时继续循环，条件不满足时退出循环体。在本题中第一次循环结束后y的值为5已经不满足条件，故此本循环只执行一次，x的值为2*4=8。 
12． 在窗体上添加一个命令按钮(名为Commandl)，然后编写如下事件过程：    Private Sub Command l—Click(  )    For i=l To 4    X=4    Forj=1 T0 3    X=3    For k=l To 2    X=x+6    Next k    Next J    Next i    MsgBox X    End Sub    打开窗体后，单击命令按钮，消息框的输出结果是
A．7
B．15
C．157
D．528
正确答案：B
解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x=3+6+6=15。 
13． 在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：    Private Sub Commandl_Click(  )    Dim a(10，10)    For m=2 T0 4    For n=4 T0 5    a(m，n)=m*n    Next n    Next m    MsgBox a(2，5)+a(3，4)+a(4，5)    End Sub    窗体打开运行后，单击命令按钮，则消息框的输出结果是
A．22
B．32
C．42
D．52
正确答案：C
解析：本题考查数组和二重循环的知识。在这个问题中，我们实际上可以分析出，数组元素的值就是该元素的两个下标之积(循环范围内)。所以最后的三个数组元素的和也就是2*5+3*4+4*5=42。 
14． 在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：    Private Sub Command l_Click(  )    A=75    IfA＞60 Then I=1    IfA＞70 Then 1=2    IfA＞80 Then 1=3    IfA大＞90 Then 1=4    MsgBox  I    End Sub        窗体打开运行后，单击命令按钮，则消息框的输出结果是
A．1
B．2
C．3
D．4
正确答案：B
解析：本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行判断是否满足条件。首先75大于60。所以i=l，然后再判断75大于70。所以i=2，再接着判断75既不大于80也不大于90，所以最后消息框里输出的i值为2。 
15． 在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：    Private Sub Commandl_Click(  )    s=”ABBACDDCBA”    For 1=6 To 2．Step-2    x=Mid(s，I，I)    Y=Left(s，I)    z=Right(s，I)    z=X&Y&Z    Next I    MsgBox Z    End Sub    窗体打开运行后，单击命令按钮，则消息框的输出结果是
A．AABAAB
B．ABBABA
C．BABBA
D．BBABBA
正确答案：D
解析：本题考查VBA中循环和取子串函数的知识。在VBA中有三种取子串函数：Left函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串。在本题中由于循环每次都会为z赋一个新的值Right(s，i)，所以只有最后一次循环中的z值才有意义。最后一次循环时i=2，所以D选项正确。 
16． 在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：    Private Sub Commandl_Click(  )    a=75    If a＞60 Then    k=1    Elself  a＞70 Then    k=2Elself  a＞80 Then    k=3    Elself  a＞90 Then    k=4    Endlf    MsgBox k    End Sub    窗体打开运行后，单击命令按钮，则消息框的输出结果是

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。