浙江计算机二级VB真题-2026-2026全部真题+详尽答案

2025年秋浙江省高等学校计算机等级考试试卷(二级VisualBasic)试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】•运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n<1则重新输入，否则按钮Command1可用；•按Command1计算费波那契数列第n项的值（该数列第1、2项均为1，此后各项为该项前两项之和，如：1、1、2、3、5、8、┄）；•用消息框输出结果（右上图表示输入n为8后，输出结果是21），按消息框中“是”按钮则界面显示如左上图，按“否”按钮则退出。【程序】DimnAsIntegerPrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_KeyPress(kAsInteger)If(1)ThenExitSubn=Text1.TextIfn<1ThenMsgBox("n应大于零！"):ExitSubCommand1.Enabled=TrueEndSubPrivateSubCommand1_Click()DimiAsInteger(2)f(1)=1:f(2)=1Fori=(3)f(i)=f(i-1)+f(i-2)Nextik=MsgBox("第"&n&"项为"&f(n)&"，是否继续？",(4))Ifk=vbYesThenText1.Text="":Command1.Enabled=FalseText1.SetFocusElseEndEndIfEndSub(1)A、k=13 B、k<>13 C、KeyAscii<>13 D、(2)A、Redimf(8)AsLong B、Redimf(n)AsLongC、Dimf(n)AsLong D、Dimf(8)AsLong(3)A、1Ton B、1TonStep1 C、2Ton D、3Ton(4)A、vbNo B、vbYes C、vbYesNo D、vbQuestion试题2（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后，将所有在List1中存在、而在List2中不存在的表项添加到列表框控件List3中。PrivateSubCommand1_Click()DimiAsInteger,jAsInteger(5)Fori=0To(6)Forj=0To(7)IfList1.List(i)=List2.List(j)Then(8)NextjIf(9)ThenList3.AddItemList1.List(i)NextiEndSub(5)A、List3.ClearB、List3.List="" C、List3.deleteD、List3.Cls(6)A、List1.ListCount B、List1.ListCount-1C、List2.ListCount D、List2.ListCount-1(7)A、List2.ListCount-1 B、List2.ListCountC、List1.ListCount–1 D、List1.ListCount(8)A、ExitFor B、Exit C、ExitDoD、Break(9)A、j<List2.ListCount B、j<=List2.ListCountC、j>List2.ListCount D、j>=List2.ListCount试题3（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】选择一个图象文件（BMP、JPG）后，在图片框控件P1中显示，按“反转”按钮后，将P1中每一像素在P2中相应位置以不同颜色显示。【程序】PrivateSubForm_Load()File1.(10)="*.bmp;*.jpg"P2.Width=P1.Width:P2.Height=P1.HeightP1.ScaleMode=3:P2.ScaleMode=3EndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=(11)EndSubPrivateSubFile1_Click()(12)GoTokkP1.Picture=LoadPicture(File1.Path+File1.FileName)ExitSubkk:P1.Picture=LoadPicture(File1.Path+"\"+File1.FileName)EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsInteger,(13)DimrAsByte,gAsByte,bAsByteForx=P1.ScaleLeftToP1.ScaleLeft+P1.ScaleWidthFory=P1.ScaleTopToP1.ScaleTop+P1.ScaleHeightc=P1.Point(x,y)Ifc>=0Thenr=cMod256:c=c\256g=cMod256:c=c\256(14)P2.PSet(x,y),RGB(255-r,255-g,255-b)EndIfNexty,xEndSub(10)A、FilterB、PatternC、FileNameD、Path(11)A、Dir1.PathB、File1.PathC、Drive1.PathD、Drive1.Drive(12)A、OnErrorB、InErrorC、IfErrorD、IfErrorThen(13)A、cAsByteB、cAsLongC、cAsSingleD、cAsInteger(14)A、b=cMod255B、b=c\256C、b=cD、b=c试题4（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_click()DimnAsInteger,iAsInteger,kAsInteger,jAsIntegerDon=InputBox("请输入1个1至9之间的整数")LoopUntil0<nAndn<10k=10:j=1Fori=1TonPrintSpace(k);String(j,Trim(Str(i)))Ifi<=n/2Thenk=k-1:j=j+2Elsek=k+1:j=j-2EndIfNextiEndSub(15)若运行时输入n值为2，窗体上的显示结果为：A、1 B、1C、1D、2121222123121(16)若运行时输入n值为3，窗体上的显示结果为：A、1 B、1C、1D、12221231222233333123211233(17)若运行时输入n值为4，窗体上的显示结果为：A、1 B、1C、1D、1222222123222333333123453333344444412345674444444试题5（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Timer1.Interval=100:Form1.WindowState=2Label1.Width=ScaleWidth/2:Label1.Left=ScaleLeftLabel1.Alignment=0:Label1.Caption="运行中..."EndSubPrivateSubTimer1_Timer()StaticmAsBytem=m+8:Label1.FontSize=mTimer1.Interval=Timer1.Interval+100Ifm>80ThenTimer1.Enabled=FalseEndSub(18)程序运行后，事件过程Timer1_Timer自动执行的次数为：A、9 B、10 C、11D、0(19)“运行中...”这段文字的显示位置始终在窗体的A、窗体的左边B、Label1的右边 C、窗体的右边D、Label1的中间(20)Label1的标题在窗体上的显示多次变化，其规律为：A、字体变大、变化减慢 B、字体变小、变化减慢C、字体变小、变化加快 D、字体变大、变化加快试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Form1.Height=Form1.Width*2/3Form1.FillColor=RGB(0,0,255)Form1.FillStyle=vbSolidEndSubPrivateSubForm_Activate()Scale(0,0)-(300,200)paint.Caption="Circle"Line-(150,100),FillColor,BFEndSubPrivateSubpaint_Click()Form1.ClsIfpaint.Caption="Circle"Thenpaint.Caption="Rectanfle"Circle(ScaleWidth/2,ScaleHeight/2),ScaleHeight/2,_255,,,ScaleHeight/ScaleWidthElsepaint.Caption="Circle"Line-(150,100),FillColor,BFEndIfEndSub(21)菜单项标题为“Circle”、名称为“paint”，单击该菜单项后窗体上显示：A、圆 B、纵轴大于横轴的椭圆 C、横轴大于纵轴的椭圆 D、矩形(22)菜单项标题为“Rectanfle”、名称为“paint”，单击该菜单项后所显示图形：A、红色边框无填充色的椭圆 B、兰色边框黑色填充的矩形C、黑色边框兰色填充的椭圆 D、兰色边框兰色填充的矩形(23)菜单项标题为“Circle”，两次单击名称为“paint”的该菜单项，窗体显示：A、椭圆 B、矩形 C、1个椭圆和1个矩形 D、1个椭圆和1个正方形(24)菜单项标题为“Rectanfle”，两次单击名称为“paint”的该菜单项，窗体显示：A、椭圆 B、矩形 C、1个椭圆和1个矩形 D、1个椭圆和1个正方形试题7(14分)编写事件过程Command1_Click，计算下式的和，变量x与n的数值用输入对话框输入。试题8(14分)某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程：文本文件格式"05010101",78,89"05010102",83,79............文本文件格式"05010101",78,89"05010102",83,79............=2\*GB2⑵在Label1(0)～Label1(1)显示总分最高的学生之学号、总分。2025年秋计算机等级考试参考答案（二级VisualBasic）试题1～6(每小题3分)=1\*GB2⑴B=2\*GB2⑵B=3\*GB2⑶D=4\*GB2⑷C=5\*GB2⑸A=6\*GB2⑹B=7\*GB2⑺A=8\*GB2⑻A=9\*GB2⑼D=10\*GB2⑽B=11\*GB2⑾D=12\*GB2⑿A=13\*GB2⒀B=14\*GB2⒁C=15\*GB2⒂B=16\*GB2⒃D=17\*GB2⒄B=18\*GB2⒅C=19\*GB2⒆A=20\*GB2⒇A(21)C(22)D(23)B(24)A变量声明2分输入语句2分循环前赋初值2分变量声明2分输入语句2分循环前赋初值2分输出语句1分如果程序逻辑上混乱，语法上较多错误，该题最多得以上7分（包括用自定义函数求阶乘的编写方法）。PrivateSubCommand1_Click()DimsAsSingle,xAsSingle,tAsSingleDimiAsInteger,nAsIntegerx=InputBox("x=")n=InputBox("n=")s=x/2:t=x/2Fori=3Ton+1t=t*x/is=s+tNextiPrintsEndSub试题8(每题14分)PrivateSubForm_Click()DimxhAsString,zfAsIntegerDimxAsString,k1AsInteger,k2AsIntegerCommondialog1.ShowOpenOpenCommondialog1.FileNameForInputAs#1变量声明2分调用通用对话框2分Open语句2分显示输出语句1分如果程序逻辑上混乱，语法上较多错误，该题最多得以上7分。变量声明2分调用通用对话框2分Open语句2分显示输出语句1分如果程序逻辑上混乱，语法上较多错误，该题最多得以上7分。Input#1,x,k1,k2Ifk1+k2>zfThenzf=k1+k2xh=xEndIfLoopClose#1Label1(0).Caption=xhLabel1(1).Caption=zfEndSub

2025年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子（如输入6则输出“23”，输入60则输出“2235【程序】PrivateSubf((1))DimiAsInteger i=2DoWhile(2)If(3)Thenk=k/i:Printi;Elsei=i+1LoopEndSubPrivateSubForm_Click()DimnAsIntegerDon=InputBox("n=")Loop(4)Callf(n)PrintEndSub(1)A、nAsInteger B、kAsIntegerC、ByvalnAsByte D、IAsInteger(2)A、k>1 B、k>=1 C、k=1 D、(3)A、k\i=0 B、k\i*i=0 C、nModi=0 D、(k\i)*i=k (4)A、Untiln>6 B、Whilen>=6 C、Untiln>=6 D、Whilen>6试题2（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command1将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。DimnAsIntegerPrivateSubCommand1_Click()IfCommand1.Caption="开始"ThenCommand1.Caption="显示"P1.Enabled=True:n=0ElseCommand1.Caption=(5)P1.Enabled=False:MsgBox("单击该区域"+(6)+"次")EndIfEndSubPrivateSubForm_Activate()P1.Width=P1.HeightP1.Scale(-3,3)-(3,-3)P1.FillStyle=(7)P1.FillColor=(8):P1.Circle(0,0),2P1.FillColor=vbwhite:P1.Circle(0,0),1EndSubPrivateSubForm_Load()Command1.Caption="开始":P1.Enabled=FalseEndSubPrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,_xAsSingle,yAsSingle)Ifx*x+y*y>=1And(9)Thenn=n+1EndSub(5)A、"退出" B、"开始" C、"显示" D、"开始"(6)A、n B、Val(n) C、Str(n ) D、Trim(n)(7)A、1 B、0 C、2 D、3(8)A、vbblank B、Rgb(255,0,0) C、vbwhite D、Rgb(255,255,0)(9)A、x*x+y*y<=4 B、x>2Andy>2 C、x*x+y*y<=2 D、x*x+y*y>4试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】某文件中存放了若干个实数，单击Command1可用对话框打开该文件、并将读入的所有数据在List1中显示，单击Command2可将读入的数据按值从大到小顺序重新写入到该文件。【程序】PrivateSubCommand1_Click()DimxAsSingleList1.Clear:CommonDialog1.Action=1OpenCommonDialog1.FileNameFor(10)As#1DoWhile(11)Input#1,x:List1.AdditemxLoopClose#1EndSubPrivateSubCommand2_Click()DimnAsSingle,xAsSingle,iAsInteger,jAsInteger,KAsIntegern=List1.(12)Redima(n)AsSingleFori=1Ton:a(i)=List1.List(i-1):NextiFori=1Ton-1k=iForj=i+1Ton:If(13)Thenk=j:Nextjx=a(k):a(k)=a(i):a(i)=xNextiOpenCommonDialog1.FileNmaeForOutputAs#1Fori=1Ton:Print#1,a(i):NextiClose#1EndSub(10)A、OutputB、InputC、AppendD、Read(11)A、Eof(1)B、NotEof(1)C、Eof(fn)D、NotEof(fn)(12)A、CountB、ListCount-1C、ListD、(13)A、a(j)>a(k)B、a(j)<=a(k)C、a(j)<>a(k)D、a(j)<a(k)试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Text1.Text="":Form1.ClsEndSubPrivateSubText1_KeyPress(kAsInteger)StaticsAsIntegerIf(Chr(k)<"0"OrChr(k)>"9")Andk<>13Thenk=0Ifk=13Thens=s+Val(Text1.Text):Text1.Text="":Prints;EndSub(14)写出运行时在Text1中依次按“1↙3↙5↙”后窗体上的显示结果。A、149B、9C、135D、(15)写出运行时在Text1中依次按“2↙4↙6↙”后窗体上的显示结果。A、246 B、12C、6D、2612(16)写出运行时在Text1中依次按“1↙-3↙5↙”后窗体上的显示结果。A、1-23 B、149C、1-35D、3(17)写出运行时在Text1中依次按“1↙2a↙5↙”后窗体上的显示结果。A、14348B、125C、5D、138试题5（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateFunctionf(aAsInteger,bAsInteger)AsIntegerDimrAsInteger,tAsIntegerIfa<bThent=a:a=b:b=tDor=aModbIfr=0ThenExitDoa=b:b=rLoopf=bEndFunctionPrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=InputBox("m="):n=InputBox("n=")Form1.Cls:Printf(m,n)EndSub(18)运行时若输入m值为15、n值为25，窗体上的显示结果为：A、25B、15 C、5D、3(19)运行时若输入m值为24、n值为16，窗体上的显示结果为：A、24B、16C、8D、2(20)运行时若输入m值为123、n值为23，窗体上的显示结果为：A、100B、1C、23D、146试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubf(nAsInteger,kAsInteger,xAsString)DimmAsInteger,tAsIntegerx="":m=n:n=Abs(n)DoWhilen<>0t=nModkIfk=16Andt>9Thenx=Chr(Asc("a")+t-10)+xElsex=t&xn=n\kLoopIfm<0Thenx="-"+xEndSubPrivateSubCommand1_Click()DimxAsInteger,yAsInteger,sAsStringx=Inputbox("x="):y=Inputbox("y=")Callf(x,y,s)Form1.Cls:PrintsEndSub(21)运行时若输入x值为13、y值为2，窗体上的显示结果为：A、1011B、33 C、1101D、1001(22)运行时若输入x值为27、y值为8，窗体上的显示结果为：A、33B、1101 C、1011D、1001(23)运行时若输入x值为-14、y值为2，窗体上的显示结果为：A、-1110B、1101C、1101-D、1011(24)运行时若输入x值为123、y值为16，窗体上的显示结果为：A、123B、321C、b7D、7b试题7(28分)按照下列要求和规定的步骤编程：=1\*GB2⑴编制函数过程sum，用于计算1个整数的各位数字之和（如引用sum(132)的结果是6，引用sum(-23)的结果是5，等等）。=2\*GB2⑵编写事件过程Command1_Click，完成下列运算：=1\*GB3①输入10个数到整型数组a；=2\*GB3②将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)【要求调用函数sum实现】；=3\*GB3③在窗体上以一行输出a数组各元素值（保持原输入值不变）；=4\*GB3④在窗体上以一行输出b数组各元素值。2025年春计算机等级考试参考答案(二级VisualBasic)12345678BADCDCBA910111213141516ABBDAADB1718192021222324DCCBCAAD试题7（28分）PrivateFunctionsum(ByValnAsInteger)AsInteger'4分n=Abs(n)'2分DoWhilen>0sum=sum+nMod10'3分n=n\10'3分LoopEndFunctionPrivateSubCommand1_Click()Dima(10)AsInteger,b(10)AsInteger,iAsInteger'2分Fori=1To10a(i)=InputBox("ÇëÊäÈëa("&i&")")'3分NextiFori=1To10b(i)=sum(a(i))'4分NextiFori=1To10Printa(i);'3分NextiPrintFori=1To10Printb(i);'2分NextiEndSub2025年秋浙江省高等学校计算机等级考试试卷(二级VisualBasic)试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后计算a•x2＋b•x＋c的值并显示，界面设计以及运行时的显示分别如下图左、图右所示。要求在文本框中不可输入英文字母。【程序】PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,xAsSingle,yAsSinglea=Text1(0).Text:b=Text1(1).Textc=Text1(2).Text:x=Text1(3).Texty=a*x*x+b*x+cLabel3.Caption=yEndSubPrivateSubText1_(1)(IndexAsInteger,(2))SelectCase(3)Case"A"To"Z"K=0Case(4)K=0EndSelectEndSub【供选择的答案】(1)A、keyPressB、changeC、keydownD、keyup(2)A、keyAsciiAsInteger B、ValueC、Text()D、kAsInteger(3)A、Chr(KeyAscii)B、Chr(K)C、Asc(K) D、Asc(KeyAscii)(4)A、aToz B、'a'To'z' C、"a"To"z"D、'a'...'z'试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】过程f的功能是：返回Single类型数组n个元素的平均值，查找数组中最大值、最小值并通过相应的实参返回到调用处。该过程可以被其他模块中的过程所调用。(5)f(a()AsSingle,nAsInteger,(6))AsSingleDimiAsIntegermax=a(1):min=a(1)Fori=2TonIfa(i)>maxThenmax=a(i)Ifa(i)<minThenmin=a(i)(7)Nexti(8)【供选择的答案】(5)A、FunctionB、SubC、PrivateSubD、PrivateFunction(6)A、maxAsSingle,minAsSingleB、maxAsInteger,minAsIntegerC、ByvalmaxAsSingle D、ByvalmaxAsSingle,ByvalminAsSingle(7)A、f=f+a(i) B、f=f+a(i)/nC、f=a(i) D、f=a(i)/n(8)A、find=max B、EndSub C、find=minD、EndFunction试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后读入文件中所有数据(多于10个)，将其中较大的5个数、较小的5个数以及其他数分别在列表框控件List1、List3、List2中显示。【程序】PrivateSubCommand1_Click()DimnAsInteger,xAsSingle,iAsInteger,jAsInteger,kAsIntegerOpen"e:\score.txt"ForInputAs#1DoWhile(9)'统计文件中的数据个数nInput#1,x:n=n+1Loop(10)AsSingleClose#1:Open"e:\score.txt"ForInputAs#1'重新打开文件Fori=1TonInput#1,a(i)NextiClose#1Fori=1Ton-1k=iForj=i+1TonIf(11)Thenk=jNextjx=a(i):a(i)=a(k):a(k)=tIfi<=5ThenList1.AddItema(i)ElseIf(12)ThenList3.AddItema(i)ElseList21.AddItema(i)EndIfNextiEndSub【供选择的答案】(9)A、NotEof(1)B、Eof(1)C、Eof(1)=TrueD、Read(10)A、Dima(n)B、Redima(n)C、Redima()D、statica(n)(11)A、a(i)>a(k)B、a(i)<a(k)C、a(j)>a(k)D、a(j)<a(k)(12)A、i>=n-5B、i>n-5C、n>5试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】DimmAsIntegerPrivateSubCommand1_Click()DimaAsInteger,iAsInteger,fAsIntegera=InputBox("a=")f=1:i=2Whilei<=a/2IfaModi=0Thenf=f+ii=i+1m=m+1WendForm1.Cls:PrintfEndSub【供选择的答案】(13)运行时第1次单击Command1输入7后，窗体上的显示结果为：A、1B、3C、5D、(14)运行时第2次单击Command1输入8后，窗体上的显示结果为：A、2 B、7C、8D、6(15)运行时第3次单击Command1输入9后，窗体上的显示结果为：A、3 B、5C、7D、4(16)运行时3次单击Command1、并依次输入7、8、9后，变量m的当前值为：A、6B、7C、8D、3试题5（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateFunctionf(aAsInteger,bAsInteger)AsIntegerDimrAsInteger,tAsIntegerf=aDoWhilefModb<>0f=f+aLoopEndFunctionPrivateSubCommand1_Click()StatickAsIntegerDimmAsInteger,nAsIntegerm=InputBox("m=")n=InputBox("n=")k=k+1Form1.ClsPrintf(m,n)EndSub【供选择的答案】(17)运行时第1次单击Command1输入4、6后，窗体上的显示结果为：A、4B、24 C、8D、12(18)运行时第2次单击Command1输入15、10后，窗体上的显示结果为：A、150B、20C、30D、2(19)运行时第3次单击Command1输入4、10后，窗体上的显示结果为：A、10B、20C、40D、80(20)第4次单击Command1后，该事件过程中变量k的当前值为：A、4B、3C、0D、2试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。界面设计以及运行时HScroll1.Value值为90时的显示分别如下图左、图右所示。【程序】PrivateSubForm_Load()Picture1.Width=Picture1.HeightPicture1.Scale(-10,10)-(10,-10)Picture1.BorderStyle=0HScroll1.SmallChange=2:HScroll1.LargeChange=10EndSubPrivateSubHScroll1_Change()DimtAsSinglePicture1.Clst=HScroll1.Value*3.14159/180Label1.Caption=HScroll1.ValuePicture1.Circle(0,0),10,vbRedPicture1.Line(0,0)-(9*Cos(t),9*Sin(t))EndSub(21)决定运行时图片框控件边框不显示的相关属性为：A、BackColorB、ForeColorC、FillStyleD、BorderStyle(22)滚动条Value属性值为180时，以原点为起点的直线指向：A、12点方向B、9点方向C、6点方向D、3点方向(23)滚动条Value属性值为270时，以原点为起点的直线指向：A、12点方向B、9点方向C、6点方向D、3点方向(24)下列说法中正确的是：A、拖动滚动条滑块的过程中以及结束后都不会触发HScroll1_Change事件B、拖动滚动条滑块的过程结束后立即触发HScroll1_Change事件C、单击滚动条两端箭头时Value的增量为10或-10。D、单击滚动条上空白区域时Value的增量为2或-2。试题7(28分)编程，计算多项式的值。在文本框控件Text1、Text2中分别输入n、x后，按Command1可输入，按Command2可计算该多项式的值并以标签控件Label3显示。程序设计时的界面设计如下图左所示。运行时输入n为3、x为1.5，输入分别为1、2、3后的输出结果如下图右所示。请将答卷上各事件过程补充完整。2025年秋浙江省高等学校计算机等级考试参考答案（二级VB）试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）ABCDABCD(1)√(13)√(2)√(14)√(3)√(15)√(4)√(16)√(5)√(17)√(6)√(18)√(7)√(19)√(8)√(20)√(9)√(21)√(10)√(22)√(11)√(23)√(12)√(24)√试题7（28分）Dima()AsSingle,nAsIntegerPrivateSubForm_Load()Command1.Caption="数据输入"(2分)Command2.Caption="计算"(2分)EndSubPrivateSubCommand1_Click()'数据输入DimiAsInteger(2分)n=Text1.Text(2分)ReDima(n)(3分)Fori=1Tona(i)=InputBox("")(5分)NextiEndSubPrivateSubCommand2_Click()DimyAsSingle,iAsInteger,xAsSingle(1分)x=Text2.Text(1分)y=a(1)(1分)Fori=2Tony=y+a(i)*x^(i-1)(7分)NextiLabel3.Caption=y(2分)EndSub2025年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。例如：输入123显示321，输入-567显示-765。【程序】(1)PrivateSubForm_Load()(2)EndSubPrivateSubCommand1_Click()Text1.Text="":n=InputBox("n=")EndSubPrivateSubCommand2_Click()Ifn<0Thenn=-n:Text1.Text="-"Whilen<>0Text1.Text=(3)(4)WendEndSub【供选择的答案】(1)A、DimnAsByteB、DimnAsIntegerC、DimnAsStringD、PublicnAsByte(2)A、Text1.Locked=True B、Text1.Locked=FalseC、Text1.Visible=TrueD、Text1.Visible=False(3)A、n/10&Text1.TextB、nMod10&Text1.TextC、Text1.Text&n/10 D、Text1.Text&nMod10(4)A、n=n\10 B、n=n/10C、n=nMod10D、n=n-10试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。PrivateSubForm_Activate()P1.Height=P1.WidthP1.FontSize=10(5)(-10,110)-(110,-10)(6)P1.Line(-5,0)-(100,0)P1.Line(0,-5)-(0,100)Fori=(7)P1.Line(i,0)-(i,2)P1.Line(0,i)-(2,i)NextiFori=1To9P1.CurrentX=i*10-2P1.CurrentY=-2(8)NextiEndSub【供选择的答案】(5)A、P1.DrawB、P1.LineC、P1.PrintD、P1.Scale(6)A、P1.ForeColor=RGB(255,0,0)B、P1.FillColor=RGB(255,0,0)C、P1.FillColor=VbRed D、P1.ForeColor=Red(7)A、1To9Step1 B、10To90C、10To90Step10 D、(8)A、PSetiB、P1.Printi C、P1.PsetiD、Printi试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击“读文件”按钮将文本文件读入并逐行在列表框控件List1中显示；然后单击“分解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中。运行结果如下图所示。【程序】PrivateSubCommand1_Click()'读文件DimsAsStringOpen"e:\xxx.txt"For(9)As#1WhileNotEOF(1)LineInput#1,s:List1.AddItemsWendClose#1EndSubPrivateSubCommand2_Click()'分解DimiAsInteger,nAsInteger,s1AsString,s2AsStringFori=1To(10)n=Len(List1.List(i-1))ReDima(n)AsString*1Forj=1Tona(j)=(11)Nextjs1="":s2=""Forj=1TonIf(12)Thens1=s1+a(j)Elses2=s2+a(j)NextjList2.AddItems1List3.AddItems2NextiEndSub【供选择的答案】(9)A、ReadB、AppendC、InputD、Output(10)A、List1.CountB、ListCountC、ListCount-1D、List1.ListCount(11)A、Mid(List1.List(i-1),j,1)B、Middle(List1.List(i-1),j,1)C、Mid(List1.List(i-1),j)D、Middle(List1(i-1),j,1)(12)A、a(j)>='a'Anda(j)<='z'Ora(j)>='A'Anda(j)<='Z'B、a(j)>="a"Anda(j)<="z"Ora(j)>="A"Anda(j)<="Z"C、"a"<=a(j)<="z"Or"A"<=a(j)<="Z"D、(a(j)>='a'Anda(j)<='z')Or(a(j)>='A'Anda(j)<='Z')试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubText1_KeyPress(KAsInteger)IfK<Asc("0")OrK>Asc("9")ThenK=0ElseLabel1.Caption=Chr(K)+Label1.CaptionEndIfEndSub【供选择的答案】(13)Text1获得输入焦点后，依次按数字键1、3、5，Label1显示：A、135B、531C、9D、(14)Text1获得输入焦点后，依次按数字键2、7、9，Label1显示：A、972 B、279C、297D、18(15)Text1获得输入焦点后，依次按-、2、3、5键，Label1显示：A、-532 B、-235C、532D、235(16)Text1获得输入焦点后，依次按1、2、a、5键，Label1显示：A、空白B、12a5C、5a试题5（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()StatickAsByteForm1.CurrentX=0:Form1.CurrentY=0'窗体的所有其他属性均取缺省值Form1.ClsIfk=0Thenk=1Elsek=0Ifk=0ThenForm1.ForeColor=RGB(0,255,0)Else_Form1.ForeColor=RGB(0,0,255)PrintTimeEndSub【供选择的答案】(17)激活Timer1后，每间隔1秒显示一次系统时间，方式是：A、蓝、绿色交替显示B、蓝色显示C、绿色显示D、红色显示(18)系统时间的显示位置，是在：A、窗体右上角B、窗体左上角C、窗体右下角D、窗体左下角(19)如果将Timer过程中的语句“StatickAsByte”改为“DimkAsByte”，激活Timer1后，窗体系统时间显示上的颜色为：A、蓝、绿色交替B、蓝色C、绿色D、红色(20)如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是：A、Date,TimeB、Date;TimeC、Date-TimeD、Date+Time试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubf(b()AsInteger,ByRefmAsInteger)DimiAsInteger,jAsInteger,kAsIntegeri=1DoWhilei<=mForj=1TomIfb(i)Modb(j)=0Andi<>jThenFork=iTom-1:b(k)=b(k+1):NextkExitForEndIfNextjIfj>mTheni=i+1Elsem=m-1LoopEndSubPrivateSubCommand1_Click()Dima(6)AsInteger,iAsInteger,nAsIntegern=6Fori=1To6:a(i)=InputBox("a("&i&")="):NextiCallf(a,n)Fori=1Ton:Printa(i);:NextiEndSub(21)单击Command1输入7、8、5、4、9、3后，相应的显示结果为：A、893B、893333C、754333D、7543(22)如果将过程f首句中的“ByRef”改为“Byval”，输入数据同(21)，显示结果为：A、893B、893333C、754333D、7543(23)单击Command1输入4、12、27、8、-6、3后，相应的显示结果为：A、433333B、43C、12278-6D、12278(24)如果将过程f首句中的“ByRef”改为“Byval”，输入数据同(23)，显示结果为：A、433333B、43C、12278-6D、12278

