計算機二級真題-計算機二級真題題庫及答案2022版

3.DimiAsIntegera(J)=t

1.參考答案Index：aDimmaxAsInteger,minEndIf

參考答案PrivateSubAsIntegerNextj

Cl_Click()max=-1Nexti

min=1000Forj=1To50

TextI.Text="我是〃

Fori=1To100ch=ch+Str(a(j))+"n

IfOpl.ValueThen

Ifisnarc(a(i))ThenNextj

Textl.Text=Textl.Text&

Ifmax<=a(i)ThenmaxText2.Text=ch

Opl.Caption

=a(i)EndSub

ElseIfmin>=a(i)Thenmin

Textl.Text=Textl.Text&=a(i)5.第1個處填入：Textl.Text

0p2.CaptionEndIf第2個處填入：List1.ListCount—

EndIfNexti1

If0p3.ValueThenTextl=max第3個處填入：Textl.Text

Text2=min

Textl.Text=Textl.Text&第4個處填入：i

0p3.Caption

PrivateSubCl_Click()

Else第1個處填入：LBound

DimsumAsLong

第2個處填入：UBound

Textl.Text=Textl.Text&DimnAsInteger

0p4.CaptionDimiAsInteger第3個處填入：a

EndIfn=Val(Cbl.Text)第4個處填入：v

EndSubFori=nTo5000第5個處填入：a(i)

IfiModn=0Then第6個處填入：arr2

sum=sum+i

答案PrivateSub

Commandl_Click()EndIf參考答案

Dima()AsLongDimiAsNexti考生編寫代碼

Textl.Text=sum

IntegerDimnAsIntegerDimsumAsInteger

EndSub

Fori=0ToOp1.Count-1考生編寫結(jié)束

IfOpl(i).Value=TrueThen考生編寫代碼

第1個處填入：1第2個處填入：2

n=Val(Opl(i).Caption)PrivateSubCalc_CIick()

第3個處填入：Textl.Text+

ExitForTextl.Text=,u,

Text3.Text

EndIfFori=2To1(X)Step2

Next第4個處填入：Text2.Text+Text1.Text=Textl.Text&Arr(i)&

ReDima(n)Text3.TextSpace(5)

a(1)=1a(2)=1sum=sum+Arr(i)

Fori=3Ton4.PrivateSubCommand1_Click()Nexti

a(i)=a(i-1)+a(i-2)

ComboI.AdditemTextlPrintsum

NextEndSubEndSub

Textl.Text=a(n)PrivateSubCommand2_CIick()PrivateSubRead_Click()

EndSubPrintCombo1.ListCountReadData

EndSubEndSub

2.PrivateSubSave_CIick()

第1個：True第2個:Height第1個處填入：CaptionWriteData"dataout.txt*',sum

和3個

：False第2個處填入：mEndSub

招1個

：tmp*a第3個處填入：k

福2個

：tmp第4個處填入：a6.第1個處填入：1000

符3個

：xn(t,i)第2個處填入：Min

街4個

：z第1個處填入：a(k)第3個處填入：arrN(i)<Min或

第2個處填入：chMin>arrN(i)

DimaAsIntegerDimbAs“排序”按鈕的代碼參考答案

IntegerPrivateSubC2_Click()FunctionFun()

a=0b=arr(l)DimtAsIntegerDinisAsInteger,iAsInteger

Fori=1To40DimiAsIntegerFori=0To100()

Ifprime(arr(i))Thena=a+1DimjAsIntegerIfiMod7<>OThen

Label3.Caption=aDinichAsStrings=s+1

Nextch=EndIf

Fori=1To40Fori=50To2Step-INexti

Ifprime(arr(i))Andarr(i)<=Forj=1To49Fun=s

bThenb=arr(i)Ifa(j)>a(j+1)ThenEndFunction

Label4.Caption=bt=a(j+l)

Nexta(i+l)=a(j)參考答案

PrivateSubCl_Click()IfButton=2Then第2個處填入：f(i)

CailRcadData!Me.PopupMenuFormat第3個處填入：t

CallRcadData2EndIf第4個處填入：t*i

