access程序设计基础 第6章模块与VBA程序设计作业学习资料

PAGEPAGE1程序设计基础VBA作业一、选择题1、将一个数转换成相应字符串的函数是（）。 A）Str B）String C）Asc D）Chr2、VBA中定义符号常量使用的关键字是（）。 A）Const B）Dim C）Public D）Static3、下列表达式计算结果为日期类型的是（）。 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=15、由“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）Switch8、要将一个数字字符串转换成对应的数值，应使用的函数是（）。 A）Asc B）Single C）Space D）Val9、下列变量名中，合法的是（）。 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的变量NewArray11、运行下列程序段，结果是（）。Form=10To1Step0k=k+3Nextm A）循环体不执行即结束循环 B）循环体执行一次后结束循环 C）形成死循环 D）出现语法错误12、可以用InputBox函数产生“输入对话框”执行语句：st=InputBox("请输入字符串","字符串对话框","aaaa")当用户输入“bbbb”，并按OK按钮后，变量st的内容是（）。 A）aaaa B）请输入字符串 C）字符串对话框 D）bbbb13、如果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=1Fori=1To6step3result=result*iNextiMsgBoxresult程序运行后消息框的输出内容是（）。 A）1 B）4 C）15 15、若在模块AA中，有如下两个过程：SubFuntcionqq(xAssingle,ByValyAssingle)t=xx=t/yy=tModyEndFunctionPrivateSubtt（）DimaAssingleDimbAssinglea=5:b=4Callqq(a,b)MsgBoxa&Chr(10)+Chr(13)&bEndSub运行tt子过程后消息框中有两行输出，内容分别为：（）。 A）1和1 B）1.25和1 C）1.25和4 16、以下程序运行后，在立即窗口中显示的是（）。DimiAsInteger,jAsIntegerFori=2To10Forj=2Toi/2IfiModj=0thenExitForNextjIfj>sqr(i)ThenDebug.PrintiNexti A）1579 B）468 C）3579 D）235717、运行下列程序，其结果是（）。f0=1：f1=1：k=1DoWhilek<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox"f="&f A）f=5 B）f=7 C）f=8 D）f=18、有如下事件程序，运行该程序后输出结果是（）。DimxAsInteger,yAsIntegerx=1：y=0DoUntily<=25y=y+x*xx=x+1LoopMsgBox"x="&x&"，y="&y A）x=1，y=0 B）x=4，y=25 C）x=5,y=30 D）输出其他结果19、模块中有以下子过程：PrivateSubabc()DimyAsIntegerStaticxAsIntegerx=10y=5y=f(x)Debug.Printx;yEndSubPublicFunctionf(xAsInteger)AsIntegerDimyAsIntegerx=20y=2f=x*yEndFunction运行abc后，立即窗口中显示的内容是（）。 A）105 B）1040 C）205 D）2020、有以下程序：Fori=1To20step2x=0Forj=iTo20step3x=x+1NextjNextiDebug.Printx程序程序后，立即窗口中显示的是（）。 A）1 B）7 C）17 二、填空题1、ACCESS数据库中的字节Byte数值类型在数据库中占【1】字节。2、下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句，使程序完成的功能：DimsAsInteger,mAsIntegers=0m=1DoWhile【2】s=s+mm=m+1Loop3、运行下列程序，输入如下两行：Hi，Iamhere．那么，在弹出的消息框中的显示结果是【3】。DimabcAsString,sumAsStringsum=""Doabc=InputBox("输入abc")IfRight(abc,1)="."ThenExitDosum=sum+abcLoopMsgBoxsum4、以下程序运行后，在立即窗口中显示的是【4】。Fori=1To4x=3Forj=1To3Fork=1To2x=x+3NextkNextjNextiDebug.Printx5、有以下程序：DimyAsIntegery=0Doy=InputBox("y=")If(yMod10)+Int(y/10)=10ThenDebug.Printy;LoopUntily=0EndSub程序运行后，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是【5】。6、模块中有以下过程：PrivateSubqq（）DimxAsInteger,yAsIntegerx=12:y=32CallProc(x,y)Debug.Printx;yEndSubPublicSubProc(nAsInteger,ByValmAsInteger)n=nMod10m=mMod10EndSub运行qq子过程后，立即窗口上输出的结果是【6】。7、以下程序运行后，消息框中输出的是【7】。Dima(10),p(3)AsIntegerk=5Fori=1To10a(i)=i*iNextiFori=1To3p(i)=a(i*i)NextiFori=1To3k=k+p(i)*2NextiMsgBoxk8、模块中有以下过程：PrivateSubqq（）DimsAsIntegers=p(1)+p(2)+p(3)+p(4)debug.PrintsEndSubPublicFunctionp(nAsInteger)DimSumAsIntegerSum=0Fori=1TonSum=Sum+1NextiP=SumEndFunctionqq程序运行后，立即窗口中的输出的结果是【8】。9、某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。Subabc（）Dimmark!,aver!,i%,max1!,min1!aver=0Fori=1To7mark=InputBox("请输入第"&i&"位评为的打分")Ifi=1Then