201204VB程序设计与VBA应用城市学院期中考卷

第1页共10页诚信应考考出水平考出风格浙江大学城市学院2011—2012学年第二学期期中考试答卷《VB程序设计基础与VBA应用》开课单位：计算分院；考试形式：闭卷；考试时间：2012年4月15日所需时间：120分钟题序一二三四总分得分评卷人一．单选题(本大题共30题，每题1分，共30分。)题号12345678910题号11121314151617181920题号21222324252627282930二．程序填空题(本大题共2题8空，每空2分，共16分。)(1)(2)(3)(4)(5)(6)(7)(8)得分得分年级：_____________专业：___________________班级：________________学号：_______________姓名：__________________第2页共10页三．程序阅读题(本大题共6题，每题4分，共24分。)第1题:第2题:第3题:第4题:第5题:第6题:四．程序设计题(本大题共3题，每题10分，共30分。)第1题：.得分得分第3页共10页第2题：.第4页共10页第3题：.第5页共10页浙江大学城市学院2011—2012学年第二学期期中考试试卷《VB程序设计基础与VBA应用》开课单位：计算分院；考试形式：闭卷；考试时间：2012年4月15日所需时间：120分钟一、单选题（30%，每小题1分）1．数学式子sin25°写成VB表达式是。A．Sin25B．Sin(25)C．Sin(25*3.14/180)D．Sin(25°)2．下列叙述中，错误的是。A．事件可以由用户触发，也可以由系统触发B．VB应用程序只能以解释方式执行C．保存VB程序时，应分别保存窗体及工程文件D．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件3．哪一条语句执行后将会删除文本框Text1中的文本？A．Text1.Text=””B．Text1.SelText=””C．Text1.ClearD．Text1.SelText.Clear4．假定flge是逻辑型变量，下面赋值语句中不正确的是。A．flge=’True’B．flge=”True”C．flge=0D．flge=345．不正确的VB常量是。A．123!B．&HABC&C．&O18D．#1-1-03#6．声明符号常量应该用关键字。A．StaticB．ConstC．PrivateD．Variant7．要得到[1，50]之间的随机整数，可用式子。A．Int(50*Rnd)B．Int(50*Rnd)+1C．Int(49*Rnd)D．Int(49*Rnd)+18．下面叙述正确的是。A．Spc函数既能用于Print方法中，也能用于表达式B．Space函数既能用于Print方法中，也能用于表达式C．Spc函数与Space函数均生成空格，没有区别D．以上说法均不对9．设S=”中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为。年级：_____________专业：___________________班级：________________学号：_______________姓名：__________________第6页共10页A．”中华民国”B．”中国人民”C．”中共人民”D．”人民共和”10．x是Integer类型变量，无论x取何值，字符串表达式的长度为10。A．Space(10-Len(Str(x))+xB．Space(10-Len(Trim(Str(x))))+xC．Space(10-Len(x))&xD．Space(10-Len(Trim(Str(x))))&x11．表示x大于0且小于10的表达式是。A．0x10B．x0Andx10C．x0Orx10D．x0:x1012．由Fork=35To0Step3：Nextk循环语句控制的循环次数是。A．0B．12C．1D．1113．在SelectCaseA的语句中，判断A是否大于等于10小于等于20的是。A．CaseA=10AndA=20B．Case10To20C．CaseIs10To20D．CaseIs=10AndIs=2014．下面程序运行后的结果是。m=0Fori=1To10m=m+ii=i+1NextiPrintm,iA．2510B．2511C．1611D．死循环15．以下条件语句错误的是。A．IfXThenY=Y+1B．IfX=0ThenY=0C．IfXYThenPrintYEndIfD．IfX0ThenY=1:PrintY16．运行下列程序段，其中“n=n+1”语句被执行的次数是。Dimm%,n%Form=1To3Forn=1To6Step2n=n+1PrintnNextnNextmA．3B．6C．9D．1817．Dimx(3,4To4)定义数组后，x数组可存放个元素。A．4B．3C．8D．6第7页共10页18．下列几种定义数组的方法，正确的是。A．n=5B．Dima(10)AsIntegerDima(1ton)AsIntegerReDima(1to12)C．Dima()AsSingleD．Dima()AsIntegerReDima(3,4)AsIntegern=5ReDima(1Ton)19．定义数组Dima(3,4)后，使用，将出现下标越界错误。A．a(1,1)B．a(3,0)C．a(4,4)D．a(3,4)20--30．以下有11条已经写好的语句，但顺序不对。重新排列这些语句，使之成为程序。程序的功能是输入一个正整数n，判断它是否为素数。A．EndIfB．EndSubC．PrivateSubForm_Click()D．Fori=2Ton-1E．NextiF．Ifin-1ThenG．n=Val(InputBox(inputanumber))H．Printn;是素数I．Printn;不是素数J．IfnModi=0ThenExitForK．Else二、程序填空题（16%，每空2分）请在以下两题的__(1)__、…、__(8)__处填入适当的内容，将程序补充完整。1．【程序说明】以下程序运行后，在文本框中输入字符串“A123b45C_de”，窗体上输出“12345”。PrivateSubForm_Click()Dimstr1AsString,str2AsString,str3AsStringDimiAsIntegerstr1=Text1.Textstr3=n=____(1)____Fori=1Tonstr2=____(2)____Ifstr2=0Andstr2=9Thenstr3=str3+____(3)____EndIf____(4)____Printstr3EndSub第8页共10页2．【程序说明】建立一个4行5列的二维数组，数组的前4列由输入对话框输入，第5列为同一行的前4个数的平均值，然后将这个数组显示在窗体Form1上。PrivateSubForm_Click()Dim____(5)____asSingleDimiAsInteger,jAsInteger,sasSingleFori=1To4____(6)____Forj=1to4a(i,j)=InputBox(“a(“&i&”,“&j&”)=”)s=s+a(i,j)Nextj____(7)____NextiFori=1to4Forj=1to5Printa(i,j);Nextj____(8)____NextiEndSub三、程序阅读题（24%，每小题4分）1．阅读下列程序，程序运行后，单击窗体，写出窗体上输出结果。【程序】PrivateSubForm_Click()Dimm%,n%Form=1To4Forn=1TomStep2Printn;NextnPrintm+nNextmEndSub2．阅读下列程序，程序运行后，单击窗体，写出窗体上输出结果。【程序】PrivateSubForm_Click()Dima(6)AsIntegerDimiAsInteger,jAsIntegerFori=1To6第9页共10页a(i)=2*i-1NextiFori=1Toa(4)j=j+1NextiPrintjEndSub3．下面程序运行时，单击窗体后，写出窗体上输出结果。【程序】PrivateSubForm_Click()DimxAsString,yAsString,dAsIntegerDimiAsInteger,nAsIntegerx=abcdefghijkln=Len(x)y=i=1DoWhilei=ny=y+Chr(Asc(Mid(x,i,1))+3)i=i+3LoopPrinty=;yEndSub4．下列程序运行后，单击命令按钮后输出的结果是什么？【程序】PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegern=5Fori=nTo1Step-1PrintTab(n-i+1);Forj=1To2*i-1Step2PrintCStr(i);NextjPrintNextiEndSub5．下面程序运行时，在文本框中输入86、“回车键”、Abc、“回车键”、73、“回车键”和a3、“回车键”，写出窗体上显示的结果。【程序】第10页共10页PrivateSubForm_Load()Text1.Text=EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAsciiAsc(0)OrKeyAsciiAsc(9)ThenIfKeyAscii=13ThenPrintText1.TextText1.SelStart=0Text1.SelLength=Len(Text1.Text)ElseKeyAscii=0EndIfEndIfEndSub6．下面程序运行时，单击窗体后在输入对话框中输入138，写出窗体上程序运行结果。【程序】PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=Val(InputBox())y=0DoWhilex0y=y+xMod10x=x\10LoopPrintyEndSub四、程序设计题（30%，每小题10分）1．编写计算下列函数的程序，结果在窗体上打印出来。自变量x、y的值用InputBox函数输入。其他00,00,062),(yxyxyxyxyxf2．利用格里高利公式，求的近似值，精度要求到最后一项的绝对值小于10－6。71-5131-14＝3．随机产生50个30~100之间的正整数，将它们中被3整除的数按从小到大每行5个输出在窗体上，代码编写在Form_Click事件过程中。