EndSubEndSub第5個處填入：t

參考答案

參考答案

PrivateSubC2_Click()第個處填入：

1ShowPrivateSubCommand1Click()

DimArr3(lTo20)As

第2個處填入：CaptionDimiAsInteger

Integer

第3個處填入：kDimjAsInteger

DimsumAsInteger

第4個處填入：PasswordCharDimkAsInteger

sum=0

Fori=1To60

Fori=1To20參考答案

Forj=1To60

Arr3(i)=Arrl(i)-第1個處填入：Textl.Text

Fork=1To60

Arr2(i)第2個處填入：PasswordChar

IfiA2=jA2+kA2Then

sum=sum+第3個處填入：0

m=m+1

Arr3(i)

第4個處填入：FalseEndIf

Nexti

Nextk

Print"sum=";sum

9.參考答案Nextj

WriteData"dataout.txt*',

第1個處填入：nNexti

sum

第2個處填入：0Label1=m/2

EndSub

第3個處填入：fun=s

12.參考答案

7.參考答案參考答案

第個處填入：

PrivateSubCl_Click()第］個處填入：Step—11Textl,1

TextI.PasswordChar=第2個處填入：Listl.List(k)第2個處填入：ch

Hl*

第3個處填入：k第3個處填入：n

EndSub第4個處填入：Textl或Texll.Text參考答案

PrivateSubC2_Click()參考答案第1個處填入：True

Text1.PasswordChar=

第1個處填入：()第2個處填入：redcolor

第2個處填入：stepy第3個處填入：Sh叩el.Left

EndSub

第4個處填入：Sh叩el.Top

PrivateSubC3_Click()第3個處填入：Timerl.Enabled

Text2.Text=Text1.Text第4個處填入：Timerl.Enabled第5個處填入：blue_color

EndSub第5個處填入：stepy參考答案

參考答案第1個處填入：2

PrivateSubPl_Click()10.參考答案第2個處填入：

CD1.ShowOpen第1個處填入：Command1CommonDialogl.Ei1eName

EndSub第2個處填入：Label1第3個處填入：s

參考答案第3個處填入：Control第4個處填入：2

Functionfoundhuiwen(pAs第4個處填入：Label2.CaptionPrivateSubCommand?Click()

String)

參考答案DimchAsString

IfStrReverse(p)=p

第1個處填入：FalseDimsAsString

Thenfbundhuiwen=TrueDimnAsLong

第2個處填入：True

EndFunctions=Textl.Text

第3個處填入：8Textl.Text=,,H

8.參考答案第4個處填入：()Forn=1ToLen(s)

PrivateSubMl_Click()參考答案ch=Mid(s,nJ)

Textl.FontBold=TrueMax=a(i,1)Ifch="E"Orch="N"Orch=

EndSubForj=!To5nT"Then

IfMax<a(i,j)Thench=LCase(ch)

PrivateSubM2_Click()Max=a(i,j)Elselfch="e"Orch="n"Orch=

Textl.Fontltalic=TrueEndIf'"t"Then

EndSubb(i)=Maxch=UCase(ch)

IfMax=a(i,j)Thenc(i)=jEndIf

PrivateSubM3_Click()NextjText1.Text=Textl&ch

Textl.FontUnderline=TrueNext

EndSub11.參考答案EndSub

第1個處填入：AdditemTextl.Text

PrivateSub第2個處填入：4813.參考答案

Text1_MouseDown(ButtonAs

第3個處填入：()第1個處填入：st

Integer,第2個處填入：c

ShiftAsInteger,XAsSingle,參考答案

第3個處填入：word

YAsSingle)第1個處填入：m

參考答案Ifn=2022Orn=1000Thenn=n+1

處填入：Left=Forj=1TonEndIf

PrivateSubCl_Click()sum=sum+jNextm

Timer1.Enabled=TrueNextNextk

Textl=Fix(sum/n)

EndSubTextl.Text=sum

PrivateSubC2_Click()EndIfEndSub

Timer1.Enabled=FalseEndSub參考答案

EndSub參考答案第1個處填入：”演示”

