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