计算机二级VB第6章选择题及答案

计算机二级VB第6章选择题及答案计算机二级VB第6章选择题及答案计算机二级VB第6章选择题及答案资料仅供参考文件编号：2022年4月计算机二级VB第6章选择题及答案版本号：A修改号：1页次：1.0审核：批准:发布日期：窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()a=Val(InputBox("请输入分数：","计算你的等级",60))Ifa<0Ora>100ThenPrint"输入错误"ElseIfa<60ThenPrint"不及格"ElseIfa<80ThenPrint"合格"ElsePrint"优秀"EndIfEndSub运行时，单击按钮，在输入对话框中直接回车，输出结果为（）。输入错误不合格合格优秀窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()DimiAsIntegerDimsumAsIntegersum=0Fori=1To200sum=sum+iIfiMod19=18ThenExitForEndIfNextiPrintsumEndSub运行时，单击按钮，输出结果为（）。201000190171运行下列程序，单击窗体后输出的结果是（）。PrivateSubForm_Click()DimkAsIntegerFork=1To2Print"3"+k;"3"&k;Spc(3);NextEndSub31 3132 3231 31 32 324 315 324 31 5 32下列程序段的执行结果是（）。X=3:Y=5:z=9X=X+YY=X-YIfX+Y>Z-XThenz=X+YIfX+Y>Z-YThenX=z+YPrintX,Y,Z3 5 914 3 118 3 118 5 9执行下列程序段后输出的结果是（）。s=1Fori=1To3Forj=0Toi-1s=s+s*jNextjPrints;NextI1 22 12 2 121 2 12窗体上有一个命令按钮command1，编写如下事件过程：PrivateSubCommand1_Click()DimiAsIntegerDimsumAsIntegerFori=1Toi+99sum=sum+ii=i+1NextiPrintsumEndSub运行时单击按钮，输出结果是（）。编译错误24012500变量sum溢出执行下列程序段后，窗体输出的结果是（）。DimaAsIntegera=Val(InputBox("请输a的值",,6))SelectCaseaCase1To4Print"A"CaseIs>3Print"B"Case5To10Print"C"CaseElsePrint"D"EndSelectABCD有如下程序段：PrivateSubForm_Click()Dims%,t%,a%,b%s=1:t=1a=Valb=ValIfa>0Thens=s+1Ifa>bThent=t+sElseIfa=bThent=5Elset=2*sEndIfEndIfPrinttEndSub要使程序输出结果为4，则a和b应满足的条件是（）。a>0anda<ba<0anda<ba>0anda>ba<0anda>b窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()Dimi%,j%,x%,n%x=0n=InputBox("")Fori=1TonForj=1Toix=x+jNextjNextiPrintxEndSub运行时单击命令按钮，如果在输入对话框中输入3，则窗体上显示的内容是（）。6101418已知字母D的ASCII码是68。在窗体上添加命令按钮Command1，并编写如下事件过程，要使单击按钮输出如下结果，程序中空缺的部分应为（）。DDEDEFEDEFGFEDEFGPrivateSubCommand1_Click()m=68:a="D"PrintaFori=()m=m+1a=Chr(m)+a+Chr(m)PrintaNextiEndSub0to41to31to41to5运行下列程序段，其中n=n+1语句被执行的次数是（）Dimm%,n%Form=1to3Forn=1to6Step2n=n+1PrintnNextNext36918窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()Fori=1To4Forj=4To8Sum=Sum+1NextjNextiPrintSumEndSub运行时单击按钮，输出的结果是（）。482032执行下列程序段后，x的值是（）。n=5:x=1:I=1Dox=x*II=I+1LoopWhileI<n101524120窗体上有一个命令按钮Command1,编写如下事件过程PrivateSubCommand1_Click()Sum=0Form=1To3SelectCasemCase1a=1Case2a=2Case3a=3EndSelectPrintaSum=Sum+aNextmPrintSumEndSub单击命令按钮输出结果是（）。3 3 3 93 2 1 61 1 1 31 2 3 6窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()a=0Form=1To3a=a+1b=0Forj=1To3a=a+1b=b+2NextjNextmPrinta,bEndSub运行时，单击按钮，输出结果为（）。6 66 1812 612 18窗体上有一个命令按钮（command1），编写如下事件过程：PrivateSubCommand1_Click()a=80:b=50:c=30Ifa<bOrb>cThenb=cIfb=cAnda<cThena=a-30Ifa=bAndb>cThenc=a+bPrinta,b,cEndSub运行时单击命令按钮，窗体输出的结果是（）。80 50 3080 30 3050 30 8050 30 30阅读下列程序段：m=0Fori=1To3Forj=1Toim=m+jNextj,i执行以上的循环后，i和m的值分别为（）。3 63 104 64 10阅读下列程序段：x=0Fori=1To4Forj=1ToiX=x+1Nextj,i执行以上的循环后，x的值为（）。691016如下程序段的功能是计算1/2+1/4+1/6+……+1/50,并显示结果PrivateSubCommand1_Click()DimiAsIntegerDimsumAsDoublei=［1］sum=0DoWhile(i<=50)sum=sum+1/［2］i=i+2LoopPrintsumEndSub［1］［2］处分别填写（）。2，sum2，I0，sum1，I以下条件语句错误的是（）。IfxTheny=y+1Ifx=0Theny=0Ifx>0Theny=1:PrintyIfx>yThenPrintyEndIf窗体上有两个文本框（Text1、Text2）和一个命令按钮（Command1），编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+4)n=n+1Loop=CStr(n)=CStr(x)EndSub运行时，单击命令按钮，Text1和Text2将分别显示（）。0和01和82和1203和15180窗体上有命令按钮Command1和Command2，阅读下列程序：DimaAsIntegerPrivateSubForm_Load()a=0:a=a+1EndSubPrivateSubCommand1_Click()DimaAsIntegera=a+2Printa,EndSubPrivateSubCommand2_Click()PrintaEndSub运行时，先后单击Command1和Command2按钮，输出的结果为（）。2 13 12 21 1下列程序段的执行结果是（）。x=100:y=80:z=30Ifx>yOry<zTheny=zIfy=zAndx>zThenx=x-zPrintx,y,z70303010030307080301008030运行下列程序，单击窗体后输出的结果是（）。PrivateSubForm_Click()s=1Fori=1To2Forj=0Tois=s+s*jPrints;Spc(2);NextjPrintNextiEndSub12412122412 241212126执行下列程序段后，x的值是（）。n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei<n101524120在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=-5IfSgn(x)Theny=Sgn(x^2)Elsey=Sgn(x)EndIfPrintyEndSub程序运行后,单击命令按钮,窗体上显示的是（）。-5251-1下列程序段是求两个数中的最大数，其中不正确的是（）。Ifa<bThenMax=bElseMax=aMax=IIf(a>b，a，b)Max=a:Ifb>=aThenMax=bIfb>=aThenMax=b:Max=a以下程序段的输出结果是（）。M=24:N=18A=M:B=NR=MModNDoWhileR<>0M=NN=RR=MModNLoopPrintA*B/N62472432假定有如下事件过程：PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<32x=x*3n=n+1LoopPrintx,nEndSub程序运行后，单击窗体，输出结果是（）。81 456 328 1243 5下列程序段的运行结果是（）。PrivateSubForm_Click()Fori=1To5SelectCaseiMod2Case0Print"*"ExitForCase1Print"$"CaseElsePrint"#"EndSelectNextiEndSub*#$**$$#如下程序段的功能是：从键盘上输入若干学生的考试分数，当输入负数时结束输入，然后输出其中最高的分数和最低的分数。PrivateSubForm_Click()DimxAsSingle,mmaxAsSingle,mminAsSinglex=InputBox("请输入学生的考试分数")mmax=xmmin=xDoWhile［1］If［2］Thenmmax=xEndIfIfx<mminThenmmin=xEndIfx=InputBox("请输入学生的考试分数")LoopPrint"Max=";mmax,"Min=";mminEndSub程序的空缺处［1］和［2］应分别填写（）。x>=0和x>mmaxx>=0和x<mminx<0和x>mmaxx<0和x<mmin窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()i=SelectCaseiCase1:j="+"Case2:j="-"Case3:j="*"CaseElse:j="非法"EndSelect=jEndSub运行时，在Text1中输入1后单击命令按钮，Text1中内容是（）。+-*非法在窗体上有两个列表框List1、List2，一个命令按钮Command1，有5个列表项，为空，程序运行后，单击Command1，List1和List2中分别有（）个字段。PrivateSubCommand1_Click()DimiAsIntegerFori=1To-1(1)=True1NextiEndSub0和51和45和04和1窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()x=InputBox(x)Ifx^2=16Theny=xIfx^2<16Theny=1/xIfx^2>16Theny=x^2+1PrintyEndSub运行时，单击按钮，在输入框中输入6后回车，窗体上将显示（）。63765下列程序段的执行结果是（）。n=1j=1DoWhilej<=4n=n*jPrintn;j=j+1Loop1 2 3 41 2 6 242 4 6 81 4 7 11设有以下程序段：Fori=1To4Forj=6To1Step-1Printi*jNextj,i 则语句Printi*j的执行次数是（）。12132425执行下列程序段后，窗体显示的内容为PrivateSubForm_Click()a=85Ifa>=60Theni=i+1ElseIfa>=70Theni=i+2ElseIfa>=80Theni=i+3ElseIfa>=90Theni=i+4EndIfPrint"i=",iEndSubi=1i=2i=3i=4窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<10x=(x-2)*(x+3)n=n+1LoopEndSub运行时单击按钮，n和x的值分别是（）。1和02和243和504和68下列循环语句能正常结束循环的是（）。i=5Doi=i+1LoopUntili<0i=1Doi=i+2LoopUntili=10i=10Doi=i-1LoopUntili<0i=6Doi=i-2LoopUntili=1执行下列程序段后，x的值是（）。n=6:x=1:I=1Dox=x*II=I+1LoopWhileI<n1201621执行以下程序段后，窗体显示的内容为PrivateSubForm_Click()a=75Ifa>=60Theni=i+4ElseIfa>=70Theni=i+3ElseIfa>=80Theni=i+2ElseIfa>=90Theni=i+1EndIfPrint"i=",iEndSubi=4i=3i=2i=1以下程序段的执行结果是（）。n=2j=1DoWhilej<4n=n*jPrintn;j=j+1Loop2 3 42 6 242 4 82 4 12运行下列程序段，n的值是（）Dimm%,n%Form=1to3Forn=1to6Step2n=n+1NextNext9173执行以下程序段后，窗体显示的内容为（）。PrivateSubForm_Click()s=2Fori=1To2Forj=0Tois=s+s*jPrints;Spc(2);NextjPrintNextiEndSub248241224 122 44 8244824以下程序段的执行结果是（）。DimaAsInteger,bAsInteger,cAsIntegera=14:b=9:c=5:a=a+b:c=c+bIfa-c>b-cThena=b+cIfa-b>b-cThenb=a-cPrinta,b,c14 9 1423 9 1423 14 914 9 5执行以下程序段后输出的结果是（）。Fori=1To3x=4Forj=1To4x=x+6NextjNextiPrintx;16242822以下程序段的执行结果是（）。n=2j=1DoWhilej<4n=n*jPrintn;j=j+1Loop2 3 4 2 6 24 2 4 122 4 8运行下列程序，单击窗体后输出的结果是（）。PrivateSubForm_Click()s=1Fori=1To2Forj=1Tois=s+s*jPrints;Spc(2);NextjPrintNextiEndSub24 1224 61 24 121 22 4窗体上有一个命令按钮Command1，编写如下事件过程： PrivateSubCommand1_Click() Dimi%,j%,x%,n% x=0 n=InputBox("") Fori=1Ton Forj=1Toi x=x+j Nextj Nexti Printx EndSub运行时，单击命令按钮，如果在输入对话框中输入3，则窗体上显示的内容是（）。6101418窗体上有命令按钮Command1和Command2，阅读下列程序： PrivateSubCommand1_Click() a=a+1:Printa； EndSub PrivateSubCommand2_Click() a=a+1:Printa EndSub运行时，先后单击Command1和Command2按钮，输出的结果为（）。11221221执行下列程序段后，窗体输出的结果是（）。 DimXAsInteger,YAsInteger Y=Val(InputBox("请输入a的值",,9))'直接按回车键 SelectCaseYCaseIs<10x=x+1 Case5,7,9,11x=x+2 Case5To15x=x+3CaseElsex=x+4 EndSelect Printx1256窗体上有一个命令按钮Command1，编写如下事件过程： PrivateSubCommand1_Click() Dima%,b% a=6:b=-1 Ifa<0Orb<0Then a=b ElseIfa>0Then a=a+b ElseIfa<0Andb<0Then b=a Else b=a*bEndIfPrinta,b EndSub运行时，单击按钮，窗体输出的结果为（）。665-16-6-1-1下列程序段的执行结果是（）。 DimxAsDouble DimyAsDouble x=Int(42\4)+3 SelectCasexCaseIs<3 y=x+1CaseIs<12 y=2*x+5CaseElse y=3*x+11 EndSelect Printy25755014下列程序段的执行结果是（）。x=5:y=7:z=41-5CDDBD31-35AABCB6-10CBABB36-40CABCA11-15BCCDC41-45ADCDB16-20BDCBD46-50CCABA21-25CAACC51-55ADCCB26-30CDCAB56-60ABCCBIfx<yThent=x:x=y:y=tEndIfIfy<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEndIfEndIfPrintx,y,z574457754547运行下列程序，单击窗体后输出结果是（）。PrivateSubForm_Click()Dimi%,j%,k%i=