ACCESS复习(选择题)

Next I
MsgBox z
End Sub
窗体打开运行后，单击命
令按钮，则消息框的输出
结果是( )。
ABBABA
C
D
标准答案
Dim NewArray(10) Integer
Dim NewArray(1 To 10) Integer
Ｂ
Const A1%="123"
Const A1$=True
Ａ
Dim I As Integer
x As Double
sum = 0
n=0
For i=1 To 5
x=n/i
1+1/2+2/3+3/4+4/5
n=n+1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算
一个表达式的值，这个表
达式是( )。
对输入的10个数据求各自的余 数，然后再进行累加
While … Wend 1+1/2+1/3+1/4+1/5
20
12
25\2的结果是（ ）。
12
12.5
7>6 Imp 7>8的结果是（ ）。
FALSE
TRUE
进行逻辑表达式计算时,遵循
的优先顺序从高到低是（ ） 括号,NOT,AND,OR
括号,AND,NOT,OR
。
VBA的逻辑值进行算术运算 时,True值被当作（ ）。
0
-1
已知Asc("A")=65,则Asc("D") =（ ）。
设有如下窗体单击事件过 程： Private Sub Form_Click( )
a=1 For i= 1 To 3
Select Case i Case 1,3 a= a+1 Case 2,4 a = a+2
End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗 体，则消息框的输出的结 果是( )。
3
4Ｂ
22
16 Ｃ
宏 循环控制和分支控制
报表
Ｂ
顺序、分支和循环控制
Ｄ
a=5:b=8 Do Until a < b b=b+1 Loop
a=5:b=8
Do
Until a=a
a +
> 1
b
C
Loop
55 其他结果
B
对输入的10个数据分别统计有几个 对输入的10个数据分别统计有
是整数，有几个是非整数
几个是奇数，有几个是偶数
循环结构
For K=2
To 12 Step 2
K=2*K Next K
1
2
循环次数为（ ）。
已知程序段: s=0 For i=1 to 10 step 2 s=s+1 i=I*2 Next i 当循环结束后,变量i的值 为(C )。
10
11
在Access中，如果要处理具有复杂 条件或循环结构的操作，则应该使 窗体 用的对象是（ ）。
以下声明I是整型变量的语句 正确的是（ ）。
Dim I,j As Integer
I=1234
以下变量名中,正确的是（ ）。
A B
C24
以下逻辑表达式结果为True 的是（ ）。
NOT 3+5>8
3+5>8
标准模块是独立于( )的模 块。
窗体与报表
窗体
在窗体中添加一个命令按钮
(名称为Command1),然后编写
68 D
函数RIGHT("abcdef",2)的结 果是（ ）。
"ab"
"ef"
函数Now( )返回值的含义是（ ）。
系统日期与时间
系统日期
下列逻辑表达式中,能正确表
示条件"x和y都是奇数"的是 x Mod 2 =1 Or y Mod 2 =1 x Mod 2 =0 Or y Mod 2=0
（ ）。
VBA程序流程控制的方式是（ ）。 顺序控制和分支控制
下列四种形式的循环设计
中，循环次数最少的是（ A：a = 5 : b = 8
）。
Do
a=a+1
Loop While a<b
模块
顺序控制和循环控制
a=5:b=8 Do a=a+1 Loop Until a<b
在窗体中有一个命令按钮 （名称为run34），对应的 事件代码如下： Private Sub run34_Click( )
在窗体中添加一个名称为 Command1的命令按钮，然 后编写如下事件代码： Private Sub Command1_Click( )
a = 75 If a>60 Then
k=1 ElseIf a>70 Then
k=2 ElseIf a>80 Then
k=3 ElseIf a>90 Then
k=4 EndIf MsgBox k End Sub 窗体打开运行后，单击命 令按钮，则消息框的输出 结果是( )。
Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i= 1 To 10
num =
InputBox("请输入数据:",
"输入",1) If Int(num/2)
对输入的10个数据求累加和
= num/2 Then
a=a+1
Else
b=b+1
3
4
1
2
在窗体中添加一个名称为
Command1的命令按钮，然
后编写如下事件代码：
Private Sub
Command1_Click()
s="ABBACDDCBA"
r I=6 To 2 Step -2
x=Mid(s,I,I)
y=Left(s,I) z=Right(s,I)
AABAAB
z=x & y & z
I As Integer
Ｃ
12A$B
1+2
Ｂ
3+5<8
NOT 3+5>=8
Ａ
报表
窗体或报表
Ａ
0
FALSE
Ｄ
12
9Ｂ
15
16 Ａ
1 以上都不是
Ａ
0
1Ａ
括号,NOT,OR,AND
括号,OR,AND,NOT
Ａ
d "abcd" 系统时间
1 任意值
Ｂ
不确定
Ａ
"cdef"
Ｂ
以上都不是
Ａ
x Mod 2 =1 And y Mod 2 =1 x Mod 2 =0 And y Mod 2=0 Ｃ
End If
Next i
MsgBox("运行结
果：a=" & Str(a) &",b="
& Str(b))
End Sub
运行以上事件所完成的功
能是( )。
下列不是分支结构的语句 是( )。
If … Then … EndIf
设有如下程序
Private Sub
Command1_Click( )
Dim sum As Double,
题目
A
B
以下（ ）个选项定义了10个
整型数构成的数组,数组元素 为NewArray(1)至
Dim
NewArray(10)As
Integer
Dim NewArray(1 Integer
To
10)As
NewArray(10)?
以下常量的类型说明符使用正
确的是（ ）。
Const A1!=2000
Const A1%=60000
如下代码 Private Sub
Command1_Click( ) a=0 b=5 c=6 MsgBox a=b+c
11 a=11
End Sub窗体打开运行后,如果
单击命令按钮,则消息框的输
出结果为（ ）。
Dim A(10) As Double,则A数组 共有( )个元素。
10
11
Dim A(3,4) As Integer,声明的 数组A有( )个元素。
Sum=0 For i=10 To 1 Step -2
sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输 出结果是( )。
10
30
在窗体中有一个命令按钮
run35，对应的事件代码如
下：
Private Sub
run35_Enter( )
Dim num As
D
If … Then … Else … Select … Case …
EndIf
End Select
B
1/2+2/3+3/4+4/5
1/2+1/3+1/4+1/5
C
5
6C
3
4A
BABBA
BBABBA
D