计算机二级VB题库答案

1.参考答案Index；a参考答案PrivateSubC1_Click()Text1.Text=我是IfOp1.ValueThenText1.Text=Text1.Text&Op1.CaptionElseText1.Text=Text1.Text&Op2.CaptionEndIfIfOp3.ValueThenText1.Text=Text1.Text&Op3.CaptionElseText1.Text=Text1.Text&Op4.CaptionEndIfEndSub答案PrivateSubCommand1_Click()Dima()AsLongDimiAsIntegerDimnAsIntegerFori=0ToOp1.Count-1IfOp1(i).Value=TrueThenn=Val(Op1(i).Caption)ExitForEndIfNextReDima(n)a(1)=1a(2)=1Fori=3Tona(i)=a(i-1)+a(i-2)NextText1.Text=a(n)EndSub2.第1个？：True第2个？：Height第3个？：False第1个？：tmp*a第2个？：tmp第3个？：xn(t,i)第4个？：zDimaAsIntegerDimbAsIntegera=0b=arr(1)Fori=1To40Ifprime(arr(i))Thena=a+1Label3.Caption=aNextFori=1To40Ifprime(arr(i))Andarr(i)=bThenb=arr(i)Label4.Caption=bNext3.DimiAsIntegerDimmaxAsInteger,minAsIntegermax=-1min=1000Fori=1To100Ifisnarc(a(i))ThenIfmax=a(i)Thenmax=a(i)Ifmin=a(i)Thenmin=a(i)EndIfNextiText1=maxText2=minPrivateSubC1_Click()DimsumAsLongDimnAsIntegerDimiAsIntegern=Val(Cb1.Text)Fori=nTo5000IfiModn=0Thensum=sum+iEndIfNextiText1.Text=sumEndSub第1个？处填入：1第2个？处填入：2第3个？处填入：Text1.Text＋Text3.Text第4个？处填入：Text2.Text＋Text3.Text4.PrivateSubCommand1_Click()Combo1.AddItemText1EndSubPrivateSubCommand2_Click()PrintCombo1.ListCountEndSub第1个？处填入：Caption第2个？处填入：m第3个？处填入：k第4个？处填入：a第1个？处填入：a(k)第2个？处填入：ch排序按钮的代码PrivateSubC2_Click()DimtAsIntegerDimiAsIntegerDimjAsIntegerDimchAsStringch=Fori=50To2Step-1Forj=1To49Ifa(j)a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiForj=1To50ch=ch+Str(a(j))+NextjText2.Text=chEndSub5.第1个？处填入：Text1.Text第2个？处填入：List1.ListCount－1第3个？处填入：Text1.Text第4个？处填入：i第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：a第4个？处填入：第5个？处填入：a(i)第6个？处填入：arr2参考答案考生编写代码DimsumAsInteger考生编写结束考生编写代码PrivateSubCalc_Click()Text1.Text=Fori=2To100Step2Text1.Text=Text1.Text&Arr(i)&Space(5)sum=sum+Arr(i)NextiPrintsumEndSubPrivateSubRead_Click()ReadDataEndSubPrivateSubSave_Click()WriteDatadataout.txt,sumEndSub6.第1个？处填入：1000第2个？处填入：Min第3个？处填入：arrN(i)Min或MinarrN(i)参考答案FunctionFun()DimsAsInteger,iAsIntegerFori=0To1000IfiMod70Thens=s+1EndIfNextiFun=sEndFunction参考答案PrivateSubC1_Click()CallReadData1CallReadData2EndSubPrivateSubC2_Click()DimArr3(1To20)AsIntegerDimsumAsIntegersum=0Fori=1To20Arr3(i)=Arr1(i)-Arr2(i)sum=sum+Arr3(i)NextiPrintsum=;sumWriteDatadataout.txt,sumEndSub7.参考答案PrivateSubC1_Click()Text1.PasswordChar=EndSubPrivateSubC2_Click()Text1.PasswordChar=?EndSubPrivateSubC3_Click()Text2.Text=Text1.TextEndSub参考答案PrivateSubP1_Click()CD1.ShowOpenEndSub参考答案Functionfoundhuiwen(pAsString)IfStrReverse(p)=pThenfoundhuiwen=TrueEndFunction8.参考答案PrivateSubM1_Click()Text1.FontBold=TrueEndSubPrivateSubM2_Click()Text1.FontItalic=TrueEndSubPrivateSubM3_Click()Text1.FontUnderline=TrueEndSubPrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenMe.PopupMenuFormatEndIfEndSub参考答案第1个？处填入：Show第2个？处填入：Caption第3个？处填入：k第4个？处填入：PasswordChar参考答案第1个？处填入：Text1.Text第2个？处填入：PasswordChar第3个？处填入：0第4个？处填入：False9.参考答案第1个？处填入：n第2个？处填入：0第3个？处填入：fun=s参考答案第1个？处填入：Step－1第2个？处填入：List1.List(k)第3个？处填入：k第4个？处填入：Text1或Text1.Text参考答案第1个？处填入：0第2个？处填入：stepy第3个？处填入：Timer1.Enabled第4个？处填入：Timer1.Enabled第5个？处填入：stepy10.参考答案第1个？处填入：Command1第2个？处填入：Label1第3个？处填入：Control第4个？处填入：Label2.Caption参考答案第1个？处填入：False第2个？处填入：True第3个？处填入：8第4个？处填入：0参考答案Max=a(i,1)Forj=1To5IfMaxa(i,j)ThenMax=a(i,j)EndIfb(i)=MaxIfMax=a(i,j)Thenc(i)=jNextj11.参考答案第1个？处填入：AddItemText1.Text第2个？处填入：48第3个？处填入：0参考答案第1个？处填入：m第2个？处填入：f(i)第3个？处填入：t第4个？处填入：t*i第5个？处填入：t参考答案PrivateSubCommand1Click()DimiAsIntegerDimjAsIntegerDimkAsIntegerFori=1To60Forj=1To60Fork=1To60Ifi^2=j^2+k^2Thenm=m+1EndIfNextkNextjNextiLabel1=m/212.参考答案第1个？处填入：Text1,1第2个？处填入：ch第3个？处填入：n参考答案第1个？处填入：True第2个？处填入：red_color第3个？处填入：Shape1.Left第4个？处填入：Shape1.Top第5个？处填入：blue_color参考答案第1个？处填入：2第2个？处填入：CommonDialog1.FileName第3个？处填入：s第4个？处填入：2PrivateSubCommand2Click()DimchAsStringDimsAsStringDimnAsLongs=Text1.TextText1.Text=Forn=1ToLen(s)ch=Mid(s,n,1)Ifch=EOrch=NOrch=TThench=LCase(ch)ElseIfch=eOrch=nOrch=tThench=UCase(ch)EndIfText1.Text=Text1&chNextEndSub13.参考答案第1个？处填入：st第2个？处填入：c第3个？处填入：word参考答案？处填入：Left=PrivateSubC1_Click()Timer1.Enabled=TrueEndSubPrivateSubC2_Click()Timer1.Enabled=FalseEndSub参考答案Fori=1ToVal(Text1.Text)IfIsPrime(i)AndIsPrime(Val(Text1.Text)-i)ThenLabel1=iLabel2=Val(Text1.Text)-iExitForEndIfNexti14.参考答案第1个？处填入：Y第2个？处填入：X1第3个？处填入：radius&第4个？处填入：Label1参考答案第1个？处填入：12第2个？处填入：1第3个？处填入：ss=0Fork=1Tons=s+f(k)NextText1=s参考答案Form2中第1个？处：1Form2中第2个？处：0Form2中第3个？处：Form1.Label1Form3中第1个？处：0Form3中第2个？处：k,215.参考答案第1个？处填入：5第2个？处填入：a第3个？处填入：4第4个？处填入：s第5个？处填入：Text3参考答案PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimmAsLongDimsumAsLongm=1Ifn=10Orn=12ThenFori=2Tonm=i*mNextText1.Text=mEndIfsum=0Ifn=2000Orn=1000ThenForj=1Tonsum=sum+jNextText1.Text=sumEndIfEndSub参考答案第1个？处填入：b第2个？处填入：b第3个？处填入：n第4个？处填入：b16.参考答案第1个？处填入：True第2个？处填入：Line1.Y1第3个？处填入：Shape1.Height参考答案PrivateSubCommand2_Click()考生编写DimkAsLongDimmAsLongDimqAsLongDimpAsLongDimrAsLongDimnAsLongFork=1To100Ifa(k)Mod2=0Thenm=m+a(k)q=q+1Elsen=n+a(k)p=p+1EndIfNextkr=Int((m+n)/(p+q)+0.5)m=Int(m/q+0.5)n=Int(n/p+0.5)SelectCaseCombo1.TextCase所有偶数Text1=mCase所有奇数Text1=n