试题7（28分）编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。PrivateFunctionf()AsSingleEndFunctionPrivateSubCommand1_Click()Dima(10)AsSingle,iAsInteger,vAsSingle,xAsSingle,dAsSingle'输入数据'计算平均值v'将与v之差的绝对值为最小的那个数组元素赋值给x，输出x。EndSub

2025年春浙江省高等学校计算机等级考试参考答案（二级VB）试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）ABCDABCD(1)√(13)√(2)√(14)√(3)√(15)√(4)√(16)√(5)√(17)√(6)√(18)√(7)√(19)√(8)√(20)√(9)√(21)√(10)√(22)√(11)√(23)√(12)√(24)√

试题7(28分)编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。PrivateFunctionf(b()AsSingle,nAsInteger)AsSingle'2分DimiAsInteger'1分Fori=1Ton'5分f=f+b(i)Nextif=f/n'2分EndFunctionPrivateSubCommand1_Click()Dima(10)AsSingle,iAsInteger,vAsSingle,xAsSingle,dAsSingle'输入数据(3分)Fori=1To10a(i)=InputBox("a("&i&")=")Nexti'计算平均值v(3分)v=f(a,10)'将与v之差的绝对值为最小的那个数组元素赋值给x。x=a(1):d=Abs(a(1)-v)'2分Fori=2To10IfAbs(a(i)-v)<dThend=Abs(a(i)-v)'绝对值2分，其他6分x=a(i)EndIfNextiPrintx'2分EndSub2025年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)说明：（1）请将所有试题的答案填写在试卷上。其中试题1~试题6在答卷上各小题正确选项的对应位置处填“√”：（2）请在答卷上填写学校名称、准考证号和姓名，并将你的准考证号的后五位填写在答卷右下角的指定位置内：（3）考试时间为90分钟。试题1(每小题3分，共12分)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入n后，计算并显示下列表达式的值。运行时初始界面如下图左所示，输入10并按回车键后的界面如下图中所示(输入数若小于1则清空文本框，需重新输入)，按“计算”按钮后的界面如下图右所示。【程序】DimnAsIntegerPrivateSubForm_Load()Command1.（1）EndSubPrivateSub（2）(KAsInteger)IfK<>13ThenExitSub（3）Ifn>0ThenCommand1.Enabled=TrueText1.Enabled=FalseElseText1.Text=""EndIfEndSubPrivateSubCommand1_Click()DimyAsSingle,iAsIntegerFori=1Ton（4）NextiLabel3.Caption=yCommand1.Enabled=FalseText1.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\n