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

2021年春浙江省高等學(xué)校計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBasic)說(shuō)明：（1）請(qǐng)將所有試題的答案填寫(xiě)在試卷上。其中試題1~試題6在答卷上各小題正確選項(xiàng)的對(duì)應(yīng)位置處填“√”：（2）請(qǐng)?jiān)诖鹁砩咸顚?xiě)學(xué)校名稱、準(zhǔn)考證號(hào)和姓名，并將你的準(zhǔn)考證號(hào)的后五位填寫(xiě)在答卷右下角的指定位置內(nèi)：（3）考試時(shí)間為90分鐘。試題1(每小題3分，共12分)閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。【程序說(shuō)明】輸入n后，計(jì)算并顯示下列表達(dá)式的值。運(yùn)行時(shí)初始界面如下圖左所示，輸入10并按回車鍵后的界面如下圖中所示(輸入數(shù)若小于1則清空文本框，需重新輸入)，按“計(jì)算”按鈕后的界面如下圖右所示?！境绦颉緿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()子過(guò)程是沒(méi)有形參的，即括號(hào)里應(yīng)該是空的。Text1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)應(yīng)該有兩個(gè)Integer參數(shù)，而Text1_Click()子過(guò)程也沒(méi)有形式參數(shù)，只有Text1_KeyPress(KeyAsciiAsInteger)有一個(gè)Integer參數(shù)，用來(lái)接收用戶輸入字符的Ascii（3）“IfK<>13ThenExitSub”意思是如果用戶沒(méi)有按回車鍵，則退出Sub過(guò)程繼續(xù)接收用戶輸入。如果用戶按回車鍵，即K=13時(shí)，接下來(lái)要判斷用戶輸入的數(shù)是否小于1。故首先要獲取文本框里的值。由下一行“Ifn>0Then”可知，將文本框里的值保留到變量n中。故選D。（4）“/”是除法，結(jié)果是實(shí)數(shù)；而“\”是整除，結(jié)果取整。Fori=1Ton（4）Nexti這里的循環(huán)變量是i，而n是一個(gè)固定的值，本題中n等于10。A表示計(jì)算1/n+1/n+..+1/n，而題目要計(jì)算的是1+1/2+1/3+1/4+……1/n試題2（每小題3分，共12分）閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦蛘f(shuō)明】運(yùn)行時(shí)輸入10個(gè)數(shù)后，輸出其中較小的5個(gè)數(shù)?！境绦颉緿ima(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【解答】見(jiàn)講座講解試題3（每小題3分，共12分）閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦颉縀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)該用打開(kāi)文件對(duì)話框加載圖片，故調(diào)用ShowOpen方法或Action=1，故選B。（2）“窗體加載后，p1的坐標(biāo)單位應(yīng)為像素?！惫蔖1.ScaleMode=3的設(shè)置應(yīng)該在Form_Load()事件中。（3）設(shè)A（X1，Y1）、B（X2，Y2），則兩點(diǎn)之間的距離|AB|=sqr((X1-X2)^2+(Y1-Y2)^2)，故(i-X)^2+(j-Y)^2>r*r，則表示(i,j)這一點(diǎn)到圓心的距離大于半徑，即(i,j)這一點(diǎn)在圓的外面。（4）“p1寬度的三分之一為半徑的圓之外的區(qū)域改為白色”，故選C或RGB(255,255,255)，B.Rgb(0,0,255)為藍(lán)色，D.Rgb(255,0,0)為紅色，VB中的常量都是以vb開(kāi)頭的，故選C。試題4(每小題3分，共12分)閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦颉緿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）該事件過(guò)程的功能是，輸入n后：A、顯示小于n的奇數(shù)B、顯示小于n的偶數(shù)C、顯示小于n的素?cái)?shù)D、顯示不大于n的素?cái)?shù)【解答】Fori=2ToSqr(n)Ifa(i)<>0ThenForj=2*iTonStepia(j)=0NextjEndIfNexti上述循環(huán)語(yǔ)句執(zhí)行后將a(4)置為0（外循環(huán)和內(nèi)循環(huán)各執(zhí)行1次）。故選BFori=2ToSqr(n)Ifa(i)<>0ThenForj=2*iTonStepia(j)=0NextjEndIfNexti上述循環(huán)語(yǔ)句執(zhí)行后將a(4)=0，a(6)=0（外循環(huán)執(zhí)行1次，內(nèi)循環(huán)執(zhí)行2次）。故選A（3）分析過(guò)程同上（4）可用排除法求解：首先排除A、B，當(dāng)n=13時(shí)，列表框中顯示：23571113，故選D試題5(每小題3分，共12分)閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。【程序】PrivateFunctionf(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是求兩個(gè)整數(shù)的最大公約數(shù)，采用的是輾轉(zhuǎn)相除法。即使不知道這個(gè)算法也可以很快的求解。f(ByValaAsInteger,ByValbAsInteger)即按照值傳遞，即調(diào)用函數(shù)f時(shí)，f(m,n)將m的“值”傳遞給a，將n的值傳遞給b，但a和b的改變不會(huì)影響m和n，故輸出的后兩位應(yīng)該是2836，故選C分析同上，選D將函數(shù)f參數(shù)設(shè)置改為“aAsInteger，bAsInteger”，則按地址傳遞，即a,b的改變會(huì)影響到m,n。輸入28、36，即調(diào)用f(28,36)后a=28,b=36,r=amodb=28，接下來(lái)執(zhí)行循環(huán)語(yǔ)句。r=28時(shí)，a=36b=r=28r=amodb=36mod28=8r=8時(shí)，a=b=28b=r=8r=amodb=28mod8=4r=4時(shí)，a=b=8b=r=4r=amodb=8mod4=0循環(huán)結(jié)束故最終a=8b=4由于是按地址傳遞，故m=8n=4，故選B分析過(guò)程同上試題6(每小題3分，共12分)程序運(yùn)行時(shí)的初始界面如下圖所示，列表框中所顯示的是從磁盤(pán)文件輸入的信息?；卮饐?wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦颉縋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”置換，運(yùn)行后文件e：\aa.txt中的記錄數(shù)為：A、1B、10C、11D、12【解答】見(jiàn)講座試題7（28分）【解答】DimaveAsDoubleDimx()AsDoubleDimnAsIntegerRem一開(kāi)始不知道并不知道n是多少，所以要使用動(dòng)態(tài)數(shù)組DimiAsIntegern=Val(InputBox("請(qǐng)輸入數(shù)的個(gè)數(shù)n的值："))ReDimx(n)AsDoubleFori=1Tonx(i)=Val(InputBox("請(qǐng)輸入第"&i&"個(gè)數(shù)："))NextiEndSubs