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