ACCESS复习(选择题)

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
题目
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
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
I As Integer

12A$B
1+2

3+5<8
NOT 3+5>=8

报表
窗体或报表

0
FALSE

12
9B
15
16 A
1 以上都不是

0
1A
括号,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 C
3
4B
22
16 C
宏 循环控制和分支控制
报表

顺序、分支和循环控制

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个数据分别统计有
是整数,有几个是非整数
几个是奇数,有几个是偶数
End If
Next i
MsgBox("运行结
果:a=" & Str(a) &",b="
& Str(b))
End Sub
运行以上事件所完成的功
能是( )。
下列不是分支结构的语句 是( )。
If … Then … EndIf
设有如下程序
Private Sub
Command1_Click( )
Dim sum As Double,
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
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
( )。
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") =( )。
3
4
1
2
在窗体中添加一个名称为
Command1的命令按钮,然
后编写如下事件代码:
Private Sub
Command1_Click()
s="ABBACDDCBA"
For I=6 To 2 Step -2
x=Mid(s,I,I)
y=Left(s,I) z=Right(s,I)
AABAAB
z=x & y & z
设有如下窗体单击事件过 程: 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 打开窗体运行后,单击窗 体,则消息框的输出的结 果是( )。
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
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 窗体打开运行后,单击命 令按钮,则消息框的输出 结果是( )。
循环结构
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中,如果要处理具有复杂 条件或循环结构的操作,则应该使 窗体 用的对象是( )。
如下代码 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有( )个元素。
以下声明I是整型变量的语句 正确的是( )。
Dim I,j As Integer
I=1234
以下变量名中,正确的是( )。
A B
C24
以下逻辑表达式结果为True 的是( )。
NOT 3+5>8
3+5>8
标准模块是独立于( )的模 块。
窗体与报表
窗体
在窗体中添加一个命令按钮
(名称为Command1),然后编写
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
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
相关文档
最新文档