计算机二级VB题库答案

《计算机二级VB题库答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、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()AsLongDimiAsIntegerDimn

2、AsIntegerFori=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

3、=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()DimsumAsLongDimnAsInteg

4、erDimiAsIntegern=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个？处

5、填入：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个？处填入：Lis

6、t1.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()ReadD

7、ataEndSubPrivateSubSave_Click()WriteData"dataout.txt",sumEndSub6.第1个？处填入：1000第2个？处填入：Min第3个？处填入：arrN(i)arrN(i)参考答案FunctionFun()DimsAsInteger,iAsIntegerFori=0To1000IfiMod7<>0Thens=s+1EndIfNextiFun=sEndFunction参考答案Pri