C语言二级140上机模拟试题答案.docx
《C语言二级140上机模拟试题答案.docx》由会员分享，可在线阅读，更多相关《C语言二级140上机模拟试题答案.docx（35页珍藏版）》请在冰豆网上搜索。
C语言二级140上机模拟试题答案
1~40套模拟试题的简单应用和综合应用的答案
一：
2
（1）：
indexnn+2nf1
2
（2）：
ss,s1<>str（n）
3:
PrivateSubC1_Click（）
DimxAsInteger
x=18000
DoWhilex>18001
Ifisprime（x）ThenExitDo
x=x+1
Loop
Text1.Text=Str（x）
EndSub
PrivateSubC2_Click（）
OpenApp.Path&"\out5.txt"ForOutputAs1
Print#1,Text1.Text
Close1
EndSub
二：
2
（1）：
check1.value“”“#”text2.text
2
（2）：
5xstr（x）>
3：
DimiAsInteger,jAsInteger,nAsInteger
Fori=1To7
Forj=1To7
Ifi=1Ori=7Orj=1Orj=7Then
Sum=Sum+a（i,j）
Ifa（i,j）Mod7=0Thenn=n+1
EndIf
Nextj
Nexti
lblFirst.Caption=Str（n）
lblSecond.Caption=Str（Sum）
三：
2
（1）：
<>ornum>
2
（2）：
Avgis>=85is>=60endselectn-1
3：
Dimb（20）AsSingle,iAsInteger,jAsInteger
DimmaxAsInteger
Fori=1To20
Forj=1To5
b（i）=b（i）+a（i,j）
Nextj
b（i）=b（i）/5
Nexti
max=b
（1）
Fori=2To20
IfmaxNexti
Text2.Text=Str（max）
四：
2
（1）：
trueabcnform1form2
2
（2）：
0sellengthttext2.text
3：
Fork=1To100
Ifa（k）Mod3=0Then
num=num+1
b（num）=a（k）
EndIf
Nextk
Fori=1Tonum-1
Forj=i+1Tonum
Ifb（i）>b（j）Then
t=b（i）
b（i）=b（j）
b（j）=t
EndIf
Nextj
Nexti
五：
2
（1）：
>x2
（2）：
list1,list2l1.textl1.listindexlist1.listcount-1
3：
Fori=1Ton
Forj=1Ton
Ifi=jOri+j=8Then
Ifa（i,j）Mod3=0ThenCounter=Counter+1
EndIf
Ifi=jThenSum=Sum+a（i,j）
Nextj
Nexti
lblFirst.Caption=Str（Counter）
lblSecond.Caption=Str（Sum）
六：
2
（1）：
2trueflag
2
（2）：
0sellengthttext2.text
3：
Fork=1To100
Fori=2Toa（k）-1
Ifa（k）Modi=0ThenExitFor
Nexti
Ifi=a（k）Then
num=num+1
b（num）=a（k）
EndIf
Nextk
七：
2
（1）：
trueheightfalse
2
（2）：
tmp*atmpxn（t,i）str（z）
3:
DimiAsInteger,minAsInteger
Dimb（40）AsInteger,nAsInteger
Fori=1To40
Ifprime（arr（i））Then
n=n+1
b（n）=arr（i）
EndIf
Nexti
min=b
（1）
Fori=2Ton
Ifmin>b（i）Thenmin=b（i）
Nexti
Label3.Caption=Str（n）
Label4.Caption=Str（min）
八：
2
（1）：
lenascb2x（i）.caption
2
（2）：
la.listcountlala
3：
eof
（1）str（a（i））
DimiAsInteger,jAsInteger,tAsInteger
Fori=1To9
Forj=i+1To10
Ifa（i）>a（j）Then
t=a（i）
a（i）=a（j）
a（j）=t
EndIf
Nextj
NextI
九：
2
（1）：
command1label1controllabel2.caption
2
（2）：
falsetrue80
3：
b（i）=a（i,1）
c（i）=1
Forj=2To5
Ifb（i）b（i）=a（i,j）
c（i）=j
EndIf
Nextj
十：
2
（1）：
true+-
2
（2）：
1>3:
DimiAsInteger,jAsInteger
DimsAsLong,minAsInteger
Fori=1To20
min=a（i,1）
Forj=2To5
Ifmin>a（i,j）Thenmin=a（i,j）
Nextj
s=s+min
Nexti
s=s/20
Text2.Text=Str（s）
十一：
2
（1）：
Dimb（100）AsInteger,nAsInteger
DimiAsInteger,maxAsInteger,minAsInteger
Fori=1To100
Ifisnarc（a（i））Then
n=n+1
b（n）=a（i）
EndIf
Nexti
max=b
（1）
min=b
（1）
Fori=2Ton
IfmaxIfmin>b（i）Thenmin=b（i）
Nexti
Text1.Text=Str（max）
Text2.Text=Str（min）
2
（2）：
DimnAsInteger,iAsInteger
DimsAsLong
n=Val（cb1.Text）
Fori=1To5000
IfiModn=0Thens=s+i
Nexti
Text1.Text=Str（s）
3：
Dims1AsInteger,s2AsInteger,s3AsInteger
DimiAsInteger,maxAsInteger,aAsString
Fori=1ToLen（s）
a=Mid（s,i,1）
Ifa=""Ori=Len（s）Then
s2=s2+1
Ifs3>maxThenmax=s3
s3=0
Else
s1=s1+1
s3=s3+1
EndIf
Nexti
Text1.Text=CInt（s1/s2）
Text2.Text=max
十二：
2
（1）：
1text1.textcommand1.enabled=true
2
（2）：
List1.List（List1.ListCount-2）bc
3：
Dimb（5）AsInteger,c（5）AsSingle
DimiAsInteger,jAsInteger,nAsInteger
Fori=1To5
n=0
Forj=1To40
Ifa（i,j）<50Then
b（i）=b（i）+a（i,j）
n=n+1
EndIf
Nextj
c（i）=b（i）/n
Label1（i-1）.Caption=Str（b（i））
Text2（i-1）.Text=Str（Int（c（i）*100+0.5）/100）
NextI
十三：
2
（1）：
“A”+n%a
2
（2）：
sf=10（s-4）*1.2（15-4）*1.2
3：
Dima（26）AsInteger,maxAsInteger,iAsInteger
DimmAsString,nAsInteger
Fori=1ToLen（s）
m=UCase（Mid（s,i,1））
Ifm>="A"Andm<="Z"Then
n=Asc（m）-Asc（"A"）+1
a（n）=a（n）+1
EndIf
Nexti
max=a
（1）
Fori=2To26
IfmaxNexti
Fori=1To26
Ifa（i）=maxThen
Text1.Text=Text1.Text&Chr（Asc（"A"）+i-1）
EndIf
Nexti
Text2.Text=Str（max）
十四：
2
（1）：
truetimer1.interval=2000a0
2
（2）：
list1.clear0list1.list（k）ktext2.text
3：
DimiAsInteger,jAsInteger
DimmaxAsInteger,avgAsSingle,nAsInteger
Fori=1To5
max=0:
avg=0:
n=0
Forj=1To40
Ifa（i,j）Mod2=0Then
IfmaxEndIf
Ifa（i,j）Mod2=1Then
n=n+1
avg=avg+a（i,j）
EndIf
Nextj
avg=Int（avg/n*100+0.5）/100
Label1（i-1）.Caption=Str（max）
Text2（i-1）.Text=Str（avg）
NextI
十五：
2
（1）：
indextruefalse60i-1
2
（2）：
DimiAsInteger,jAsInteger,maxAsInteger
DimfAsInteger
Fori=1To20
max=a（i,1）
Forj=1To5
IfmaxNextj
f=f+max
Nexti
f=Fix（f/20）
Text2.Text=Str（f）
3：
0cxm+1
十六：
2
（1）：
truelin1.y1shape1.height
2
（2）：
LboundUbounda（i）sum/（finish-start+1）arr2
3：
DimiAsInteger,s1AsInteger,s2AsString
DimaAsString,maxAsInteger,m2AsString
Fori=1ToLen（s）
a=Mid（s,i,1）
Ifa=""Ori=Len（s）Then
Ifs1>maxThenmax=s1:
m2=s2
s1=0
s2=""
Else
s1=s1+1
s2=s2&a
EndIf
Nexti
Text1.Text=max
Text2.Text=m2
十七：
2
（1）：
text1.textlist1.listcount-1text1.texti
2
（2）：
LboundUboundFinishi-1>
3：
DimsAsInteger'通用声明
PrivateSubread_Click（）
ReadData
EndSub
PrivateSubcalc_Click（）
DimiAsInteger
Fori=1To100
IfArr（i）>=50Then
Text1.Text=Text1.Text&Str（Arr（i））
s=s+Arr（i）
EndIf
Nexti
Prints
EndSub
PrivateSubsave_Click（）
CallWriteData（"dataout.txt",s）
EndSub
十八：
2
（1）：
02valuecaption
2
（2）：
PrivateSubcb1_Click（）
l1.FontSize=cb1.Text
EndSub
PrivateSubCb2_Click（）
l1.FontName=cb2.Text
EndSub
3：
PrivateSubC1_Click（）
DimiAsInteger,xAsInteger
x=15000
Do
x=x+1
Ifisprime（x）ThenExitDo
Loop
Text1.Text=Str（x）
EndSub
PrivateSubC2_Click（）
OpenApp.Path&"\out5.txt"ForOutputAs#1
Print#1,Text1.Text
Close1
EndSub
十九：
2
（1）：
10010arrn（i）>500sum+arrn（i）
2
（2）：
DimiAsInteger,sAsLong
Fori=0To100
IfiMod7<>0Thens=s+i
Nexti
Fun=s
3：
mat（n,m）asintegerforinputinput#1,mat（i,j）
1sum=sum+mat（3,j）
二十：
2
（1）：
10010sum+arrn（i）sum/20
2
（2）：
DimiAsInteger
Fori=0To200
IfiMod3=0ThenFun=Fun+i
NextI
3：
DimiAsInteger,jAsInteger
Fori=1To12
Forj=1To10
s（i）=s（i）+a（i,j）
Nextj
s（i）=s（i）/10
NextI
21：
2
（1）：
PrivateSubc1_Click（）
Text1.PasswordChar=""
EndSub
PrivateSubc2_Click（）
Text1.PasswordChar="?
"
EndSub
PrivateSubc3_Click（）
Text2.Text=Text1.Text
EndSub
PrivateSubForm_Load（）
Text1.PasswordChar="*"
EndSub
2
（2）：
PrivateSubp1_Click（）
cd1.ShowOpen
EndSub
3：
DimiAsInteger,mAsString
Fori=1ToLen（p）
m=Mid（p,i,1）&m
Nexti
Ifp=mThenfoundhuiwen=True
22：
2
（1）：
indexa
2
（2）：
PrivateSubc1_Click（）
Ifop1.ValueThen
Ifop3.ValueThen
Text1.Text="我是"&op1.Caption&op3.Caption
ElseIfop4.ValueThen
Text1.Text="我是"&op1.Caption&op4.Caption
EndIf
ElseIfop2.ValueThen
Ifop3.ValueThen
Text1.Text="我是"&op2.Caption&op3.Caption
ElseIfop4.ValueThen
Text1.Text="我是"&op2.Caption&op4.Caption
EndIf
EndIf
EndSub
3：
同第1套模拟试题综合应用
23：
1
（2）：
计时器属性：
enabled:
falseinterval:
1000
PrivateSubCommand1_Click（）
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubCommand3_Click（）
sub1
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Text1.Text+1
EndSub
2
（1）：
AddItemL1.ListIndex
2
（2）：
PrivateSubc1_Click（）
Ifop1.ValueThen
Text1.Text="需要1小时"
ElseIfop2.ValueThen
Text1.Text="需要10小时"
ElseIfop3.ValueThen
Text1.Text="需要15小时"
EndIf
EndSub
3：
DimiAsInteger,fAsInteger,nAsInteger
DimbAsInteger,cAsInteger,dAsInteger
Fori=1To100
b=a（i）\100
c=a（i）\10Mod10
d=a（i）Mod10
Ifa（i）=b^3+c^3+d^3Then
n=n+1
f=f+a（i）
EndIf
Nexti
Text1.Text=Fix（f/n）
24：
2
（1）：
1001minmin>arrN（i）
2
（2）：
DimiAsInteger,nAsInteger
Fori=0To1000
IfiMod7<>0Thenn=n+1
Nexti
Fun=n
3：
'读入数据
PrivateSubc1_Click（）
ReadData1
ReadData2
EndSub
'计算
PrivateSubc2_Click（）
DimiAsInteger,sAsInteger
Dimarr3（20）AsInteger
Fori=1To20
arr3（i）=Arr1（i）-Arr2（i）
s=s+arr3（i）
Nexti
Prints
CallWriteData（"dataout.txt",s）
EndSub
25：
2
（1）：
PrivateSubOption1_Click（）
Text1.Alignment=0
EndSub
PrivateSubOption2_Click（）
Text1.Alignment=2
EndSub
PrivateSubOption3_Click（）
Text1.Alignment=1
EndSub
PrivateSubOption4_Click（）
Text1.FontName="宋体"
EndSub
PrivateSubOption5_Click（）
Text1.FontName="黑体"
EndSub
2
（2）：
Timer1.Enabled=False30x0y2b
3：
a（n,1）7a（n,8）
DimiAsInteger,maxAsSingle,jAsInteger
Fori=1To5
Ifmaxmax=getmark（i）
j=i
EndIf
Nexti
Text2.Text=athlete（j）
Text3.Text=max
26：
2
（1）：
Ifop1.ValueThenText1.Text="我是"&op1.Caption
Ifop2.ValueThenText1.Text="我是"&op2.Caption
Ifch1.Value=1ThenText1.Text="我的爱好是"&ch1.Caption
Ifch2.Value=1ThenText1.Text="我的爱好是"&ch2.Caption
Ifch1.Valu
升级会员 