浙江省高校计算机等级考试参考答案

1/132000年秋浙江省高校计算机等级考试参考答案(二级VisualBASIC)试题一、计算机基础题（本题共15分）试题二、语言基础题（本题共28分）（一）判断题（每题1分，共10分）1．√2．×3．√4．×5．×6．√7．×8．×9．√10．√（二）选择题（每题1分，共6分）(1）C(2）A（3）C（4）D（5）A(6）B（三）填空题（每题2分，共12分）1.（x^5-Cos(29*3.14/180)）/(Sqr(Exp(x)+log(y))+5)2.((Int(x)+1)\2)*2+1(或((Fix(x)+1)\2)*2+1)3.a1=a3Xora2=a3(或a1=a3Anda2a3Ora1a3Anda2=a3)4.65.全局变量、模块级变量和局部变量6.以图片框Picture1中的(800,1000)为圆心，以500为半径画一个圆试题三、程序阅读题（本题共21分)1.（5分）s=5s=10s=402.（５分）w=3k=2w=4k=4w=5k=6w=6k=83.(5分)LHFDB４．(6分)y=5a=5y=15a=10y=30a=15试题四、程序填空题(每空2分，共18分)2/131.(1)1000(2)Timer1.Enabled=True或Timer1=True(3)0(4)x\3600(5)xMod602.(6)x*i(7)0(8)1/fact(n)(9)Abs(item)=0.00000001试题五、程序设计题(本题共18分)1.程序如下:（8分）PrivateSubCommand1_Click()DimnAsInteger,OsumAsLong,xAsIntegern=Val(InputBox(请输入数据n))Hsum=0Fori=1Tonx=Int(Rnd*90+10)IfxMod2=0ThenOsum=Osum+xNextiLabel1.Caption=偶数之和=+Str(Osum)EndSub2.程序如下:（10分）PrivateSubForm_Click()Constn=100Dima(1Ton)AsSingleDimb(1Ton)AsLong,tAsLongDimmAsInteger,iAsInteger,jAsIntegerm=0Fori=1Tona(i)=Val(InputBox(请输入第+Str(i)+个数据))IfInt(a(i))=a(i)Thenm=m+1b(m)=a(i)EndIfNextiFori=1Tom-1Forj=i+1TomIfb(i)b(j)Thent=b(i):b(i)=b(j):b(j)=tNextjNextiFori=1TomIfiMod50ThenPrintb(i),ElsePrintb(i)3/13EndIfNextiEndSub2001年秋浙江省高校计算机等级考试参考答案(二级VisualBASIC)试题一、计算机基础题（本题共15分）试题二、语言基础题（本题共25分）（一）判断题（每小题1分，共10分，答案用A表示正确，B表示错误）（16）A（17）A（18）B（19）B（20）A（21）B（22）A（23）B（24）A（25）A（二）单选题（每小题1分，共15分）（26）B（27）C（28）D（29）D（30）B（31）C（32）D（33）B（34）C（35）A（36）B（37）B（38）D（39）A（40）A试题三、程序填空题（每空2分，共20分）（41）D（42）B（43）A（44）C（45）A（46）D（47）C（48）A（49）D（50）C试题四、程序阅读题（每小题5分，共20分)1.（5分）n=3x=42y=92.（５分）n=1z=4n=2z=7n=3z=103.(5分)x(1)=8x(2)=6x(3)=4x(4)=3x(5)=1４．(5分)1302-11试题五、程序设计题(每题10分，共20分)1.程序如下:PrivateSubCommand1_Click()DimxAsSinglex=Val(InputBox(x=,请输入数据))SelectCasexCaseIs10y=Sqr(x)+Sin(x)Case104/13y=0CaseElsey=2*x^3+6EndSelectPrinty=;yEndSub2.程序如下:PrivateSubCmdExit_Click()EndEndSubPrivateSubCmdLeft_Click()DimiAsInteger,LastAsIntegerLast=ComboRight.ListCount-1Fori=0ToLastComboLeft.AddItemComboRight.List(0)ComboRight.RemoveItem0NextiCmdLeft.Enabled=FalseCmdRight.Enabled=TrueEndSubPrivateSubCmdRight_Click()DimiAsInteger,LastAsIntegerLast=ComboLeft.ListCount-1Fori=0ToLastComboRight.AddItemComboLeft.List(Last-i)ComboLeft.RemoveItemLast-iNextiCmdLeft.Enabled=TrueCmdRight.Enabled=FalseEndSub2002年秋计算机等级考试答案(二级VB)1.A2.D3.B4.A5.A6.A7.B8.C9.D10.D11.AB12.AD13.AC14.AD15.BC16.×17.√18.×19.√20.√21.√22.×23.×24.×25.√26.B2.C28.D29.B30.A31.A32.D33.C34.D35.B36.A37.C38.D39.A40.C程序阅读题1.782.33.326457864166435786448641357864254644.6152845程序设计题1.PrivateSubCommand1_Click()DimnAsIntegerDimiAsInteger,sumAsSingle5/13n=InputBox(inputdatan)sum=1Fori=2Tonsum=sum+i/((i+1)*(i+2))NextiText1.Text=Str(sum)EndSub2.Dimx1AsInteger,y1AsIntegerPrivateSubForm_Load()Pic1.FillStyle=0Pic1.FillColor=vbGreenPic1.ForeColor=vbRedEndSubPrivateSubPic1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)x1=Xy1=YEndSubPrivateSubPic1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Pic1.Line(x1,y1)-(X,Y),,BEndSub3.PrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_Click()Dimstr1AsString,str2AsStringDimFnameAsStringDimiAsIntegerIfRight(File1.Path,1)=\ThenFname=File1.Path&File1.FileNameElseFname=File1.Path&\&File1.FileNameEndIfOpenFnameForInputAs#1CommonDialog1.Action=1OpenCommonDialog1.FileNameForOutputAs#26/13DoWhileNotEOF(1)LineInput#1,str1str2=Fori=1ToLen(str1)IfMid(str1,i,1)Thenstr2=str2&Mid(str1,i,1)EndIfNextiPrint#2,str2LoopCloseEndSub2003年秋浙江省高校非计算机专业学生计算机等级考试试卷(二级VisualBASIC)试题二语言基础题(本题共30分)一、判断题(每小题1分,共10分)16．B17.A18.B19.A20.B21.A22.A23.B24.B25.A二、单选题（每小题2分，共20分）26．B27.B28.C29.B30.A31.D32.B33.A34.B35.A试题三程序填空题(每空格2分,共10分)36.C37.B38.D39.C40.C试题四程序阅读题(每小题5分,共20分)程序13755642819程序23511192659程序31123364107/13515程序412123412345612345614试题五程序设计题(第1题7分,第2题8分,第3题10分,共25分)程序1PrivateSubCommand1_Click()DimxassingleX=inputbox(“x=”)Ifx-2thenPrintx*x/(x+1)Elseifx=2thenPrintSin(x)*Cos(x)ElsePrintLog(x)/Log(10)EndifEndSub程序2PrivateSubForm_Click()Dimxassingle,yassinglePicture1.Width=Picture1.Height:x=Picture1.ScaleWidth/2Picture1.Scale(-x,x)-(x,-x)Fory=x/10toxstepx/10Picture1.Circle(0,0),yNextyEndSub程序3PrivateSubForm_Click()DimNo(20)asstring,Score(20,5)asinteger,TDimIasbyte,jasbyte,kasbyte,sasintegerOpen“c:\A.DAT”forinputas#1ForI=1to20Input#1,No(i)S=0Forj=1to4Input#1,Score(I,j)S=s+Score(I,j)NextjScore(I,5)=sNextIClose#1ForI=1to198/13Forj=I+1to20IfScore(j,5)Score(I,5)thenT=No(i):No(I)=No(j):No(j)=TFork=1to5T=Score(I,k):Score(I,k)=Score(j,k):Score(j,k)=TNextkEndifNextjNextIOpen“c:/B.DAT”foroutputas#1ForI=1to20Print#1,I;””;No(i);Forj=1to5Print#1,”“;Score(I,j);NextjPrint#1,”“NextIClose#1EndSub2004年秋浙江省高校计算机等级考试参考答案(二级VisualBASIC)试题一、计算机基础题（本题共15分）试题二、语言基础题（本题共30分）（一）判断题（每小题1分，共10分，答案用A表示正确，B表示错误）（16）B（17）A（18）B（19）B（20）B（21）A（22）B（23）A（24）A（25）A（二）单选题（每小题2分，共20分）（26）B（27）C（28）D（29）B（30）A（31）B（32）C（33）B（34）D（35）B试题三、程序填空题（每空2分，共10分）（36）B（37）A（38）C（39）C（40）C试题四、程序阅读题（每小题5分，共20分)1.（5分）aaabaababcaababcabcd2.（５分）151503015045150601503.(5分)111213149/13212223243132333441424344４．(5分)试题五