还剩9页未读，继续阅读
本资源只提供10页预览，全部文档请下载后查看！喜欢就下载吧，查找使用更方便
文本内容:
程序设计基础作业VBA
一、选择题
1、将一个数转换成相应字符串的函数是oA StrB StringC AscD Chr
2、VBA中定义符号常量使用的关键字是oA ConstB DimC PublicD Static
3、下列表达式计算结果为日期类型的是oA#2012-1-23#-#2011-2-3#B year#2011-2-3#
4、下列表达式中,能正确表示条件”x和y都是奇数”的是oC DateValue“2011-2-3”D Lenn2011-2-3nA xMod2=0Or y Mod2=0B xMod2=0And yMod2=0C xMod2=1Or yMod2=1D xMod2=1And yMod2=
15、由“For i=1To16Step3”决定的循环结构被执行A4次B5次C6次D7次
6、表达式8=及1\人+
0.5”的功能是oA》寻变量A保留小数点后1位B将变量A四舍五入取整C将变量A保留小数点后5位D舍去变量A的小数部分
7、下列不属于VBA函数的是0A ChooseB IfC IlfD Switch
8、要将一个数字字符串转换成对应的数值，应使用的函数是oA AscB SingleC SpaceD VaiEndFunctionqq程序运行后，立即窗口中的输出的结果是【8】
9、某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分,其余5个分数的平均值为该名参赛者的最后得分请填空完成规定的功能Sub abcDim mark!,aver!,i%,maxi!,min1!aver=0For i=1To7mark=InputBox请输入第“i”位评为的打分”If i=1Thenmax1=mark:min1=markElseIf markmini Thenmin1=markElself markmax1Then【9】End IfEndIf【10】Next iaver=aver-maxi-mini/5MsgBox averEnd Sub
9、下列变量名中，合法的是oA4A BA-l CABC_1D private
10、VBA语句Dim NewArray10as Integer”的含义是A定义10个整型数构成的数组NewArrayB定义11个整型数构成的数组NewArrayC定义1个值为整型数的变量NewArray10D定义1个值为10的变量NewArray
11、运行下列程序段，结果是oFor m=10To1Step0k=k+3Next mA循环体不执行即结束循环B循环体执行一次后结束循环C形成死循环D出现语法错误
12、可以用InputBox函数产生“输入对话框”执行语句st=InputBox请输入字符串“，字符串对话框“，“aaaa”当用户输入“bbbb”，并按OK按钮后，变量st的内容是oA aaaaB请输入字符串C字符串对话框D bbbb
13、如果x是一个正的实数，欲保留两位小数、将千分位四舍五人的表达式是oA
0.01*Int x+
0.05B
0.01*Int100*x+
0.005C
0.01*Int x+
0.005D
0.01*Int100*x+
0.
0514、有以下程序result=1For i=1To6step3result=result*iNext iMsgBoxresult程序运行后消息框的输出内容是oA1B4C15D
12015、若在模块AA中，有如下两个过程Sub Funtcionqq x As single,By Vaiy Assingle t=x x=t/y y=t ModyEnd FunctionPrivate Sub ttDim aAs singleDimb Assingle a=5:b=4Call qqa,b MsgBoxaChr10+Chr13bEnd Sub运行注子过程后消息框中有两行输出，内容分别为A1子口1B
1.251C
1.25^4D5不口
416、以下程序运行后，在立即窗口中显示的是（）oDim iAs Integer,j As IntegerFor i=2To10For]=2To i/2If iMod j=0then ExitForNext jIfjsqr iThen Debug.Print iNextiA1579B46803579D
235717、运行下列程序，其结果是ofO=l fl=l k=lDo Whilek=5f=fO+flfO=flfl=fk二k+1LoopMsgBoxf=fA f=5B f=
718、有如C f=8D f=13下事件程序，运行该程序后输出结果是（）oDim x As Integer,y As Integerx=l:y=0Do Untily=25y=y+x*xx=x+1LoopMsgBoxx=x,y=yA x=l,y=0B x=4,y=25C x=5,y=30D输出其他结果
19、模块中有以下子过程Private SubabcDim y As IntegerStaticxAs Integerx=10y=5y=f xDebug.Print x;yEnd SubPublic Function fxAsInteger As IntegerDim yAsIntegerx=20y=2f二x*yEnd Function运行abc后，立即窗口中显示的内容是oA105B1040C205D
204020、有以下程序:For i=1To20step2x=0For j=i To20step3x=x+1Next jNext iDebug.Print x程序程序后，立即窗口中显示的是A1B7C17D400
二、填空题
1、ACCESS数据库中的字节Byte数值类型在数据库中占【1】字节
2、下列程序段的功能是求1到100的累加和请在空白处填入适当的语句，使程序完成的功能Dim s AsInteger,m AsIntegers=0m=1Do While【2】s=s+mm=m+1Loop
3、运行下列程序，输入如下两行:Hi,I amhere.那么，在弹出的消息框中的显示结果是【3】Dim abcAs String,sum AsStringsum=Doabc=InputBox输入abc”If Rightabc,1=Then ExitDosum=sum+abcLoopMsgBox sum
4、以下程序运行后，在立即窗口中显示的是【4】For i=1To4x=3For j=1To3For k=1To2x=x+3Next kNextjNextiDebug.Print x
5、有以下程序Dim yAs Integery=0Doy=InputBoxn y=nIfyMod10+Int y/10=10Then Debug.Print y;Loop Untily=0End Sub程序运行后，依次输入
10、
37、
50、
55、
64、
20、
28、
19、-
19、0,立即窗口上输出的结果是【5】
6、模块中有以下过程Private Subqq0Dim xAsInteger,yAsIntegerx=12:y=32Call Procx,y Debug.Print x;yEnd SubPublicSub Procn AsInteger,By Vaim AsIntegern=n Mod10m=m Mod10EndSub运行qq子过程后，立即窗口上输出的结果是【6】
7、以下程序运行后，消息框中输出的是【7】Dim a10,p3As IntegerFor i=l To10a i=i*iNext iFori=1To3p i=a i*iNext iFori=1To3k=k+pi*2Next iMsgBoxk
8、模块中有以下过程PrivateSubqq DimsAsIntegers=p1+p2+p3+p4debug.Print sEndSubPublicFunctionp nAsIntegerDimSum AsIntegerSum二0Fori=1To nSum=Sum+1Next iP二Sum。
个人认证
优秀文档
获得点赞 0
