2001年上海普通高校非计算机专业学生VB试题

.2001年上海一般高校非计算机专业学生计算机等级考试一试卷二级（VisualBasic程序设计）（本考试采纳上机形式，考试时间为150分钟）一、单项选择题（15分，每题1分）1.VisualBasic是一种面向对象的程序设计语言，不是面向对象系统所包含的三因素。A.变量B.事件C.属性D.方法2.VisualBasic的一个应用程序起码包含一个文件，该文件存贮窗体上使用的全部控件对象和相关的、对象相应的过程和代码。A.模块、方法、事件、程序B.窗体、属性、事件、程序C.窗体、程序、属性、事件D.窗体、属性、事件、模块3.表达式"123"&"100"&200的值是。A.123300B.423C."123100200"D.1231002004.设CurrentX=200，CurrentY=400，履行指令“Line(100,250)-(350,500),,B”后，CurrentX=。A.100B.200C.350D.5505.依据VisualBasic默认规定，数组申明Dima(2,2,5)共有个元素。A.9B.20C.45D.546.申明一个长度为10个字节的字符串变量mstr，应使用。A.DimmstrAs10B.Dimmstr(10)AsStringC.DimmstrAsString*10D.DimmstrAsString(10)数据种类中的变体型能够包含数值型、日期型、对象型和字符型等数据，别的，它还能够包含4个特别的数据：和Nothing。A.Error、Object、NullB.Error、Empty、ObjectC.Empty、Object、TypeD.Empty、Error、Null8.从循环体DoWhileLoop中退出，持续履行循环体后边的命令，应使用。A.ExitB.ExitDoC.ExitDoWhileD.ExitLoop9.以下命令中可实现对二进制文件的读操作。A.ReadB.GetC.LineInputD.Put10.在VisualBasic中要将一个正在运转的窗体隐含在内存中，应该使用语句。A.ShowB.HideC.LoadD.UnLoad11.设置窗体上的控制菜单可经过属性来达成。A.ControlBoxB.MaxButtonC.MinButtonD.DrowMode12.假如组合框ComBo1中已有10项数据，应使用语句将数据“Mydata”插入到第5项。...A.ComBo1.AddItem"Mydata",5B.ComBo1.AddItem"Mydata",4C.ComBo1.Insert"Mydata",5D.ComBo1.Insert"Mydata",413.Timer控件可用于后台进度中，要使Timer事件每半秒钟触发一次，则需设置Interval属性为。B.5C.50D.50014.如有一个过程定义成PublicSubW1(ByValxAsInteger,yAsInteger)，调用该过程的正确形式是。A.CallW1(x,3)B.W1(x,3)C.CallW13,xD.W13,x15.代数式ab2÷(5c+d)的VisualBasic表达式是。A.a*b*b/5*c+dB.a×b×b/(5×c+d)C.a*b*b/(5*c+d)D.a*b^b/(5c+d)二、填空题（20分，每题2分）窗体上搁置了若干个文本框和复选按钮，当窗体装入后，要将焦点自动定位到复选按钮Check1上，则在设计时需要将Check1控件的属性设置为。2.当单击垂直转动条上的空白地区时，要使滑块的挪动量为50，则需经过属性来控制。3.当焦点进入文本框Text1时，要自动选定文本框内开始的5个字符，则需要经过代码Text1.SelStart=和来实现。4.选择对通用对话框的方法，可翻开颜色对话框。5.对于窗体上的菜单按钮，假如不一样意进行操作，应经过属性进行设置。6.对于正在使用的动向数组A( )，要增添一个单元，则应使用语句。7.格式输出函数Format(12.345,"###.##")的显示结果。8.绘制圆心坐标为（1000，200），半径为500的圆，其代码为：。9.在VisualBasic中创立新对象的重点字是。10.为了使文件列表框File1和目录列表框Dir1之间能产生同步成效，一定在事件过程中加入语句。三、程序填空（20分，每小格2分）1.下边程序按每行10个数打印出30个介于-300到300间无重复的随机整数，并显示此中的最小值。数组b(30)寄存所产生的无重复的随机整数，运转结果图1所示。图1PrivateSubCommand1_Click( )Dimb(30),jAsInteger,kAsInteger,yAsInteger,xAsSingle,minAsIntegerForj=1To30lb:x=RndIfx>0.5Theny=1Elsey=-1′控制正负数...b(j)=y*(1)k=1DoWhile(2)Ifb(j)=b(k)Then(3)′控制无重复k=k+1LoopPrintb(j);IfjMod(4)ThenPrint′控制每行10个数Nextjmin=b(1)Forj=1To30Ifb(j)<minThen(5)NextjPrintminEndSub2.下边的程序用于对9位的准考据号进行校验。参数mno寄存准考据号，mjy寄存产生的校验位，tag判断校验正确否，若校验正确tag置1，不然为0。产生校验位的算法为：取准考据号右侧的8位数之和对于9的模作为校验值，准考据号最左侧的一位为校验位。PublicSubfoe(ByValmnoAsString,mjyAsInteger,TagAsInteger)DimmsumAsInteger,mAsStringmsum=0(1)m=Mid(mno,j,1)msum=msum+Val(m)Nextjmjy=(2)If(3)ThenTag=1ElseTag=0EndIfEndSubCommand1_Click事件用于调用foe函数，对输入到文本框Text1的准考据号进行校验，假如校验正确，显示“正确”，不然显示“错误”，同时显示正确的校验码。PrivateSubCommand1_Click( )DimnnAsInteger,mtagAsIntegerIfLen(Text1)<>9OrNotIsNumeric(Text1)ThenMsgBox"非法数据，请从头输入！"Text1=""(4)ExitSubEndIfCallfoe(Text1,nn,mtag)IfmtagThen...Print"正确"Else(5)EndIfEndSub四、编程题（45分）翻开软盘根目录上的a1.vbp工程，增补程序，当单击命令按钮时可在文本框显示出100～200之间全部素数的个数，并将统计结果以随机文件形式存入A:\a1.dat文件中。（10分）编一个完好的程序，要求以下（35分）：（1）拜见图2、图3，在Form1窗体上增添列表框（供给计算机品牌信息）、文本框、命令按钮和2个框架，框架内各有2个单项选择按钮或复选按钮，并设置相应标题。用你的姓名成立一项菜单，包含两个子菜单项：分别为“窗体2”和“结束”，之间有分开线。在Form2窗体上搁置一个时钟控件和图形框，窗体的标题设置为你的准考据号。（8分）图2图32）当在Form1窗体的列表框和框架内选定了计算机的基本配置后，单击“确立”按钮，在文本框内分行显示目前所选择的信息。（7分）3）入选择“窗体2”菜单项时，翻开Form2窗体；当单击“结束”菜单项时，停止程序的运转。（5分）（4）在Form2窗体中成立可经过鼠标右键弹出的菜单（快捷菜单）。含有“装入图”、“产生圆”和“返回”三个菜单项。选择“装入图”菜单项，在图形框装入clouds.bmp图形文件；选择“产生圆”菜单项，在图形框内按每0.1秒频次随机产生色彩随机变化、半径最大为图形框宽度10%的圆；选择“返回”菜单项封闭Form2窗体，显示Form1窗体。（10分）5）在软盘根目录下将工程保留为A2.VBP、Form1窗体为A21.FRM、Form2窗体为A22.FRM，而且经过“文件|生成...exe”命令将工程生成A:＼A2.exe文件。（5分）2001年上海一般高校非计算机专业学生计算机等级考试一试卷二级（VisualBasic程序设计）参照答案...一、单项选择题1.A2.B3.C4.C5.D6.C7.D8.B9.B10.B11.A12.B13.D14.D15.C二、填空题1.TabIndex02.LargeChange3.0Text1.SelLength=5ShowColorEnabledReDimA(Ubound(A)+1)12.35Circle(1000,200),500New10.Dir1_ChangeFile1.path=Dir1.path三、程序填空（1）Int(Rnd*301)2）k<=j-13）GoTolb4）10=05）min=b(j)（1）Forj=2To92）msumMod93）mjy=Val(Left(mno,1))4）Text1.SetFocus5）Print"错误！",nn四、编程题1.窗体如图4所示：图4参照答案一：（依据原试卷供给的程序，增补完好。为便于比较，还增添了两个按钮过程）PrivateSubCommand1_Click( )DimMyRecordAsRecord′申明变量′增补程序Dimi,j,kAsInteger...k=0Fori=1000To2000Forj=2Toi-1IfiModj=0ThenGoTonextmNextjk=k+1nextm:NextiText1=kMyRecord.st=Label1MyRecord.sj=kOpenApp.Path+"\samp.txt"ForRandomAs#1Len=Len(MyRecord)Put#1,,MyRecordClose#1EndSub01编程2.VBP采纳的是参照答案二，比较简短合理参照答案一过于繁琐（用窗体变量i没有必需）装入图的方式不一样，方案一是用LoadPicture的方式，方案二是在窗体设计时将图装入另一图片框Picture2中。（程序参照答案一：1）Form1：DimiAsStringPrivateSubCommand1_Click( )Text1.Text=iIfOption1.Value=TrueThenText1.Text=Text1.Text&Chr(13)&"128MB"ElseIfOption2.Value=TrueThenText1.Text=Text1.Text&Chr(13)&"256MB"EndIfIfCheck1.Value=1ThenText1.Text=Text1.Text&Chr(13)&"音箱"EndIfIfCheck2.Value=1ThenText1.Text=Text1.Text&Chr(13)&"Modem"EndIfEndSubPrivateSubList1_Click( )i=List1.TextEndSubPrivateSubmntExit_Click( )EndEndSubPrivateSubmntWindows2_Click( )...Form1.HideLoadForm2Form2.ShowEndSub（2）Form2：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumntMain,2EndIfEndSubPrivateSubmntCircle_Click( )Timer1.Enabled=TrueEndSubPrivateSubmntLoad_Click( )Picture1.Picture=LoadPicture("a:＼clouds.bmp")EndSubPrivateSubmntReturn_Click( )Timer1.Enabled=FalseUnloadMeLoadForm1Form1.ShowEndSubPrivateSubTimer1_Timer( )DimCx,Cy,Limit,RadiusPicture1.ScaleMode=3Picture1.AutoRedraw=TruePicture1.Width=Picture1.HeightCx=Rnd*Picture1.ScaleWidthCy=Rnd*Picture1.ScaleHeightLimit=Picture1.ScaleWidth/10Radius=Rnd*LimitPicture1.Circle(Cx,Cy),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)EndSub参照答案二：（1）Form1：PrivateSubCommand1_Click( )Text1=""Text1=Text1&List1.TextIfOption1ThenText1=Text1&vbCrLf&"128M内存"ElseText1=Text1&vbCrLf&"256M内存"EndIf...IfCheck1ThenText1=Text1&vbCrLf&"音箱"IfCh