09年春浙江省高校VB二級計算機(jī)等級考試真題試卷含詳解

2021年春浙江省高等學(xué)校計算機(jī)等級考試試卷(二級VisualBasic)說明：（1）請將所有試題的答案填寫在試卷上。其中試題1~試題6在答卷上各小題正確選項的對應(yīng)位置處填“√”：（2）請在答卷上填寫學(xué)校名稱、準(zhǔn)考證號和姓名，并將你的準(zhǔn)考證號的后五位填寫在答卷右下角的指定位置內(nèi)：（3）考試時間為90分鐘。試題1(每小題3分，共12分)閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案。【程序說明】輸入n后，計算并顯示下列表達(dá)式的值。運行時初始界面如下圖左所示，輸入10并按回車鍵后的界面如下圖中所示(輸入數(shù)若小于1則清空文本框，需重新輸入)，按“計算”按鈕后的界面如下圖右所示?！境绦颉緿imnAsIntegerPrivateSubForm_Load()EndSubPrivateSub（2）(KAsInteger)IfK<>13ThenExitSub（3）Ifn>0ThenText1.Enabled=FalseElseText1.Text=""EndIfEndSubDimyAsSingle,iAsIntegerFori=1Ton（4）NextiLabel3.Caption=yText1.Enabled=TrueText1.Text=""Text1.SetFocusEndSub【供選擇的答案】（1）A、Enabled=TrueB、Enabled=FalseC、Visible=TrueD、Visible=False（2）A、Text1_KeyPressB、Text1_ClickC、Text1_ChangeD、Text1_KeyDown（3）A、k=Text1.TextB、k=13C（4）A、y=y+1/nB、y=y+1\nC、y=y+1/iD、y=y+1\i【解答】（2）Text1_Change()子過程是沒有形參的，即括號里應(yīng)該是空的。Text1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)應(yīng)該有兩個Integer參數(shù)，而Text1_Click()子過程也沒有形式參數(shù)，只有Text1_KeyPress(KeyAsciiAsInteger)有一個Integer參數(shù)，用來接收用戶輸入字符的Ascii（3）“IfK<>13ThenExitSub”意思是如果用戶沒有按回車鍵，則退出Sub過程繼續(xù)接收用戶輸入。如果用戶按回車鍵，即K=13時，接下來要判斷用戶輸入的數(shù)是否小于1。故首先要獲取文本框里的值。由下一行“Ifn>0Then”可知，將文本框里的值保留到變量n中。故選D。（4）“/”是除法，結(jié)果是實數(shù)；而“\”是整除，結(jié)果取整。Fori=1Ton（4）Nexti這里的循環(huán)變量是i，而n是一個固定的值，本題中n等于10。A表示計算1/n+1/n+..+1/n，而題目要計算的是1+1/2+1/3+1/4+……1/n試題2（每小題3分，共12分）閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦蛘f明】運行時輸入10個數(shù)后，輸出其中較小的5個數(shù)。【程序】Dima(10)AsSingle,tAsSingle,iAsByte,jAsByte,kAsByteFori=1To10a(i)=InputBox(（5）)NextiFori=1To9（6）Forj=i+1To10If（7）Thenk=jNextjt=a(i):a(i)=a(k):a(k)=tNextiFori=（8）Printa(i)NextiEndSub【供選擇的答案】（5）A、"a("&i&")="B、”a(“+i+“)=”C、”a(“,i,”)=”D、”a(“;i;”)=”（6）A、k=iB、i=kC、k=i+1D、i=k+1（7）A、a(j)<a(i)B、a(j)>a(i)C、a(j)>a(k)D、a(j)<a(k)（8）A、5To1B、10To6C、1To5【解答】見講座講解試題3（每小題3分，共12分）閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦颉縀ndSubPrivateSub（10）P1.ScaleMode=3'設(shè)置P1的坐標(biāo)單位為像素EndSubPrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimrAsLong,iAsLong,jAsLongr=P1.ScaleWidth/3Fori=P1.ScaleLeftToP1.ScaleLeft+P1.ScaleWidthForj=P1.ScaleTopToP1.ScaleTop+P1.ScaleHeightIf(i-X)^2+(j-Y)^2（11）r*rThenP1.PSet(i,j),（12）EndIfNextjNextiEndSub【供選擇的答案】（9）A.ActionB.ShowOpenC.ShowFontD.Action=3（10）A.Form_Load()B.Form_Click()C.P1_LoadD.P1_Click()（11）A.<B.>C.<>D.=（12）A.WhiteB.Rgb(0,0,255)C.vbWhiteD.Rgb(255,0,0)【解答】（1）由題意，這里應(yīng)該用打開文件對話框加載圖片，故調(diào)用ShowOpen方法或Action=1，故選B。（2）“窗體加載后，p1的坐標(biāo)單位應(yīng)為像素。”故P1.ScaleMode=3的設(shè)置應(yīng)該在Form_Load()事件中。（3）設(shè)A（X1，Y1）、B（X2，Y2），則兩點之間的距離|AB|=sqr((X1-X2)^2+(Y1-Y2)^2)，故(i-X)^2+(j-Y)^2>r*r，則表示(i,j)這一點到圓心的距離大于半徑，即(i,j)這一點在圓的外面。（4）“p1寬度的三分之一為半徑的圓之外的區(qū)域改為白色”，故選C或RGB(255,255,255)，B.Rgb(0,0,255)為藍(lán)色，D.Rgb(255,0,0)為紅色，VB中的常量都是以vb開頭的，故選C。試題4(每小題3分，共12分)閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦颉緿imnAsInteger,iAsInteger,jAsIntegerList1.Clearn=InputBox("n=")ReDima(2Ton)AsIntegerFori=2Tona(i)=iNextiFori=2ToSqr(n)Ifa(i)<>0ThenForj=2*iTonStepia(j)=0NextjEndIfNextiFori=2TonIfa(i)<>0ThenList1.AddItemiNextiEndSub【供選擇的答案】A、1，2B、2，3CA、2，3，5B、2，3C、3，5D、2，4A、3，5B、2，4，6C、3，5，7D、2，3，5，7（16）該事件過程的功能是，輸入n后：A、顯示小于n的奇數(shù)B、顯示小于n的偶數(shù)C、顯示小于n的素數(shù)D、顯示不大于n的素數(shù)【解答】Fori=2ToSqr(n)Ifa(i)<>0ThenForj=2*iTonStepia(j)=0NextjEndIfNexti上述循環(huán)語句執(zhí)行后將a(4)置為0（外循環(huán)和內(nèi)循環(huán)各執(zhí)行1次）。故選BFori=2ToSqr(n)Ifa(i)<>0ThenForj=2*iTonStepia(j)=0NextjEndIfNexti上述循環(huán)語句執(zhí)行后將a(4)=0，a(6)=0（外循環(huán)執(zhí)行1次，內(nèi)循環(huán)執(zhí)行2次）。故選A（3）分析過程同上（4）可用排除法求解：首先排除A、B，當(dāng)n=13時，列表框中顯示：23571113，故選D試題5(每小題3分，共12分)閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦颉縋rivateFunctionf(ByValaAsInteger,ByValbAsInteger)AsIntegerDimrAsIntegerr=aModbWhiler<>0a=b:b=r:r=aModbWendf=bEndFunctionDimmAsInteger,nAsIntegerm=InputBox("m="):n=InputBox("n=")Form1.ClsPrintf(m,n);m;nEndSub【供選擇的答案】A、448B、484C、42836D、436A、448B、484C、42836D、4362836，窗體顯示：A、448B、484C42，窗體顯示：A、65442B、6126C【解答】函數(shù)f是求兩個整數(shù)的最大公約數(shù)，采用的是輾轉(zhuǎn)相除法。即使不知道這個算法也可以很快的求解。f(ByValaAsInteger,ByValbAsInteger)即按照值傳遞，即調(diào)用函數(shù)f時，f(m,n)將m的“值”傳遞給a，將n的值傳遞給b，但a和b的改變不會影響m和n，故輸出的后兩位應(yīng)該是2836，故選C分析同上，選D將函數(shù)f參數(shù)設(shè)置改為“aAsInteger，bAsInteger”，則按地址傳遞，即a,b的改變會影響到m,n。輸入28、36，即調(diào)用f(28,36)后a=28,b=36,r=amodb=28，接下來執(zhí)行循環(huán)語句。r=28時，a=36b=r=28r=amodb=36mod28=8r=8時，a=b=28b=r=8r=amodb=28mod8=4r=4時，a=b=8b=r=4r=amodb=8mod4=0循環(huán)結(jié)束故最終a=8b=4由于是按地址傳遞，故m=8n=4，故選B分析過程同上試題6(每小題3分，共12分)程序運行時的初始界面如下圖所示，列表框中所顯示的是從磁盤文件輸入的信息?；卮饐栴}，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦颉縋rivateSubForm_Load()'從文件e:\aa.txt讀入數(shù)據(jù)、追加到List1DimssAsStringOpen"e:\aa.txt"ForInputAs#1WhileNotEOF(1)LineInput#1,ssList1.AddItemssWendClose#1EndSubDimxmAsString,rqAsDate,cjAsIntegerDimiAsIntegerFori=0ToList1.ListCount-1IfVal(Mid(List1.List(i),16,3))>cjThenxm=Trim(Mid(List1.List(i),1,4))rq=Mid(List1.List(i),5,10)cj=Val(Mid(List1.List(i),16,3))EndIfNextiOpen"e:\aa.txt"ForOutputAs#1Print#1,xm;rq;cjClose#1EndSubA、王小波1987-12-592B、“王小波”，#1987-12-5#，92C、董召弟1988-5-2443D、“董召弟”，#1988-5-24#，43A、王小波1987-12-592B、“王小波”，#1987-12-5#，92C、董召弟1988-5-2443D、“董召弟”，#1988-5-24#，43A、1B、10C、11D、12（24）若將Click事件中“Output”用“Append”置換，運行后文件e：\aa.txt中的記錄數(shù)為：A、1B、10C、11D、12【解答】見講座試題7（28分）【解答】DimaveAsDoubleDimx()AsDoubleDimnAsIntegerRem一開始不知道并不知道n是多少，所以要使用動態(tài)數(shù)組DimiAsIntegern=Val(InputBox("請輸入數(shù)的個數(shù)n的值："))ReDimx(n)AsDoubleFori=1Tonx(i)=Val(InputBox("請輸入第"&i&"個數(shù)："))NextiEndSubs