參考答案第1個處填入：b第2個處填入：Timeri.Enabled

Fori=1ToVal(Textl.Text)第2個處填入：b第3個處填入：Timer1.Enabled

IfIsPrime(i)And第3個處填入：n第4個處填入：Label1.Left+

IsPrime(Val(Textl.Text)-i)Then第4個處填入：bLabel1.Width

Label1=i第5個處填入：Label1.Left

Label2=Val(Textl.Text)-i16.參考答案參考答案

ExitFor

第1個處填入：True第1個處填入：9

EndIf

第2個處填入:Linel.YI

Nexti第2個處填入：i-1

第3個處填入：ShapeI.Height第3個處填入：fmax

14.參考答案參考答案第4個處填入：fmax

PrivateSubCommand2_Click()

第1個處填入：Y第5個處填入：End

考生編寫

第2個處填入：XI

DimkAsLongDimmAsLong

第3個處填入：radius&18.參考答案

DimqAsLongDimpAsLong

第4個處填入：Label1第1個處填入：Index

參考答案DimrAsLongDimnAsLong第2個處填入：0

Fork=1To100

第1個處填入：12第3個處填入：+1

Ifa(k)Mod2=0Then

第2個處填入：1參考答案

m=m+a(k)

第3個處填入：s第1個處填入：s

s=0q=q+1第2個處填入：f=10

Fork=1TonElse第3個處填入：(s-4)*1.2

s=s+f(k)n=n+a(k)第4個處填入：Is>15

NextP=P+1第5個處填入：11*1.2

Textl=sEndIf參考答案

參考答案NextkPrivateSubCommand2_Click()

Form2中第1個處：1r=Int((m+n)/(p+q)+0.5)考生編寫

Form2中第2個處：0m=Int(m/q+0.5)Dima(lTo26)AsInteger

Foim2中第3個處：Form1.Label1n=Int(n/p+0.5)DimmaxAsInteger

Form3中第1個處：()SelectCaseCombo1.Textn=Len(s)

Form3中第2個處：k,2Case〃所有偶數(shù)”Fori=1Ton

Textl=mk=Asc(Mid$(s,i,1))

15.參考答案Case〃所有奇數(shù)”If(k>=65Andk<=90)Then

第1個處填入：5Textl=na(k-64)=a(k-64)+1

第2個處填入：aCase〃所有數(shù)”EndIf

第3個處填入：4Textl=rIf(k>=97Andk<=122)Then

第4個處填入：sEndSelecta(k-96)=a(k-96)+1

第5個處填入：Text3參考答案EndIf

參考答案

第1個處填入：Mat(N,M)AsNext

PrivateSubCommandl_Click()

Integermax=0

DimiAsInteger

第2個處填入：ForInputForm=1To26

DimjAsInteger

Ifmax<a(m)Then

DimmAsLong第3個處填入：Input#l,Mat(i,j)

DimsumAsLong第4個處填入：Mat(i,4)=tmax=a(m)

m=1EndIf

Ifn=10Orn=12Then17.參考答案Next

Fori=2TonPrivateSubCommand2_Click()Text2=max

m=i*mDimsumAsLongForm=1To26

NextFork=1To100Ifa(m)=maxThen

Text1.Text=mForm=1ToSqr(a(k))

1=m

EndIfIfa(k)=mA2Then

sum=0sum=sum+a(k)EndIf

NextElselfarr(i)>=70Andarr(i)<8023.參考答案

Textl=Chr(1+64)Then第1個處填入：2

EndSubText4=Val(Text4)+1第2個處填入：True

Elselfarr(i)>=80Andarr(i)<90

第3個處填入：flag

Then

參考答案參考答案

19.Text5=Val(Text5)+1

第1個處填入：5Elselfarr(i)>=90Andarr(i)<=第1個處填入：0

第2個處填入：2*i-1100Then第2個處填入：SelLength

第3個處填入：i+1Tcxt6=Val(Text6)+I第3個處填入：LCase(t)

第4個處填入：(9-2*i)EndIf第4個處填入：Text2

參考答案Textl=Val(Textl)+I參考答案

