浙江省2006年春二級VB考試試卷及答案1

PAGEPAGE112006年春浙江省高等學(xué)校計(jì)算機(jī)等級考試試卷（二級VisualBasic）說明:(1)考生將所有試題的答案填寫在答卷上.其中題1～試題6,請?jiān)诖鹁砩细?/p>

小題正確選項(xiàng)的對應(yīng)位置處填“√”；（2）請將你的準(zhǔn)考證號的后五位填寫在答卷右下角的指定位置內(nèi)；（3）考試時(shí)間為90分鐘；試題1（每小題3分，共15分）閱讀下列程序和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。【程序說明】界面設(shè)計(jì)如上圖所示，程序運(yùn)行時(shí)要求有以下功能：·按Commandl（出題）后隨機(jī)生成兩個(gè)兩位正整數(shù)存入模塊級變量a、b且a＞b，并分別在LabellLabe12中顯示，此后Commandl不可用；·在Textl中輸入結(jié)果、按回車后，以消息框顯示運(yùn)算正確與否、累計(jì)所完成題數(shù)以及做錯(cuò)的題數(shù)，Commandl恢復(fù)為可用；·按Command2(退出)后以消息框顯示所完成題數(shù)以及做錯(cuò)的題數(shù)，退出?！境绦颉緿imnAsInteger,n_errorAsInteger(1)DimaAsByte,bAsbyte,cAsBytePrivateSubCommand1_Click()a=10+Rnd*89:b=10+Rnd*89Ifa<bThen(2)B、c=a:a=b:b=cLabel1.Caption=a:Label2.Caption=bn=n+1:Text1.Text="":Command1.Enabled=FalseEndSubPrivateSubText1_(3)KeyDown(keyAsciiAsInteger)IfkeyAscii<>13Then(4)ExitSub'回車鍵的ASCII碼值為13Ifa-b=Val(Text1.Text)ThenMsgBox("回答正確")ElseMsgBox("回答不正確")n_error=n_error+1EndIfCommand1.Enabled=TrueEndSubPrivateSubCommand2_Click()MsgBox((5)“共”＆n＆“題，錯(cuò)”＆n_error＆“題”)EndEndSub【供選擇的答案】（1）A、’小學(xué)生兩位數(shù)減法訓(xùn)練程序B、a=0:b=0:c=0C、n=0:n_error=0D、DimaAsByte,bAsbyte,cAsByte(2)A、b=a:a=bB、c=a:a=b:b=cC、a=b:b=aD、c=a:b=a:a=c(3)A、KeyPressB、ChangeC、KeyDownD、KeyUp(4)A、ExitSubB、KeyAscii=13C、KeyAsecii=0D、ExitDo(5)A、“共”＆n＆“題，錯(cuò)”＆n_error＆“題”B、“共n題，錯(cuò)n_error題”C、“共”+n+“題，錯(cuò)”＋n_error+“題”D、共＆n“題，錯(cuò)”＆n_error＆“題”試題2（每小題3分，共12分）閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦蛘f明】輸入n后，再輸入n個(gè)數(shù)a1,a2,…，an,按照下列公式計(jì)算s的值并顯示。(a1-v)(a1-v)2+(a2-v)2+…+(an-v)na1+a2+…annv=s=【程序】PrivateFunctionf((6)x()AsSingle,nAsInteger)AsSingleDimiAsIntegerFori=1Ton:f=f+x(i):NextiEndFunctionPrivateSubcommand1_Click()DimnAsInteger,a()AsSingle,iAsIntegerDimVAsSingle,sAsSinglen=InputBox("輸入數(shù)據(jù)個(gè)數(shù)")（7）ReDima(n)Fori=1Tona(i)=InputBox("a("&i&")=","輸入各數(shù)組元素")NextiV=f(a,n)/nFori=1Tons=(8)s+(a(i)-v)^2Nexti(9)Prints^0.5/nEndSub【供選擇的答案】（6）A、x()AsSingle,nAsIntegerB、x(n)AsSingleC、aAsSingle,nAsIntegerD、nAsInteger,x()AsSingle（7）A、Dima(n)AsSingleB、ReDima()C、Dima(n)D、ReDima(n)（8）A、(a(i)-v)*(a(i)-v)B、s+a(i)-v^2C、s+(a(i)-v)^2D、(a(i)-v)^2（9）A、s=s^0.5/nB、Prints^0.5/nC、PrintSqr(s)D、Sqr(s)/n試題3（每小題3分，共15分）閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦蛘f明】·圖片框控件P1、P2除Name屬性外均取缺省值，將鼠標(biāo)在P1拖動(dòng)繪制矩形框（邊框顏色通過用對話框指定）：鼠標(biāo)按下處為矩形左上角，鼠標(biāo)抬起處為矩形右下角；·鼠標(biāo)抬起后，將P1中矩形區(qū)域內(nèi)的圖象在P2中重新繪制，如下圖所示。【程序】(10)DimxlAsSingle,y1AsSinglePrivateSubp1_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)xl=X:y1=YEndSubPrivateSubp1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)DimjAsSingle,iAsSingle,jkAsSingle,ikAsSingleDim(11)AsLongjk=P2.ScaleWidth/(X-xl):ik=P2.ScaleHeight/(Y-y1)CommonDialog1.Action=(12)3P1.Line(xl,y1)-(X,Y),CommonDialog1.Color,BForj=xlToXFori=y1ToYc=(13)P1.Point(j,i)'讀取該點(diǎn)處的顏色值(14)P2.PSet((j-xl)*jk,(i-y1)*ik),cNexti,jEndSub【供選擇的答案】（10）A、DimxAsSingle,yAsSingleB、Dimx2AsSingle,y2AsSingleC、PublicxlAsSingle,ylAsSingleD、DimxlAsSingle,y1AsSingle（11）A、cAsLongB、cAsIntegerC、cAsSingleD、cAsDouble（12）A、1B、2C、3D、4（13）A、P1.Pset(j,i)B、P2.Pset(j,i)C、P1.Point(j,i)D、P1.Point(i,j)（14）A、P2.PSet((j-xl)*jk,(i-y1)*ik),cB、P1.Pest((j-xl)*jk,(i-yl)*ik),cC、P2.PSet((i-yl)*ik,(j-xl)*jk),cD、P1.Pset((i-yl)*ik,(j-x1)*jk),c試題4（每小題3分，共9分）閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦颉縋rivateSubForm_Load()Text1.Text="":List1.ClearEndSubPrivateSubText1_Keypress(KAsInteger)DimnAsInteger'IfK>=Asc("0")Andk<=Asc（"9"）ThenK=0IfK=13ThenList1.AddItemText1.Text,nn=n+1Text1.Text=""EndIfEndSub(15)運(yùn)行時(shí)在文本框控件Textl中依次輸入3個(gè)以回車結(jié)束的字符串“abc34”、“xy12＄”、“+-*/”A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(16)如果將語句DimnAsInteger用StaticnAsInteger替換，運(yùn)行時(shí)在文本框中依次輸入3個(gè)以回車結(jié)束的字符串“abc34”、“xy12$”、“+-*/”A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(17)如果將語名DimnAsInteger后一條語句前的注釋符刪除，運(yùn)行時(shí)在文本框中依次輸入3個(gè)以回車結(jié)束的字符串“abc34”、“xy12$”、“+-*/”A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc試題5（每小題3分，共12分）閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一正確答案?！境绦颉縋rivateSubf(sAsString)DimiAsInteger,nAsInteger,cAsStringn=Len(s)IfnMod2=1Thenc=Mid(s,n\2+1,1)Fori=1ToLen(s)\2c=Mid(s,Len(s)+1-i,1)+c+Mid(s,i,1)Nextis=cEndSubPrivateSubCommand1_Click()DimxAsStringx=InputBox("x=")Callf(x)PrintxEndSub(18)單擊Commandl后輸入“abc”，窗體上顯示結(jié)果為：A、cbaB、bcaC、abcD、acb(19)單擊Commandl后輸入“abcd”，窗體上顯示結(jié)果為：A、abdcB、cdabC、abcdD、bcad(20)如果將Sub過程f首句改為PrivateSubf(ByvalSAsString),單擊Commandl后輸入“abcd”，窗體上顯示結(jié)果為：A、abdcB、cdabC、abcdD、bcad(21)如果將Sub過程f首句改為PrivateSubf(ByrefSAsString),單擊Commandl后輸入“abcd”，窗體上顯示結(jié)果為：A、abdcB、cdabC、abcdD、bcad試題6（每小題3分，共9分）閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦颉縋rivateSubcommand1_Click()DimiAsInteger,fnAsBytefn=FreeFileOpen"e:/aaa.txt"ForOutputAs#fnFori=1To20IfSqr(i)=Int(Sqr(i))ThenPrint#fn,iNextiClose#fnEndSub(22)如果文件e:/aaa,txt已存在并已有數(shù)據(jù)1、4，執(zhí)行以上過程后文件中全部數(shù)據(jù)為：A、1，4，1，4，9，16B、1，4，9，16C、1，4D、2，4，6，8，10，12，14，16，18（23）如果文件e:/aaa.txt不存在，執(zhí)行以上過程后文件中全部數(shù)據(jù)為：A、1，4，1，4，9，16B、1，4，9，16C、空D、2，4，6，8，10，12，14，16，18(24)如果文件e:/aaa,txt已存在并已有數(shù)據(jù)1、4，且程序中文件打開方式為Append,執(zhí)行以上過程后文件中全部數(shù)據(jù)為：A、1，4，1，4，9，16B、1，4，9，16C、1，4D、2，4，6，8，10，12，14，16，18試題7（14分）編寫過程Commandl_Click,用InputBox函數(shù)輸入100個(gè)學(xué)生的成績，統(tǒng)計(jì)后依次用標(biāo)簽控件Labell～Labe13顯示優(yōu)秀（85-100）、通過（60-84）和未通過（小于60）的人數(shù)。試題8（14分）編寫程序，界面設(shè)計(jì)、運(yùn)行時(shí)狀態(tài)如下圖所示，按照下列要求定義各事件過程：（1）在窗體的Load事件過程中設(shè)置計(jì)時(shí)器控制Timerl的Enable屬性為False、響應(yīng)的時(shí)間間隔為1秒；（2）單擊Commandl后計(jì)時(shí)器開始計(jì)時(shí)，每隔1秒刷新一次控制件Labe12（0）～Labe12（3）在窗體上所顯示的當(dāng)前時(shí)間以及計(jì)時(shí)開始后所經(jīng)過的時(shí)間。

2006年春浙江省高等學(xué)校計(jì)算機(jī)等級考試參考答案（二級VisualBasic）試題1-6（每小題3分）（1）D（2）B（3）A（4）A（5）A（6）A（7）D（8）C（9）B（10）D(11)A（12）C（13）C（14）A（15）B（16）A（17）D（18）A（19）B（20）C（21）B（22）B（23）B（