VB+VBA期末考卷

_诚信应考考出水平考出风格___浙江大学城市学院__2013—2014学年第二学期期末考试答题卷__《》_VB程序设计基础与VBA应用：_.名….开课单位：计算分院；考试形式：闭卷；考试时间：2014年6月23日姓…_…所需时间：120分钟_…__…题序一二三四总分_…__…得分_订_评卷人_.…_…_……得分一．单选题(本大题共30题，每题1分，共30分。)：…号…题号12345678910……学……_……_……_题号11121314151617181920_装…_.…_……_…_…_……题号21222324252627282930_…_…_……：…级………得分二．程序匹配与填空题(本大题共2题10空，每空2分，共20分。)班……_……题号12345_…_…_……_…_…(6)._…线_…(7)._…(8).__…(9)._…_(10)._…_…得分三．程序阅读题(本大题共5题，每题4分，共20分。)：_…业…第1题:第2题:专…______：_级年第3题:第4题:第5题:得分四．程序设计题(本大题共3题，每题10分，共30分。)第1题：.SubForm_Click()EndSub第2题：.Functionfact()AsLongEndFunctionPrivateSubForm_Click()EndSub第3题：.Subtongji()EndSub浙江大学城市学院…_…2013—2014学年第二学期期末考试试卷_…_…_…《VB程序设计基础与VBA应用》_…_…_…_开课单位：计算分院；考试形式：闭卷；考试时间：2013年6月23日_…_…_所需时间：120分钟：_……名一、单选题（30%，每小题1分）姓……1.改变控件在窗体中的水平位置应修改该控件的属性。_…_…A.TopB.Left_…_C.WidthD.Right_…_…2.函数Int(Abs(99-100)/2)的值为。_…_…A.1B.0：_线C.”1”D.”0”号.…3.假定flge是逻辑型变量，下面赋值语句中不正确的是。学…A.flge=’True’B.flge=”True”_…_…C.flge=0D.flge=3<4_…_语句的执行结果是。_…4.Print”5*5”_…_订A.5*5B.”5*5”__….C.25D.出现错误提示_…_5.整型变量X占字节内存容量。：_…级…A.2B.4班……C.6D.8__…6.数学式(xy+5)1/3写成VB表达式是。_装_.A.(x*y+5)^1/3B.(xy+5)^(1/3)_…._…C.(x*y+5)^(1\3)D.(x*y+5)^(1/3)__…7.取字符串Ax从第1个非空格符开始的连续5个字符，写作表达式。_…_…A.Mid(Ax,1,5)B.Mid(Trim(Ax),5)__…C.Left(Ax,5)D.Left(Trim(Ax),5)_…_…8.在SelectCaseA的语句中，判断A是否大于等于10小于等于20的是。：…业…A．CaseA>=10AndA=<20B．Case10To20专…C．CaseIs10To20D．CaseIs>=10AndIs=<20_…_…9.VB中用来完成一定的操作或实现一定功能的特殊函数称为。_…_A．事件B．方法_…_…_C．属性D．过程_…：_…10.Function过程有别于Sub过程的最主要特点是。…级A.Function有形参而Sub没有年………B.Function有实参而Sub没有C.Function可数值运算而Sub不能D.Function要返回函数值而Sub没有11.若某过程声明为Subaa(nAsInteger)，则以下调用正确的是。A.CallaayB.Callaa()C.aayD.z=aa(y)12.不论何种控件，共同具有的是属性。A.TextB.ForeColorC.NameD.Caption13.“宏”录制完成后，可以使用下列哪种方法来执行。A.通过“菜单”找到宏名进行执行B.指定给按钮进行执行C.将录制的宏指定一快捷键进行执行D.以上都可以14.进入VBA界面，可以使用下列哪个快捷键。A.CTRL+F11B.SHIFT+F11C.ALT+F11D.F1115.VB编程环境和VBA编程环境有相似处也有不同处，下列叙述不正确的是。A.VB和VBA都有工程B.VB和VBA都有窗体C.VB和VBA的程序都能独立运行D.VB和VBA都有MATCH_ word word文档格式规范word作业纸小票打印word模板word简历模板免费word简历 _1713534917994_0模块16.函数Int(46*Rnd)+5产生范围内的正整数？A．[0,50]B．[0,49]C．[5,49]D．[5,50]17.要判断在文本框中是否按了Enter键，应在文本框的事件中判断。A．ChangeB．KeyDownC．ClickD．KeyPress18.设置EXCEL某个区域的内部颜色，需设置的Color属性。A.ForeColorB.BackColorC.InteriorD.Inside19.若变量i的初值为9，则下列循环语句的循环次数为次。DoWhilei<=21i=i+3LoopA．6次B．4次C．5次D．3次20.Excel-VBA有多达100个以上的对象，这些对象构建了对象模型。以下对象哪个对象所处的层次最高？A．ApplicationB．WorkbooksC．WorkSheetsD．Range21.以下函数输出的结果为数值型。A．ASCB．StringC．FormatD．InputBox22.在Form2中引用Form1中的全局变量x，写作。A.xB.Form1.xC.Form2.xD.Form1_Public.x23.以下叙述中错误的是。A.事件过程可以像通用过程一样由用户定义过程名B.Sub过程中不能嵌套定义Sub过程C.Sub过程中可以嵌套调用Sub过程D.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型24.下列程序段的执行结果是。n=1j=1DoWhilej<=4n=n*jPrintn;j=j+1LoopA．1234B．12624C．2468D．1471125.下面程序段运行后，x的值是。DimxAsInteger,yAsIntegery=-2x=y=-1A．0B.-1C.FalseD.不确定26.下列关于MsgBox函数的叙述中，不正确的是。A．函数调用后返回值为数值型B．可以指定消息框的默认按钮C．可以省略任何参数D．可以设定消息框的指定图标27.窗体上有一个命令按钮Command1，编写如下事件过程：Functionfun(xAsInteger)Staticzy=y+1z=z+1fun=x+y+zEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=1Fori=1To2Printfun(x);NextiEndSub运行时，单击命令按钮，窗体上将显示。A．33B．34C．11D．4428.下列表达式的运算结果中，值最小的是。A．6Mod5B．5\6C．5Mod6D．5/629.在VB的“声明”段有语句OptionBase1，那么用语句Dima(-1To2,3,4)声明的数组a包含的元素个数为。A．48B．36C．80D．6030.以下程序段用于从键盘上输入一个字符串，在窗体上反向显示其内容（如输入“abcd”，显示“dcba”）。PrivateSubCommand1_Click()Dimi%,n%,s$,c$c=””s=InputBox(“请读入一个字符串：”)Fori=1Tonc=NextiPrintcEndSub以上程序段空缺处应分别填写。A．n=Left(s)和Mid(s,i,1)+cB．n=Len(s)和c+Mid(s,i,1)C．n=Len(s)和c+Mid(s,n,i)D．n=Len(s)和Mid(s,i,1)+c二、程序匹配与填空题（20%，每空2分）【说明】本大题有二小题，第一题有5条语句需要匹配，待匹配的语句写在程序的后面；第二题有5个空需要填写。1．产生10个[30，50]的随机整数，并按从小到大的顺序打印出来，要求调用Swap子过程实现二个数的交换。【程序】PrivateSubSwap(ByRefaAsInteger,ByRefbAsInteger)DimtempAsIntegertemp=a______(1)____________(2)______EndSubPrivateSubForm_Click()Dima(10)AsIntegerDimiAsInteger,jAsIntegerFori=1To10a(i)=Int(Rnd*21)+30NextiFori=1To9Forj=i+1To10Ifa(i)>a(j)Then______(3)______EndIfNextj______(4)______Nexti______(5)______EndSub(1)b=temp(2)Printa(i);(3)a=b(4)printa(10)(5)CallSwap(a(i),a(j))2．设计列表框与工作表交互的程序，如下图所示。单击“导入数据”按钮将Sheet1表中第一列数据导入列表框，单击“添加”按钮可以把选中的单元格数据加入列表框，单击“删除”，将删除列表框中的指定项，单击“保存”，将列表框中的数据保存到工作表第二列中。【程序】PrivateSubWorkbook_Open()UserForm1.Show0EndSubPrivateSubCommandButton1_Click()’导入数据Fori=1To10ListBox1.AddItem______(6)______NextiEndSubPrivateSubCommandButton2_Click()’插入ListBox1.______(7)______SelectionEndSubPrivateSubCommandButton3_Click()’删除______(8)______ListBox1.ListIndexEndSubPrivateSubCommandButton4_Click()’保存Fori=1ToListBox1.ListCount______(9)______=ListBox1.List(i-1)______(10)______EndSub三、程序阅读题（20%，每小题4分）1．下列程序运行时，单击窗体后，请写出窗体上显示的结果。【程序】PrivateSubForm_Click()DimxAsString,yAsString,dAsIntegerDimiAsInteger,nAsIntegerx="ZUCC"y=x+":"d=Len(x)Fori=dTo1Step-1y=y+Mid(x,i,1)NextiPrintyEndSub2．下列程序运行时，单击窗体后，请写出窗体上显示的结果。【程序】PrivateSubForm_Click()Dima(100)AsInteger,iAsInteger,nAsIntegern=5a(1)=1:a(2)=3:a(3)=2:a(4)=9:a(5)=4DoWhilen>1Fori=1Ton-1a(i)=a(i+1)-a(i)NextiFori=1TonPrinta(i);NextiPrintn=n-1LoopEndSub3．阅读下列程序，单击命令按钮时，写出窗体显示的结果。【程序】PrivateFunctionf(mAsInteger,nAsInteger)AsIntegerf=0DoWhilem>nf=f+mm=m-1LoopEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsIntegera=5b=3Printa+bPrintf(a,b)Printb+aPrintf(a+b,a)EndSub4．以下程序运行后，在文本框Text1中依次按下列按键："1"、"2"、"+"、"3"、"4"、"-"、"5"、"6"、<回车键>分别写出文本框中和窗体上的输出结果（上行中“、”号是间隔符，不输入；<回车键>就是Enter键）。【程序】DimxAsStringPrivateSubForm_Load()Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenPrintxElseIfKeyAsciiAsc("9")ThenPrintText1.Textx=x+Chr(KeyAscii)KeyAscii=0EndIfEndIfEndSub5．执行以下“宏”，写出输入整数5后的结果。【程序】Subabc()DimiAsInteger,jAsInteger,nAsIntegern=InputBox("行数")Range("B1")=1Fori=2TonForj=2Toi+1Cells(i,j)=Cells(i-1,j-1)+Cells(i-1,j)NextjNextiEndSub四、程序设计题（30%，每小题10分）说明：以下程序的相关过程/事件过程格式在答题卷上已列出，无需重写或另写。1．在Form_Click()事件中编程。以每行5个的形式输出上个世纪的所有闰年n。（说明：上个世纪的年份是从1900到1999年，闰年的条件是该年份能被4整除但不被100整除或者能被400整除）2．在Form_Click()事件中输入正整数n，计算并输出下列表达式s的值。要求编写求阶乘的自定义函数fact(n)，在计算表达式s中调用fact函数计算阶乘。3．在EXCEL的工作表Sheet1中有一批数据，将其中超过平均分的数据依次存入工作表Sheet2的A列，程序写在tongji过程中。