- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
PAGE
PAGE1
程序设计基础VBA作业
一、选择题
1、将一个数转换成相应字符串的函数是()。
A)Str B)String C)Asc D)Chr
2、VBA中定义符号常量使用的关键字是()。
A)Const B)Dim C)Public D)Static
3、下列表达式计算结果为日期类型的是()。
A)#2012-1-23#-#2011-2-3# B)year(#2011-2-3#)
C)DateValue(2011-2-3) D)Len(2011-2-3)
4、下列表达式中,能正确表示条件x和y都是奇数的是()。
A)xMod2=0OryMod2=0B)xMod2=0AndyMod2=0
C)xMod2=1OryMod2=1D)xMod2=1AndyMod2=1
5、由“Fori=1To16Step3”决定的循环结构被执行
A)4次 B)5次 C)6次 D)7次
6、表达式B=INT(A+0.5)的功能是()。
A)将变量A保留小数点后1位
B)将变量A四舍五入取整
C)将变量A保留小数点后5位
D)舍去变量A的小数部分
7、下列不属于VBA函数的是()。
A)Choose B)If C)IIf D)Switch
8、要将一个数字字符串转换成对应的数值,应使用的函数是()。
A)Asc B)Single C)Space D)Val
9、下列变量名中,合法的是()。
A)4A B)A-1 C)ABC_1
10、VBA语句DimNewArray(10)asInteger的含义是()。
A)定义10个整型数构成的数组NewArray
B)定义11个整型数构成的数组NewArray
C)定义1个值为整型数的变量NewArray(10)
D)定义1个值为10的变量NewArray
11、运行下列程序段,结果是()。
Form=10To1Step0
k=k+3
Nextm
A)循环体不执行即结束循环 B)循环体执行一次后结束循环
C)形成死循环 D)出现语法错误
12、可以用InputBox函数产生“输入对话框”执行语句:
st=InputBox(请输入字符串,字符串对话框,aaaa)
当用户输入“bbbb”,并按OK按钮后,变量st的内容是()。
A)aaaa B)请输入字符串 C)字符串对话框 D)bbbb
13、如果x是一个正的实数,欲保留两位小数、将千分位四舍五入的表达式是()。
A)0.01*Int(x+0.05) B)0.01*Int(100*(x+0.005))
C)0.01*Int(x+0.005) D)0.01*Int(100*(x+0.05))
14、有以下程序:
result=1
Fori=1To6step3
result=result*i
Nexti
MsgBoxresult
程序运行后消息框的输出内容是()。
A)1 B)4 C)15
15、若在模块AA中,有如下两个过程:
SubFuntcionqq(xAssingle,ByValyAssingle)
t=x
x=t/y
y=tMody
EndFunction
PrivateSubtt()
DimaAssingle
DimbAssingle
a=5:b=4
Callqq(a,b)
MsgBoxaChr(10)+Chr(13)b
EndSub
运行tt子过程后消息框中有两行输出,内容分别为:()。
A)1和1 B)1.25和1 C)1.25和4
16、以下程序运行后,在立即窗口中显示的是()。
DimiAsInteger,jAsInteger
Fori=2To10
Forj=2Toi/2
IfiModj=0thenExitFor
Nextj
原创力文档


文档评论(0)