VBA程序设计基础【DOC精选】.docVIP

（10）定义无符号整数类为UInt,下面可以作为类UInt实例化值的是 　　A）-369 　　B）369 　　C）0.369 D）整数集合{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）x Mod 2=0 And y Mod 2=0 　　B）x Mod 2=0 Or y Mod 2=0 　　C）x Mod 2=1 And y Mod 2=1 D）x Mod 2=1 Or y Mod 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语句“Dim NewArray(10) as Integer”的含义是 　　A）定义10个整型数构成的数组NewArray 　　B）定义11个整型数构成的数组NewArray 　　C）定义1个值为整型数的变量NewArray(10) 　　D）定义1个值为10的变量NewArray （31）运行下列程序段，结果是 　　For m=10 to 1 step 0 　　k=k+3 　　Next m 　　A）形成死循环 　　B）循环体不执行即结束循环 　　C）出现语法错误 　　D）循环体执行一次后结束循环 （32）运行下列程序，结果是 　　Private Sub Command32_Click() 　　f0=1:f1=1:k=1 　　Do While k=5 　　f=f0+f1 　　f0=f1 　　f1=f 　　k=k+1 　　Loop 　　MsgBox f=f 　　End Sub 　　A）f=5 　　B）f=7 　　C）f=8 　　D）f=13 （33）有如下事件程序，运行该程序后输出结果是 　　Private Sub Command33_Click() 　　Dim x As Integer,y As Integer 　　x=1:y=0 　　Do Until y=25 　　y=y+x*x 　　x=x+1 　　Loop 　　MsgBox x=x,y=y 　　End Sub 　　A）x=1,y=0 　　B） x=4,y=25 　　C）x=5,y=30 　　D）输出其他结果 （34）下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39) 　　Private Sub Command34_Click() 　　t=0 　　m=1 　　sum=0 　　Do 　　t=t+m 　　sum=sum+t 　　m=______ 　　Loop While m=39 　　MsgBox Sum=sum 　　End Sub 　　为保证程序正确完成上述功能，空白处应填入的语句是 　　A）m+1 　　B）m+2 　　C）t+1 　　D）t+2 （35）下列程序的功能是返回当前窗体的记录集 　　Sub GetRecNum() 　　Dim rs As Object 　　Set rs=______ 　　MsgBox rs.RecordCount 　　End Sub 　　为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是 　　A）Recordset 　　B）Me.Recordset 　　C）RecordSource D）Me.RecordSource （9）在VBA中要将数值表达式的值转