欢迎来到天天文库
浏览记录
ID:14209231
大小:204.50 KB
页数:15页
时间:2018-07-26
《第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
此文档下载收益归作者所有