VBA试题

1、选择题：1．VBA中定义符号常量可以用关键字A)Const B)Dim C)Public D)Static2．Sub过程和Function过程最根本的区别是A)Sub过程的过程名不能返回值，而Function过程能通过过程名返回值B)Sub过程可以使用Call语句或直接使用过程名，而Function过程不能C)两种过程参数的传递方式不同D)Function过程可以有参数，Sub过程不能有参数3．定义了二维数组A(2 to 5，5)，则该数组的元素个数为A)25 B)36 C)20 D)244．已知程序段：s=0For i=1 To 10 step 2s=s+1i=i*2Next i当循环结束后，变量i的值为a，变量s的值为b。

a． A)10 B)11 C)22 D)16b．A)3 B)4 C)5 D)65．以下内容中不属VBA提供的数据验证函数是A)IsText B)IsDate C)IsNumeric D)IsNull6．已定义好有参函数f(m)，其中形参m是整型量。

下面调用该函数，传递实参为5将返回的函数值赋给变量t．以下正确的是A)t=f(m) B)t=Call(m) C)t=f(5) D)t=Callf(5)7．在有参函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。

其设置选项是A)ByVal B)ByRef C)Optional D)ParamArray8．在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是A)快速监视窗口 B)监视窗口C)立即窗口 D)本地窗口9．VBA的逻辑值进行算术运算时，True值被当作A)0 B)-1 C)1 D)任意值10．VBA中不能进行错误处理的语句结构是A)On Error Then标号 B)On Error Goto 标号C)On Error Resume Next D)On Error Go 10011．VBA中用实际参数a和b调用有参过程Area(m，n)的正确形式是A)Aream，n B)Area a，b C)Call Area(m，n) D)Call Area a，b 12．给定日期DD，可以计算该日期当月最大天数的正确表达式是A)Day(DD)B)Day(DateSerial(Year(DD)，Month(DD)，Day(DD)))C)Day(DateSerial(Year(DD)，Month(DD)，0))D)Day(DateSerial(Year(DD)，Month(DD)+1，0)13．下列关于宏和模块的叙述中，正确的是A)模块是能够被程序调用的函数B)通过定义宏可以选择或更新数据C)宏或模块都不能是窗体或报表上的事件代码D)宏可以是独立的数据库对象，可以提供独立的操作动作14．有如下VBA代码，运行结束后，变量n的值是n=0For i=1 TO 3Forj=-4 To -1n=n+1NextjNext iA)0 B)3 C)4 D)1215．假设有如下Sub过程：Sub sfun(x As Single，Y As Single)t=xx=t/yy=t mod y ‘mod求余计算例7 mod 4 =3End Sub在窗体中添加一个命令按钮(名为Comnndl)，编写如下事件过程Private Sub Commandl_Click()Dim a As SinSleDim b As SinSlea=5:b=4sfun(a,b) ‘原书有错，改为：sfun a,b或call sfun(a,b)MsgBox a & chr(10) + chr(13) & b ‘chr(数值)的功能返回数值对应的字母End Sub ‘chr(10)=’返回1个换行符‘chr(13)=’返回一个空格符号注意：a → x ； b → y 是按地址传递的，因此不能写成sfun 5,4chr与Asc互逆例asc(a)=97 ; chr(97)=a asc(chr(97))=97打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为A)1和1 B)1.25和l C)1.25和4 D)5和416．有如下VBA程序段：sum=0n=0For i=1 TO 5x=n/in=n+1slim=sumNext i以上For循环计算sum，完成的表达式是A)1+1/1+2/3+3/4+4/5 B)1+1/2+1/3+1/4+1/5C)1/2+2/3+3/4+4/5 D)1/2+1/3+1/4+1/517．在窗体中有一个命令按钮runl6，对应的事件代码如下：Private Sub runl6_Enter()Dim num As IntegerDim a As IntegerDim b As Integer ．Dim i As IntegerFor i=1 To 10num=InputBox("请输入数据:"，"输入",1)if Int(num/2)=num/2 Then ‘Int取整函数例int(3.5)=3 a=a+1Elseb=b+1End lfNext IMsgBox("运行结果：a="& Str(a) & "，b=" & Str(b))End Sub ‘str(123)=”123”将123转换成字符串与val互逆。

