07759visual basic程序设计2011年10月试卷

07759#VisualBasic程序设计试题第7页共7页浙江省2011年10月高等教育自学考试VisualBasic程序设计试题课程代码：07759一、单项选择题(本大题共10小题，每小题2分，共20分)在每小题列出的四个备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内。错选、多选或未选均无分。1.工程文件的扩展名为()A..frx B..basC..vbp D..frm2.下列是正确的日期型常量的是()A.“8/8/2008” B.8/8/2008C.#8/8/2008# D.{8/8/2008}3.设N是一个整数变量，下列语句中可以正确声明一个动态数组的语句是()A.DimA(N)AsInteger B.DimA()AsIntegerC.DimA(,)AsInteger D.DimA(1ToN)AsInteger4.判断点P（x1,y1）是否在圆内（圆的轨迹方程为：x2+y2=9）的表达式为()A.x1<3Andy1<3 B.-3<x1<3And-3<y1<3C.x1*x1+y1*y1=9 D.x1*x1+y1*y1<95.能够获得一个文本框中被选取文本的内容的属性是()A.Text B.SelLengthC.SelText D.SelStart6.在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是()A.Picture1.Picture=″mypic.jpg″ B.Picture1.Image=″mypic.jpg″C.Picture1.Picture=LoadPicture(″mypic.jpg″) D.Picture1.LoadPicture(″mypic.jpg″)7.将图片框控件下列的哪个属性设置为True时，可使图片框控件根据在其内显示的图片调整其大小()A.AutoSize B.StretchC.Size D.Picture8.输入对话框InputBox的返回值类型是()A.字符串 B.整数C.逻辑型 D.浮点数9.执行语句“Print#1,”John”,90,80”后，相应的文件被写入的内容是()A.John,90,80 B.John9080C.“John”,90,80 D.“John”908010.为将相应的数据绑定控件的当前值保存到数据库中应执行数据控件的方法是()A.UpdateControls B.UpdateRecordC.Refresh D.AddNew二、填空题(本大题共10小题，每小题2分，共20分)请在每小题的空格中填上正确答案。错填、不填均无分。1.在面向对象程序设计中，对象是某种类的一个具体_________。2.VisualBasic应用程序通常由三种模块组成，即窗体模块、类模块和_________。3.在VisualBasic中，根据变量的作用域不同，变量可以分为过程级变量、全局级变量和_________变量。4.表达式16/2-2*7^3Mod9的值是_________。5.用随机函数产生［1，100］闭区间范围内整数的表达式是_________。6.让控件隐藏起来，处于不可见状态，可修改其_________属性。7.通用对话框CommonDialog以保存文件对话框的形式显示时，应调用的方法是_________。8.实现在窗体Form1的（X，Y）坐标点画一个红色的点的语句是_________。9.如果过程的某个参数需要按值传递，则定义过程时，需要在该参数前加关键字_________。10.可以从文件的当前位置起至换行符前的所有字符读入到字符串变量的语句是_________。三、程序阅读题(本大题共4小题，每小题5分，共20分)阅读下列程序，将运行时的输出结果写在每小题的程序代码下。1.下列程序段运行时，写出窗体上的输出结果。DimAAsString,BAsStringDimEAsString,FAsStringA=″abcd″B=″bcde″E=Right(A,3)F=Mid(B,2,3)IfE<FThenPrintE+FElsePrintF+EEndIf2.下列程序段运行时，从键盘依次输入2、4两个整数，写出窗体上的输出结果。DimiAsInteger,jAsInteger,aAsInteger,nAsIntegerDimsAsLong,tAsLonga=CInt(InputBox(″请输入a:″))n=CInt(InputBox(″请输入n:″))s=0:i=1DoWhilei<=nt=0Forj=1Toit=t*10+aNextjs=s+ti=i+1LoopPrints3.下列程序段运行时，从键盘依次输入14、23、5、9、30，写出窗体上的输出结果。Dima(5)AsIntegerDimiAsInteger,jAsInteger,tAsIntegerFori=1To5a(i)=Val(InputBox(“请输入一个整数：”))NextFori=1To4Forj=i+1To5Ifa(j)>a(i)Thent=a(j)a(j)=a(i)a(i)=tEndIfNextjNextiFori=1To5Printa(i)Next4.下列程序段运行时单击窗体，写出窗体上的输出结果。PrivateSubForm_Click()Test2EndSubPrivateSubTest(ByValxAsInteger)x=x*2+1Ifx<6ThenCallTest(x)EndIfx=x*2+1PrintxEndSub四、程序填空选择题(本大题共10小题，每小题2分，共20分)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。1.【程序说明】将图片框控件Picture1的宽度设置为与高度相同（正方形）；将图片框坐标系的原点设置到图片框的中心位置；在图片框中绘制5个边框颜色为蓝色的同心圆，第一个半径为r、第二个半径为2r、……，第5个半径为5r，第5个圆也是图片框的内接圆。PrivateSubForm_Activate()DimrAsSingle,RtAsSingle,iasIntegerPicture1.Width=Picture1.HeightPicture1.(1)_________Picture1.(2)_________=vbBluer=(3)_________Fori=1To5Rt=(4)_________(5)_________NextEndSub【供选择的答案】(1)A.Scale(0,0)-(1,1) B.Scale(-1,1)-(1,-1)C.Scale(0,0),(1,1) D.ScaleMode(-1,1)-(1,-1)(2)A.ForeColor B.FillColor C.BackColor D.Color(3)A.1/5 B.1/10C.1/2 D.1(4)A.1 B.rC.i D.i*r(5)A.Circle(0,0),r B.Circle(0,0),RtC.Picture1.Circle(0,0),r D.Picture1.Circle(0,0),Rt2.【程序说明】利用一个定时器Timer1、一个形状控件Shape1制作一个小球平移演示。将Shape1设置成一个红色的小球。当鼠标点击窗体时小球以每0.1秒50缇在窗体从左向右平移。当小球全部移出窗体右边框时，又从窗体左边框逐渐平移进入，如此循环往复。当再次点击窗体时，小球暂停平移；再点击窗体，小球继续平移。PrivateSubForm_Load()Shape1.Width=Shape1.HeightShape1.Shape=3‘设置Shape1的外观为圆形Shape1.(6)_________=vbRedTimer1.Interval=(7)_________Timer1.Enabled=FalseEndSubPrivateSubForm_Click()Timer1.Enabled=(8)_________EndSubPrivateSubTimer1_Timer()IfShape1.Left<Form1.WidthThenShape1.(9)_________ElseShape1.Left=(10)_________EndIfEndSub【供选择的答案】(6)A.BackStyle B.FillStyleC.FillColor D.DrawStyle(7)A.0.1 B.1C.10 D.100(8)A.Timer1.Enable=TrueB.Timer1.Enable=FalseC.Timer1.Enable=NotTimer1.EnableD.Timer1.Enable=!Timer1.Enable(9)A.Left=Shape1.Left+50 B.Left=Shape1.Left-50C.Top=Shape1.Top+50 D.Top=Shape1.Top-50(10)A.Shape1.Width B.-Shape1.WidthC.0 D.Form1.Width五、程序设计题(本大题共2小题，每小题10分，共20分)按照下列要求编写程序。1.编写一个判断一个自然数是否为完数的Function过程，返回类型为Boolean类型。当一个自然数是完数，Function过程返回True，否则返回False。（说明：所谓完数是指一个自然数除它本身之外的所有因子和等于它本身，例如6=1+2+3，6是完数，12<>1+2+3+4+6，12不