第1個處填入：Timerl.EnabledNextFork=1To100

EndSub

第2個處填入：Shape2.Topflag=True

第3個處填入：Topi=2

21.參考答案DoWhilei<=lnt(a(k)/2)And

第4個處填入：Shape2.Left

第1個處填入：Lenflag

參考答案

第2個處填入：AscIfInt(a(k)/i)=a(k)/iThen

第1個處填入：1

第3個處填入：bflag=False

第個處填入：

2ch第4個處填入：2Else

PrivateSubListl_Click()i=i+1

第5個處填入：x(i)

Textl=a(List1.Listindex+1)EndIf

參考答案

EndSubLoop

第1個處填入：La.ListCount

PrivateSubCommand2_Click()Ifflag=TrueThen

第2個處填入：La

b=Vai(Textl)num=num+1

第3個處填入：Lab(num)=a(k)

Ifb>=0Andb<500Then

參考答案EndIf

m=0.3*b

第1個處填入：EOF(l)Nextk

Elselfb>=500Andb<1000

第2個處填入：a⑴

Then

Fori=1To1024.參考答案

m=0.3*b*0.98f=True第1個處填入：Text1(0)

Elselfb>=1000Andb<1500Forj=1TO9第2個處填入：s

ThenIfa(j)>a(j+1)Then第3個處填入：Cmdl.Enabled

m=0.3*b*0.95t=a(j)第4個處填入：Cmd2.Enabled

Elselfb>=1500Andb<2022a(j)=ag+1)參考答案

a(j+1)=t

Then第1個處填入：Input

f=False

m=0.3*b*0.92第2個處填入：s(i)+a(i,j)

EndIf

Elselfb>=2022Then

Nextj第3個處填入：s(i)

m=0.3*b*0.9IffThen第4個處填入：Line2.Y2

EndIfExitFor第5個處填入：Visible

Text2=Int(m)EndIf參考答案

EndSubNextiPrivateSubCommand2_Click()

Fori=1ToLen(s)

20.參考答案22.參考答案J=Asc(Mid(s,i,1))

第1個處填入：Optionl(i).value第1個處填入：1SelectCaseJ

第2個處填入：Caption第2個處填入：tmp*iCase48To57,65To9(),97To122

CaseElse

第3個處填入：5第3個處填入：xn

Mid(s,i,1)=H-M

第個處填入：第4個處填入：xn(t)

4xEndSelect

參考答案

參考答案Nexti

第1個處填入：5(X)第1個處填入：arrJ=Len(s)-1

第2個處填入：Value第2個處填入：StaticFori=1ToJ

第3個處填入：0第3個處填入：arr(i)IfMid(s,i,1)=H-"AndMid(s,i+

參考答案第4個處填入：01,1)=H-"Then

PrivateSubCommandl_Click()參考答案s=Left(s,i)+Right(s,J-i)

Fori=1Ton第1個處填入：9J=J-1

i=i-1

Ifarr(i)<60Then第2個處填入：temp

⑵EndIf

Text2=VaI(Tex+1第3個處填入：j

Elselfarr(i)>=60Andarr(i)<70Nexti

第4個處填入：1

Thens=Left(s,Len(s)-1)

H

Text3=Val(Text3)+1R=Split(s,"-)

B=R(0)參考答案參考答案

Fori=1ToUBound(R)PrivateSubCalc_Click()PrivateSubCalc_Click()

IfLen(B)<Len(R(i))ThenB=Text1.Text”Textl.Text=,M,

R(i)Fori=1To1(X)Step2Fori=1To1(X)

NextiText1.Text=Text1.Text&Arr(i)&If(Arr(i)Mod3)=0Then

Form=UBound(R)To1Step-1Space(5)Text1.Text=Text1.Text&Arr(i)&

IfLen(B)=Len(R(m))Thensum=sum+Arr(i)Space(5)

ExitForNextisum=sum+Arr(i)

EndIfPrintsumEndIf

NextEndSubNexti

Text1.Text=Len(B)PrivateSubRead_Click()Printsum

Text2.Text=R(m)ReadDataEndSub

EndSub