VBA考试题及答案

VBA及答案（25）若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为A）Form_Click()   Command1_Click()B）Frm1_Click()   Command1_Click()C）Form_Click()   Cmd1_Click()D)Frm1_Click()   Cmd1_Click()（26）在VBA中，能自动检查出来的错误是A）语法错误B）逻辑错误C）运行错误  D）注释错误（27）下列给出的选项中，非法的变量名是A）Sum    B）Integer_2C）Rem（注释）D）Form1（28）如果在被调用的过程中改变了形参变量的值；但又不影响实参变量本身，这种参数传递方式称为A）按值传递B）按地址传递C）ByRef传递 D）按形参传递（29）表达式“B=INT(A+0.5)”的功能是A）将变量A保留小数点后1位 B）将变量A四舍五入取整C）将变量A保留小数点后5位 D）舍去变量A的小数部分（30）VBA语句“DimNewArray(10)asInteger”的含义是A）定义10个整型数构成的数组NewArrayB）定义11个整型数构成的数组NewArrayC）定义1个值为整型数的变量NewArray(10)D）定义1个值为10的变量NewArray（31）运行下列程序段，结果是Form=10to1step0k=k+3NextmA）形成死循环       B）循环体不执行即结束循环C）出现语法错误      D）循环体执行一次后结束循环（32）运行下列程序，结果是PrivateSubCommand32_Click()f0=1:f1=1:k=1DoWhilek<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox"f="&fEndSubA）f=5           B）f=7C）f=8           D）f=13（33）有如下事件程序，运行该程序后输出结果是PrivateSubCommand33_Click()DimxAsInteger,yAsIntegerx=1:y=0DoUntily<=25y=y+x*xx=x+1LoopMsgBox"x="&x&",y="&yEndSubA）x=1,y=0         B）x=4,y=25C）x=5,y=30        D）输出其他结果（34）下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)PrivateSubCommand34_Click()t=0m=1sum=0Dot=t+msum=sum+tm=______LoopWhilem<=39MsgBox"Sum="&sumEndSub为保证程序正确完成上述功能，空白处应填入的语句是A）m+1           B）m+2C）t+1           D）t+2（35）下列程序的功能是返回当前窗体的记录集SubGetRecNum()DimrsAsObjectSetrs=______MsgBoxrs.RecordCountEndSub为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是A）Recordset        B）Me.RecordsetC）RecordSource      D）Me.RecordSource答案：CACADBBDABB