题目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
B
Const A1%="123"Const A1$=TrueADim I As Integer I As IntegerC12A$B1+2B3+5<8NOT 3+5>=8A报表窗体或报表A
0FALSED
129B
1516A
1以上都不是A01A
括号,NOT,OR,AND括号,OR,AND,NOTA
1任意值Bd不确定A"abcd""cdef"B系统时间以上都不是Ax Mod 2 =1 And y Mod 2 =1x Mod 2 =0 And y Mod 2=0C
34B
2216C
宏报表B循环控制和分支控制顺序、分支和循环控制D
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