第8章vba程序设计基础

《第8章vba程序设计基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、（10）定义无符号整数类为UInt,下面可以作为类UInt实例化值的是　　A）-369　　B）369　　C）0.369D）整数集合{1,2,3,4,5}（17）下列表达式计算结果为日期类型的是　　A）#2012-1-23#-#2011-2-3#　　B）year(#2011-2-3#)　　C）DateValue("2011-2-3")D）Len("2011-2-3")（23）下列表达式中,能正确表示条件“x和y都是奇数”的是　　A）xMod2=0AndyMod2=0　　B）xMod2=0OryMod2=0　　C）xMod2=1AndyMod2=1D）xMod2=1OryMod2

2、=1（26）在VBA中，能自动检查出来的错误是　　A）语法错误　　B）逻辑错误　　C）运行错误　　D）注释错误（27）下列给出的选项中，非法的变量名是　　A）Sum　　B）Integer_2　　C）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语

3、句“DimNewArray(10)asInteger”的含义是　　A）定义10个整型数构成的数组NewArray　　B）定义11个整型数构成的数组NewArray　　C）定义1个值为整型数的变量NewArray(10)　　D）定义1个值为10的变量NewArray（31）运行下列程序段，结果是　　Form=10to1step0　　k=k+3　　Nextm　　A）形成死循环　　B）循环体不执行即结束循环　　C）出现语法错误　　D）循环体执行一次后结束循环（32）运行下列程序，结果是　　PrivateSubCommand32_Click()　　f0=1:f1=1:k=1　　DoW

4、hilek<=5　　f=f0+f1　　f0=f1　　f1=f　　k=k+1　　Loop　　MsgBox"f="&f　　EndSub　　A）f=5　　B）f=7　　C）f=8　　D）f=13（33）有如下事件程序，运行该程序后输出结果是　　PrivateSubCommand33_Click()　　DimxAsInteger,yAsInteger　　x=1:y=0　　DoUntily<=25　　y=y+x*x　　x=x+1　　Loop　　MsgBox"x="&x&",y="&y　　EndSub　　A）x=1,y=0　　B）x=4,y=25　　C）x=5,y=30　　D）输出其他结

5、果（34）下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)　　PrivateSubCommand34_Click()　　t=0　　m=1　　sum=0　　Do　　t=t+m　　sum=sum+t　　m=______　　LoopWhilem<=39　　MsgBox"Sum="&sum　　EndSub　　为保证程序正确完成上述功能，空白处应填入的语句是　　A）m+1　　B）m+2　　C）t+1　　D）t+2（35）下列程序的功能是返回当前窗体的记录集　　SubGetRecNum()　　DimrsAsObject　　Setrs=_____

6、_　　MsgBoxrs.RecordCount　　EndSub　　为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是　　A）Recordset　　B）Me.Recordset　　C）RecordSourceD）Me.RecordSource（9）在VBA中要将数值表达式的值转换为字符串，应使用函数【9】。（10）运行下列程序，输入如下两行：　　Hi,　　Iamhere．　　弹出的窗体中的显示结果是【10】。　　PrivateSubCommand11_Click()　　DimabcAsString,sumAsstring　　sum=""　　Do　　abc=Inpu

7、tBox("输入abc")　　IfRight(abc,1)="."ThenExitDo　　sum=sum+abc　　Loop　　MsgBoxsum　　EndSub　　（11）运行下列程序，窗体中的显示结果是：x=【11】。　　OptionCompareDatabase　　DimxAsInteger　　PrivateSubForm_Load()　　x=3　　EndSub　　PrivateSubCommand11_Click()　　StaticaAsInteger　　DimbAsInteger　　b=x^2