A=15:
debug.PrintAA=-15
Elsedebug.PrintA
A=-15:
debug.PrintAEndIf
EndIf
18.在下面程序运行时键入2，则该程序的运行结果是[]。
Privatesubcommand1_click（）
X=inputbox（“请输入一个整数”）
Selectcasex
CaseIs<-3
debug.Print（x+1）/（x+3）
Case–3To3
debug.Printx*x+1
CaseIs>3
debug.Print（x+1）/（x-3）
Endselect
Endsub
A.2B.0.6C.5D.-3
19.下列程序段的执行结果为[]。
x=5
y=-20
IfNotx>0Thenx=y-3Elsey=x+3
Printx-y;Y-x
A.-33B.5-8C.3-3D.25-25
20.数学关系4≤x≤9表示为正确的VB表达式为（ ）。
A）4<=x<=9B）4<=xAndx<=9
C）x>=4Orx<=9D）x>=4Andx<=9
21.以下语句中，与语句“IfA<="M"AndB<>"N"ThenC=pElseC=q”等价的是（ ）。
A）IfA<="M"OrB="N"ThenC=qElseC=p
B）IfA<="M"AndB="N"ThenC=qElseC=p
C）IfNot（A<="M"AndB="N"）ThenC=qElseC=p
D）IfA<="M"AndB="N"ThenC=qElseC=p
22.VB提供了结构化程序设计的3种基本结构，3种基本结构是（ ）。
A）递归结构，选择结构，循环结构
B）选择结构，过程结构，循环结构
C）过程结构，输入输出结构，转向结构
D）选择结构，循环结构，顺序结构
23.下面程序段，求两个数中的大数，不正确的是（）。
A）MAX=IIF（X>Y,X,Y）
B）IFX>YTHENMAX=XELSEMAX=Y
C）MAX=X
IFY>=XTHENMAX=Y
D）IFY>=XTHENMAX=Y
MAX=X
24.运行下列程序，输出的结果为_____。
PrivateSubtest（）
s=0
Do
s=（s+1）*（s+2）
Number=Number+1
LoopUntils>=30
debug.PrintNumber;s
EndSub
（A）01（B）3030（C）430（D）3182
25.运行下列程序，输出的结果为_____。
PrivateSubtest（）
A$="54321":
B$="abcde"
j=1
DoWhilej<=5
debug.PrintMid（A$,6-j,1）+Mid（B$,j,1）;
j=j+1
Loop
debug.Print
EndSub
（A）a1b2c3d4e5（B）a5b4c3d2e1
（C）e1d2c3b4a5（D）1a2b3c4d5e
26.下面程序段的执行结果为______。
I=0
Forg=10to19Step3
I=I+1
Nextg
debug.PrintI
（A）4（B）5（C）3（D）6
27.运行下列程序，输出的结果为_____。
PrivateSubtest（）
Forj=1To10
a=20-（2*j-1）
Ifa/3=a\3Ora/5=a\5Then
Sum=Sum+a
EndIf
Nextj
debug.Print"Sum=";Sum
EndSub
（A）Sum=27（B）Sum=15（C）Sum=32（D）32
28.运行下列程序，结果为_____。
Subtest（）
a$="AWORKERISOVERTHERE"
x=Len（a$）
Fori=1Tox-1
b$=Mid（a$,i,2）
Ifb$="ER"Thens=s+1
Nexti
debug.Prints
EndSub
（A）1（B）2（C）3（D）4
29.在窗体上画一个命令按钮，然后编写如下事件过程：
subtest（）
DimStr1AsString,Str2AsString
Str1=InputBox（"请输入一个字符串"）
Fori=1ToLen（Str1）
Str2=UCase（Mid（Str1,i,1））+Str2
Nexti
debug.PrintStr2
EndSub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为_____。
（A）abcdefg（B）ABCDEFG
（C）gfedcba（D）GFEDCBA
30.选择下面程序的运行结果（）。
Subtest（）
DimnAsInteger
Do
n=n+1
Debug.printn
LoopWhilen<0
EndSub
（A）0（B）1（C）2（D）没有任何输出结果
31.下面程序段的执行结果为______。
k=0
Forj=1to2
Fori=1to3
k=i+1
Nexti
Fori=1to7
k=k+1
Nexti
Nextj
debug.Printk
（A）10（B）6（C）11（D）16
32.下列程序段执行的结果为（）
Fori=1To3
k=i
Next
Printk,i
A）33B）34C）43D）44
33.下列代码段的执行结果为（）
i=4
x=5
Do
i=i+1
x=x+2
LoopUntili>=7
debug.Print"i=";i,"x=";x
A）i=4x=5B）i=7x=13
C）i=8x=7D）i=7x=11
34.语句DimA（-3to5）AsInteger定义的数组的元素个数是____。
（A）6（B）7（C）8（D）9
35.语句OptionBase1:
Dima（3,4）定义的数组中，所包含的数组元素的个数是_____。
（A）12（B）7（C）20（D）15
36.语句Dima（3,4,5）定义的数组中所包含的数组元素的个数是__。
（A）12（B）60（C）120（D）345
37.下面的数组声明语句中______是正确的。
（A）DimA[3,4]AsInteger（B）DimA（3,4）AsInteger
（C）DimA[3;4]AsInteger（D）DimA（3;4）AsInteger
37.程序段
SubForm_Click（）
Dima（1to20）AsInteger
DimkAsInteger
Fork=1To20
a（k）=k*k
Nextk
msgboxa（k）
EndSub
执行的结果为：
______。
（A）400（B）20（C）441（D）出错
38.下列程序段的执行结果是_____。
DimM（10）
ForI=0To10
M（I）=2*I
NextI
msgboxM（M（3））
（A）12（B）6（C）0（D）4
39.下列程序段的执行结果是____。
DimA（5）
ForI=1to5
A（I）=I*I
NextI
msgboxA（I-1）
（A）5（B）25（C）0（D）16
40.设执行以下程序段时依次输入1、3、5，执行结果为______。
Dima（4）AsInteger,b（4）AsInteger
ForK=0To2
a（K+1）=Val（InputBox（"请输入数据:
"））
b（3-K）=a（K+1）
NextK
msgboxb（K）
（A）1（B）3（C）5（D）0
41.下列程序段的执行结果为______。
DimM（10）
ForK=1To10
M（K）=11-K
NextK
X=6
msgboxM（2+M（X））
（A）2（B）3（C）4（D）5
42.下列程序段的执行结果为_____。
DimM（10）,N（10）
I=3
ForT=1To5
M（T）=T
N（I）=2*I+T
NextT
msgboxN（I）
msgboxM（I）
（A）311（B）315（C）113（D）153
43.以下说法不正确的是_____。
（A）使用Redim语句可以改变数组的维数
（B）使用Redim语句可以改变数组的类型
（C）使用Redim语句可以改变数组每一维的大小
（D）使用Redim语句可以对数组中的所有元素进行初始化
44.程序段：
SubCommand1_Click（）
Dimm（1to10）AsInteger,kAsInteger
Fork=1to10
m（k）=11-k
Nextk
Fork=1to10
msgboxm（m（k））
Nextk
EndSub
程序运行时，单击命令按钮时，程序的输出结果是_____。
（A）10987654321
（B）13579246810
（C）246810579
（D）12345678910
45.下列程序段的执行结果为_____。
DimA（10,10）
ForI=2To4
ForJ=4To5
A（I,J）=I*J
NextJ
NextI
MsgBoxA（2,5）+A（3,4）+A（4,5）
（A）22（B）42（C）32（D）52
46.下列程序段的执行结果为______。
DimA（10）,B（5）
ForI=1To10
A（I）=I
NextI
ForJ=1To5
B（J）=J*20
NextJ
A（5）=B
（2）
MsgBoxA（5）
（A）5（B）10（C）20（D）40
47.下列程序段的执行结果为______。
DimM
（2）
ForI=1To2
M（I）=0
NextI
K=2
ForI=1ToK
ForJ=1ToK
M（J）=M（I）+1
MsgBoxM（K）
NextJ
NextI
（A）1223（B）1234（C）0223（D）0123
48.使用Function语句定义一个函数过程，其返回值的类型_____。
（A）只能是符号常量
（B）是除数组之外的简单数据类型
（C）可在调用时由运算过程决定
（D）由函数定义时As子句声明
49.可以使用____语句退出Sub过程。
（A）ExitSub（B）GoOff（C）EndSub（D）Exit
50.在主调过程中的参数称为____。
（A）形参（B）实参（C）主参（D）辅参
51.程序段
SubCommand1_Click（）
DimxAsInteger,yAsInteger,zAsInteger
x=5：
y=7：
z=0
Callp1（x,y,z）
msgboxStr（z）
EndSub
Subp1（ByValaAsInteger,ByValbAsInteger,cAsInteger）
c=a+b
EndSub
程序运行结果是____。
（A）0（B）12（C）Str（z）（D）没有显示
52.Sub过程和Function过程最根本的区别是_____。
（A）Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
（B）Sub过程可以使用call语句或直接使用过程名，而Function过程不能
（C）两种过程参数的传递方式不同
（D）Function过程可以有参数，Sub过程不能有参数
53.现有如下程序:
SubForm_Click（）
s=0
Fori=1To5
s=s+f（5+i）
Next
msgboxs
EndSub
PublicFunctionf（xAsInteger）
Ifx>=10Then
t=x+1
Else
t=x+2
EndIf
f=t
EndFunction
运行程序的结果为____。
（A）38（B）49（C）61（D）70
54.如果定义一个函数f（m）,其中m为整型形参，当调用函数时，传递实参为5，函数的返回值赋值给变量t，则正确的调用格式是____。
（A）T=f（m）
（B）T=f（5）
（C）T=call（m）
（D）T=call（5）
55.在VBA中用实参a,b调用有参数的过程area（x,y）时，正确的格式是______。
（A）Areax,y
（B）Areaa,b
（C）Callarea（x,y）
（D）Callareaa,b
二、填空题：
（12道）
1.宏是ExcelVBA的基础。
2.简单地说，宏就是一组动作的集合
3.制作宏的两种方法：
录制宏和编写宏。
4.VBA是Office对象和VBA程序代码之间相互关联和交流的桥梁。
5.VBA常用对象的集合：
Workbooks集合、Worksheets集合、Sheets集合。
6.变量的声明语法结构：
Static变量名as数据类型。
7.常量声明使用Const语句，声明常量时，需要对其进行赋值，并且赋值后该值不能再被修改。
8.Mod用于对两个操作数作除法并且只返回余数。
9.连接运算符分为强制字符连接运算符和混合连接运算符两种。
10.强制连接运算符指的是“&”运算符，其主要用来将两个表达式强制作为字符串连接。
11.混合连接运算符指的是“+”运算符。
12．逻辑运算符包括逻辑与（AND）运算符和逻辑或（OR）运算符两种。
升级会员 