ACCESS复习(选择题)

题目A B 以下（　）个选项定义了10

个整型数构成的数组,数组元素为NewArray(1)至NewArray(10)?Dim NewArray(10)As Integer

Dim NewArray(1 To 10)As

Integer

以下常量的类型说明符使用

正确的是（　）。

Const A1!=2000Const A1%=60000

以下声明I是整型变量的语句

正确的是（ ）。

Dim I,j As Integer I=1234

以下变量名中,正确的是（

）。

A B C24

以下逻辑表达式结果为True

的是（ ）。

NOT 3+5>83+5>8

标准模块是独立于( )的模

块。

窗体与报表窗体

在窗体中添加一个命令按钮

(名称为Command1),然后编写

如下代码Private Sub

Command1_Click( )a=0

b=5 c=6MsgBox a=b+c

End Sub窗体打开运行后,如果

单击命令按钮,则消息框的输

出结果为（）。

11a=11

Dim A(10) As Double,则A数组

共有()个元素。

1011 Dim A(3,4) As Integer,声明的

数组A有()个元素。

2012 25\2的结果是（）。1212.5

7>6 Imp 7>8的结果是（）

。

FALSE TRUE

进行逻辑表达式计算时,遵循

的优先顺序从高到低是（）

。

括号,NOT,AND,OR括号,AND,NOT,OR

VBA的逻辑值进行算术运算

时,True值被当作（）。

0-1已知Asc("A")=65,则Asc("D")

=（）。

68D

函数RIGHT("abcdef",2)的结

果是（）。

"ab""ef"

函数Now( )返回值的含义是（

）。

系统日期与时间系统日期

下列逻辑表达式中,能正确表

示条件"x和y都是奇数"的是

（）。

x Mod 2 =1 Or y Mod 2 =1x Mod 2 =0 Or y Mod 2=0循环结构 For K=2

To 12 Step 2

K=2*K

Next K

循环次数为（ ）。

12

已知程序段:

s=0

For i=1 to 10 step 2

s=s+1

i=I*2

Next i

当循环结束后,变量i的值

为(C )。

1011

在Access中，如果要处理具有复杂

条件或循环结构的操作，则应该使

用的对象是（ ）。

窗体模块

VBA程序流程控制的方式是（　）。顺序控制和分支控制顺序控制和循环控制

下列四种形式的循环设计

中，循环次数最少的是（）。A：a = 5 : b = 8

Do

a = a + 1

Loop While a

a = 5 :

b = 8

Do

a = a + 1

Loop Until a

在窗体中有一个命令按钮

（名称为run34），对应的

事件代码如下：

Private Sub

run34_Click( )

Sum=0

For i=10 To 1 Step

-2

sum=sum+i

Next i

MsgBox sum

End Sub

运行以上事件，程序的输

出结果是( )。

1030

在窗体中有一个命令按钮run35，对应的事件代码如下：

Private Sub

run35_Enter( )

Dim num As 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) = num/2 Then

a = a + 1 Else

b = b + 1 End If

Next i

MsgBox("运行结果：a=" & Str(a) &",b=" & Str(b))

End Sub

运行以上事件所完成的功能是( )。对输入的10个数据求累加和

对输入的10个数据求各自的余

数，然后再进行累加

下列不是分支结构的语句

是( )。

If … Then … EndIf While … Wend

设有如下程序

Private Sub

Command1_Click( )

Dim sum As Double,

x As Double

sum = 0

n = 0

For i=1 To 5

x = n / i

n = n + 1

sum = sum + x

Next i

End Sub

该程序通过For循环来计算

一个表达式的值，这个表

达式是( )。

1+1/2+2/3+3/4+4/51+1/2+1/3+1/4+1/5

设有如下窗体单击事件过

程：

Private Sub Form_Click(

)

a = 1

For i= 1 To 3

Select Case i

Case 1,3

a= a+1

34 Case 2,4

a = a+2

End Select

Next i

MsgBox a

End Sub

打开窗体运行后，单击窗

体，则消息框的输出的结

果是( )。

在窗体中添加一个名称为

Command1的命令按钮，然

后编写如下事件代码：

Private Sub

Command1_Click( )

a = 75

If a>60 Then

k = 1

ElseIf a>70 Then

k = 2

12 ElseIf a>80 Then

k = 3

ElseIf a>90 Then

k = 4

EndIf

MsgBox k

End Sub

窗体打开运行后，单击命

令按钮，则消息框的输出

结果是( )。

在窗体中添加一个名称为

Command1的命令按钮，然

后编写如下事件代码：

Private Sub

Command1_Click()

s="ABBACDDCBA"

For I=6 To 2 Step -2

x=Mid(s,I,I)

y=Left(s,I)

AABAAB ABBABA z=Right(s,I)

z=x & y & z

Next I

MsgBox z

End Sub

窗体打开运行后，单击命

令按钮，则消息框的输出

结果是( )。

C D标准答案

Dim NewArray(10) Integer Dim NewArray(1 To 10) Integer

Ｂ

Const A1%="123"Const A1$=TrueＡDim I As Integer I As IntegerＣ12A$B1+2Ｂ3+5<8NOT 3+5>=8Ａ报表窗体或报表Ａ

0FALSEＤ

129Ｂ

1516Ａ

1以上都不是Ａ01Ａ

括号,NOT,OR,AND括号,OR,AND,NOTＡ

1任意值Ｂd不确定Ａ"abcd""cdef"Ｂ系统时间以上都不是Ａx Mod 2 =1 And y Mod 2 =1x Mod 2 =0 And y Mod 2=0Ｃ

34Ｂ

2216Ｃ

宏报表Ｂ循环控制和分支控制顺序、分支和循环控制Ｄ

a = 5 :

b = 8

Do Until a < b b = b + 1 Loop

a = 5 :

b = 8

Do Until a > b

a = a + 1

Loop

C 55其他结果B

对输入的10个数据分别统计有几个是整数，有几个是非整数对输入的10个数据分别统计有

几个是奇数，有几个是偶数

D

If … Then … Else …EndIf Select … Case …

End Select

B

1/2+2/3+3/4+4/51/2+1/3+1/4+1/5C

56C 34A

BABBA BBABBA D