二级ACCESS分类模拟题选择题(七)
选择题
1、在Access中，如果变量定义在模块的过程内部，当过程代码执行时才可见，则这种变量的作用域为______
A．程序范围  B．全局范围  C．模块范围  D．局部范围
2、将一个数转换成相应字符串的函数是______。
A．Str    B．String    C．Asc D．Chr
3、将逻辑型数据转换成整型数据，转换规则是______。
A．将True转换为-1，将False转换为0    B．将True转换为1，将False转换为-1
C．将True转换为0，将False转换为-1    D．将True转换为1，将False转换为0
4、命令按钮控件test的单击事件过程如下：
Private Sub test_click()
Dim I，R
R=0
For I=1 T0 5 Step 1datediff是字符型函数
R=R+I
Next I
bResult.Caption=Str(R)
End Sub
当运行窗体，单击命令按钮时，在名为bResuh的窗体标签内将显示的是______。
A．字符串15    B．字符串5    C．整数15    D．整数5
5、在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5，5)，则该数组的元素个数为______。
A．20    B．24    C．25    D．36
6、VBA语句“Dim NewArray(10)as Integer”的含义是______。
A．定义10个整型数构成的数组NewArray    B．定义11个整型数构成的数组NewArray
C．定义1个值为整型数的变量NewArray    D．定义1个值为10的变量NewArray
7、如有数组声明语句Dim a(2，-3 to 2，4)，则数组a包含元素的个数是______。
A．40    B．75    C．12    D．90
8、语句Dim NewArray(10)As Integer的含义是______。
A．定义了一个整型变量且初值为10    B．定义了10个整数构成的数组
C．定义了11个整数构成的数组 D．将数组的第10元素设置为整型
9、下列数组声明语句中，正确的是______。
A．Dim a[3，4]As Integer    B．Dim a(3，4)As Integer
C．Dim a(n，n)As Integer D．Dim a[3，n]As Integer
10、下列VBA变量名中，正确的是______。
A．3S    B．Print    C．Select My Name D．Select_1
11、下列VBA变量名中，正确的是______。
A．3a    B．Print-2    C．Select My Name D．Select_12
12、VBA中定义符号常量使用的关键字是______。
A．Const    B．Dim    C．Public D．Static
13、如果A为“Boolean”型数据，则下列赋值语句正确的是______。
A．A="true"    B．A=.true    C．A=#TURE#    D．A=3＜4
14、a和b中有且只有一个为0，其正确的表达式是______。
A．a=0 or b=0    B．a=0 Xor b=0
C．a=0 And b=0 D．a*b=0 And a+b＜＞0
15、当条件为5＜x＜10时，x=x+1，以下语句正确的是______。
A．if 5＜x＜10 then x=x+1    B．if 5＜x or x＜10 then x=x+1
C．if 5＜x and x＜10 then x=x+1 D．if 5＜x xor x＜10 then x=x+1
16、下列运算结果中，值最大的是______。
A．3\4    B．3/4    C．4 mod 3    D．3 mod 4
17、表达式4+5\6*7/8 Mod 9的值是______。
A．4    B．5    C．6 D．7
18、对不同类型的运算符，优先级的规定是______。
A．字符运算符＞算术运算符＞关系运算符＞逻辑运算符
B．算术运算符＞字符运算符＞关系运算符＞逻辑运算符
C．算术运算符＞字符运算符＞逻辑运算符＞关系运算符
D．字符运算符＞关系运算符＞逻辑运算符＞算术运算符
19、表达式X+1＞X是______。
A．算术表达式  B．非法表达式
C．关系表达式  D．字符串表达式
20、下列逻辑运算结果为“true”的是______。
A．false or not true    B．true or not true
C．false and not true D．true and not true
21、表达式“B=INT(A+0.5)”的功能是______。
A．将变量A保留小数点后1位 B．将变量A四舍五入取整
C．将变量A保留小数点后5位D．舍去变量A的小数部分
22、在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim d1 As Date
Dim d2 As Date
d1=#12/25/2009#
d2=#1/5/2010#
MsgBox DateDiff("ww"，d1，d2)
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是______。
A．1    B．2    C．10 D．11
23、能够实现从指定记录集里检索特定字段值的函数是______。
A．Nz    B．Find    C．Lookup D．DLookup
24、下列表达式计算结果为日期类型的是______。
A．#2012-1-23#-#2011-2-3#    B．year(#2011-2-3#)
C．DateValue("2011-2-3")    D．Len("2011-2-3")
25、如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是______。
A．0.01*Int(X+0.05)    B．0.01*Int(100*(X+0.005))
C．0.01*Int(X+0.005)    D．0.01*Int(100*(X+0.05))
26、能够实现从指定记录集里检索特定字段值的函数是______。
A．DCount    B．DLookup    C．DMax D．DSum
27、要将一个数字字符串转换成对应的数值，应使用的函数是______。
A．Val    B．Single    C．Asc D．Space
28、窗体中有命令按钮run34，对应的事件代码如下：
Private Sub run34_Enter()
Dim num As Integer，a As Integer，b As Integer，i As Integer      For i=1 To 10
num=InputBox("请输入数据:"，"输入")
If Int(num/2)=num/2 Then
a=a+1
Else
b=b+1
End If
Next i
MsgBox("运行结果:a="&Str(a)&"，b="&Str(b))
End Sub
运行以上事件过程，所完成的功能是______。
A．对输入的10个数据求累加和
B．对输入的10个数据求各自的余数，然后再进行累加
C．对输入的10个数据分别统计奇数和偶数的个数
D．对输入的10个数据分别统计整数和非整数的个数
29、要将“选课成绩”表中学生的“成绩”取整，可以使用的函数是______。
A．Abs([成绩])    B．Int([成绩])
C．Sqr([成绩])    D．Sgn([成绩])
30、Rnd函数不可能产生的值是______。
A．0    B．1    C．0.1234 D．0.00005
31、运行下列程序，显示的结果是______。
a=instr(5，"Hello!Beijing."，"e")
b=sgn(3＞2)
c=a+b
MsgBox c
A．1    B．3    C．7    D．9
32、表达式123+Mid$("123456"，3，2)的结果是______。
A．"12334"    B．12334    C．123 D．157
33、删除字符串前导和尾随空格的函数是______。
A．Ltrim()    B．Rtrim()    C．Trim()    D．Lease()
34、随机产生[10，50]之间整数的正确表达式是______。
A．Round(Rnd*51)    B．Int(Rnd*40+10)
C．Round(Rnd*50)    D．10+Int(Rnd*41)
35、函数InStr(1，"eFCdEfGh"，"EF"，1)执行的结果是______。
A．0    B．1    C．5 D．6
36、下列程序段运行结束后，消息框中的输出结果是______。
Dim c As Boolean
a=Sqr(3)
b=Sqr(2)
c=a＞b
MsgBox c
A．-1    B．0    C．False D．True
37、能够实现从指定记录集里检索特定字段值的函数是______。
A．DAvg    B．DSum    C．DLookup D．DCount
38、表达式Fix(-3.25)和Fix(3.75)的结果分别是______。
A．-3，3    B．-4，3    C．-3，4 D．-4，4
39、函数Sgn(3.1416)的返回值是______。
A．-1    B．4    C．1    D．3
40、表达式Int(5*Rnd()+1)*Int(5*Rnd()-1)值的范围是______。
A．[0，15]    B．[-1，15]    C．[-4，15]    D．[-5，15]
41、VBA程序流程控制的方式是______。
A．顺序控制和分支控制 B．顺序控制和循环控制
C．循环控制和分支控制 D．顺序、分支和循环控制
42、在一行上写多条语句时，应使用的分隔符是______。
A．分号  B．逗号  C．冒号  D．空格
43、以下可以将变量A、B值互换的是______。
A．A=B:B=A    B．A=C:C:B:B=A
C．A=(A+B./2:B=(A-B./2    D．A=A+B:B=A-B:A=A-B
44、下列四个选项中，不是VBA的条件函数的是______。
A．Choose    B．If    C．IIf    D．Switch
45、下列不属于VBA函数的是______。
A．Choose    B．If    C．IIf    D．Switch
46、下列程序段运行结束后，变量c的值是______。
a=24
b=328
select case b/10
case 0
c=a*10+b
case 1 to 9
c=a*100+b
case 10 to 99
c=a*1000+b
end select
A．537    B．2427    C．24328 D．240328
47、下列If语句的功能是统计性别为男、职称为副教授以上且年龄小于40岁的人数，错误的语句是______c
A．If sex="男"And age＜40 InStr(duty，"教授")＞0 Then n=n+1
B．If sex="男"And age＜40 InStr(duty="教授"or duty="副教授")＞0 Then n=n+1    C．If sex="男"And age＜40 Right(duty，2)="教授"Then n=n+1
D．If sex="男"And age＜40 And(duty="教授"Or duty="副教授")Then n=n+1 48、执行下列程序段后，变量a和b的值分别是______。
a=100:b=50
If a＞b Then
a=a-b
Else
b=b+a
End If
A．50和50    B．100和50    C．100和150 D．150和100
49、运行下列程序段，结果是______。
For m=10 to 1 step 0
k=k+3
Next m
A．形成死循环  B．循环体不执行即结束循环
C．出现语法错误  D．循环体执行一次后结束循环
答案:
选择题
1、D
[解析] 在过程内部定义的变量，当过程代码执行时才可见，则它的作用域只在该过程内部，属于局部变量。
2、A
[解析] 将数值表达式的值转化为字符串的函数是str。而String返回一个由字符表达式的第1个字符重复组成的指定长度为数值表达式值的字符串；Asc函数返回字符串首字符的ASCII值；Chr函数返回以数值表达式值为编码的字符。
3、A
[解析] 在VBA中将逻辑型数据转换成整型数据时，True转为-1，Flase则转为0。
4、A
[解析] 程序运行后，R的值为从1到5累加，为15。函数Str的功能是将数值转换为字符串，因此，

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