2010VB期末考试模拟卷

第1页（共5页）《VB程序设计》期末考试模拟试卷说明:（1）考生应将答案填写在答卷上，否则作无效处理；（2）考试时间为120分钟。试题一、判断题（每小题2分，共20分）说明：在以下提供的若干陈述中，逐一判断其正确与否，用A表示正确，用B表示错误。(1)事件是由VisualBasic预定义的对象能够识别的动作。(2)整型变量有Byte、Integer和Long类型3种。(3)在循环体内，循环变量的值不能被改变。(4)Sub过程名在过程中必须被赋值。(5)若VisualBasic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。(6)移动框架时框架内控件也随之移动，所以框架内控件的Left和Top属性值也随之改变。(7)使用单选钮控件数组时，它们响应同一个Click事件，由Index参数值来区分不同的按钮。(8)影像框的Stretch属性设置为True时，影像框的大小会根据显示的图片大小进行调整。(9)设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名称。(10)若要新建一个磁盘上的顺序文件，可用Output和Append方式打开文件。试题二、单选题（每小题2分，共20分）(11)将VB新建的“标准EXE”工程保存在磁盘上，至少会产生（11）文件。[A].frx和.frm[B].exe和.vbp[C].vbp和.frm[D].frm和.bas(12)Int(Rnd*100)表示的是（12）范围内的整数。[A][0，100][B][1，100][C][0，99][D][1，99](13)已知字符串变量x存放1234，表达式Val(&H+Left(x,2))的值是（13）。[A]0[B]&H12[C]12[D]18(14)在窗体Form1的一个事件过程中，不能用（14）来清除窗体上所绘制的图形。[A]Form1.Cls[B]Me.Cls[C]Form.Cls[D]Cls(15)由“Fori=1To25Step4”决定的循环结构被执行（15）次。[A]25[B]5[C]6[D]7(16)要使得驱动器列表框控件Drive1发生变化时目录列表框Dir1的路径与之保持一致，应编写（16）事件代码。[A]PrivateSubDrive1_Change()Drive1.Drive=Dir1.PathEndSub[C]PrivateSubDir1_Change()Drive1.Drive=Dir1.PathEndSub[B]PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub[D]PrivateSubDir1_Change()Dir1.Path=Drive1.DriveEndSub第2页（共5页）(17)选中复选框控件时，复选框的Value属性值为（17）。[A]1[B]0[C]True[D]False(18)将焦点主动设置到指定的控件或窗体上，应采用（18）方法。[A]SetDate[B]SetFocus[C]SetText[D]GetGata(19)将通用对话框控件以“打开文件”对话框方式打开，可选（19）方法。[A]ShowOpen[B]Action[C]Open[D]FileName(20)执行语句“Write#1,234;-34.56,Hi;Date”后，相应的文件内被写入（20）。[A]234,-34.56,Hi,#2004-06-11#[B]234;-34.56,Hi;#2004-06-11#[C]234,-34.56,Hi,2004-06-11[D]234-34.56Hi#2004-06-11#试题三、程序填空题（每空2分，共20分，）说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。程序1【程序说明】以下程序按下式计算y，x由键盘输入。Fuctionf(x)是计算y的自定义函数。5555log5sin1210xxxxxexxxyx【程序】PrivateSubCommand1_Click()DimxAsSingle,yAsSingle（21）（22）Printy=;yEndSubFunctionf(xAsSingle)AsSingleDimyasSingleIfx-5Theny=2*x-1ElseIfx=-5Andx=5Then（23）Else（24）EndIf（25）EndFunction【选项】(21)[A]InputBoxx=,x[B]InputBox(x=,x)[C]x=InputBox(x=)[D]y=InputBox(x=)(22)[A]callf(x)[B]y=f[C]y=f(x)[D]f(x)(23)[A]y=x*Sin(x)+e^x[B]y=x·Sin(x)+Exp(x)[C]y=x·Sin(x)+e^x[D]y=x*Sin(x)+Exp(x)第3页（共5页）(24)[A]y=Sqr(x-5)+Log(x)[B]y=(x-5)^1/2+Log(x)[C]y=(x-5)^1/2+Log(x)/Log(10)[D]y=Sqr(x-5)+Log(x)/Log(10)(25)[A]Printy[B]Printf[C]f=y[D]y=f程序2【程序说明】以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序排序并按每行10个显示在窗体上。再找出所有的个位数字与十位数字之和等于10的数。【程序】PrivateSubForm_Click()Dima(100)AsInteger,iAsInteger,jAsInteger,tAsInteger,xAsInteger,yAsIntegerFori=1To100a(i)=(26)NextiFori=1To99Forj=i+1To100Ifa(i)a(j)Then(27)EndIfNextjNextiFori=1To100Printa(i);(28)NextiFori=1To100x=(29)'取十位数字y=a(i)Mod10'取个位数字Ifx+y=10ThenPrinta(i)NextiEndSubPrivateSubSwap((30))AsIntegerDimTempAsIntegerTemp=X:X=Y:Y=TempEndSub【选项】(26)[A]Int(Rnd*90+10)[B]Int(Rnd*100)[C]Int(Rnd*99)[D]10To99(27)[A]CallSwapa(i),a(j)[B]CallSwap(a(i),a(j))[C]Temp=Swap(a(j),a(i))[D]Swap(a(j),a(i))(28)[A]Ifi=10ThenPrint[B]Ifi=10*nThenPrint[C]Ifi\10=0ThenPrint[D]IfiMod10=0ThenPrint(29)[A]a(i)/10[B]a(i)\10[C]Int(a(i))/10[D]Fix(a(i))(30)[A]ByValXAsInteger,ByValYAsInteger[B]ByValXAsSingle,ByValYAsSingle[C]ByRefXAsInteger,ByRefYAsInteger[D]ByRefXAsSingle,ByRefYAsSingle第4页（共5页）试题四、程序阅读题（每小题5分，共20分）程序1、阅读下列程序，写出单击窗体后程序运行结果。PrivateSubForm_Click()DimaAsInteger,bAsIntegera=5:b=0DoUntila0b=b+aa=a-1Printa=;a,b=;bLoopEndSub程序2、已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置：HScroll1.Min=1:HScroll1.Max=10HScroll1.SmallChange=1:HScroll1.LargeChange=2:HScroll1.Value=5阅读以下程序，写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。PrivateSubHScroll1_Change()DimyAsIntegerIfHScroll1.ValueMod2=0Theny=y+HScroll1.ValueEndIfPrinty=;yEndSub程序3、写出程序运行后窗体上显示的结果。DimxAsIntegerPrivateSubform_load()Timer1.Interval=1000Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Callsub1(x)x=x*2+1Ifx9ThenTimer1.Enabled=FalseEndSubPublicSubsub1(nAsInteger)n=n+1Printn=;nEndSub程序4、画出单击命令按钮Command1后图片框Picture1中显示的图形。PrivateSubForm_Load()Picture1.Scale(-10,10)-(10,-10)EndSubPrivateSubCommand1_Click()Picture1.Line(-5,5)-(5,-5)第5页（共5页）Picture1.Line(-5,-5)-(5,5)Picture1.Circle(0,0),5EndSub试题五、程序设计题（每小题10分，共20分）1.编写程序，要求单击窗体后，从键盘上输入一个n，计算1+22+32+……+n2的值并在标签Label1上显示计算结果。2.程序界面如右图示。要求程序运行后，在List1中显示10个∈[1，100]之间的随机整数。在单击命令按钮Command1后，将大于或等于50的数移到List2中显示，List1中仅留下小于50的数。