例：Val(str(123))=123运行以上事件所完成的功能是A)对输入的10个数据求累加和B)对输入的10个数据求各自的余数，然后再进行累加c)对输入的10个数据求分别统计有几个是整数，有几个是非整数D)对输人的10个数据求分别统计有几个是奇数，有几个是偶数18．以下内容中不属VBA提供的数据验证函数是A)IsNull B)IsDate C)lsNumeric D)IsText19．VBA"定时”操作中，需要设置窗体的“计时器间隔(TimerInterval)”属性值。

其计量单位是A)微秒B)毫秒 C)秒 D)分钟20．InputBox函数返回值的类型为A)数值 B)字符串（错误）注意：正确答案为D）C)变体D)数值或字符串(视输入的数据而定)InputBox$ 返回字符串InputBox 返回数值或字符串21．在MsgBox(prompt，buttons，title，hetpfite，context)函数调用形式中必须提供的参数是A)prompt B)buttons C)title D)context22．假定有以下循环结构(2005年9月)Do Until条件循环体Loop则正确的叙述是。

A)如果“条件”值为0，则一次循环体也不执行B)如果“条件”值为0，则至少执行一次循环体C)如果“条件”值不为0，则至少执行一次循环体D)不论“条件”是否为“真”，至少要执行一次循环体解析：Do…Until。

．．Loop循环结构中，当条件值为假时，重复执行循环体,直至条件值为真，结束循环。

因此，如果条件值为0，则至少执行一次循环体。

23．窗体上添加有3个命令按钮，分别命名为Commandl、Command2和Command3。

编写Commandl的单击事件过程，完成的功能为：当单击按钮Commandl时，按钮Command2可用，按钮Command3不可见。

以下正确的是。

(2005年9月)A)Private Sub Commandl_Click()Command2.Visible=TrueCommand3.Visible=FalseEnd SubB)PrivateSub Commandl_Click()Command2.Enabled=trueCommand3.Enabled=FalseEnd SubC)Private Sub Commandl_Click()Command2.Enabled=TrueCommand3.Visible=FalseEnd SubD)Private SubCommandl_Click()Command2.Visible=TrueCommand3.Enabled=FalseEnd Sub解析：Enabled属性用于判断控件是否可用，而Visible属性用于判断控件是否可见。

题目中要求Command2可用，而Command3不可见，则必须设置Command2的Enabled为True，并且设置Command3的Visible为False24．假定有以下程序段：(2005年9月)n=0for i=1 to 3forj=-4 to -1n=n+1next jnext i运行完毕后，n的值是A) 0 B) 3 C) 4 D) 12解析：本题中，外层循环从1到3，要执行3次，而内层循环从-4到-1，执行4次，所以一共执行了4*3=12次循环。

而每执行一次循环n就加1，所以最后n的值为12。

25．下列逻辑表达式中，能正确表示条件“x和Y都是奇数”的是。

(2005年9月)A) x Mod 2=1 Or y Mod 2=1 B) x Mod 2=0 Or y Mod 2=0C)x Mod 2=1 And y Mod 2=1 D)x Mod 2=0 And y Mod 2=0解析：要使x和y都是奇数，则x和y除以2的余数都必须是1。

26．VBA程序的多条语句可以写在一行中，其分隔符必须使用符号。

(2006年4月)A)： B)’ C)； D)，解析：VBA程序在一行上写多个语句时用冒号“：”作分隔符．27．VBA表达式3*3＼3／3的输出结果是。

(2006年4月)A) 0 B) 1 C) 3 D) 9解析：VBA的表达式运算符优先级顺序“*”和“/”高于“\”。

此表达式先计算3*3=9和3/3=1，最后计算9＼1=9。

28．如果加载一个窗体，先被触发的事件是。

(2006年4月)A)Load事件 B)Open事件 C)Click事件 D)Dalick事件29．以下程序段运行结束后，变量x的值为_____。

(2006年4月)x=2y=4DOx=x*yy=y+1Loop While y<4A) 2 B) 4 C) 8 D) 20解析：定义两个变量x=2、y=4，执行Do后的循环体语句：x=x*y=2*4=8；y=y+1=4+l=5；此时y：5，while语句为假退出循环。

由于执行了一次循环，所以x=8。

30．在窗体上添加一个命令按钮(名为Commandl)，然后编写如下事件过程：(2006年4月)Private Sub Commandl_Click( )For i=1 To 4x=4Forj=1 To 3x=3For k=1 T0 2x=x+6Next kNextjNext iMsgBox xEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是。