2009年12月江苏信息技术学业水平测试算法与程序设计上.xls

《2009年12月江苏信息技术学业水平测试算法与程序设计上.xls》由会员分享，可在线阅读，更多相关《2009年12月江苏信息技术学业水平测试算法与程序设计上.xls（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、编号 题目答案1For i=1 To(Text1.Text)For i=1 To Len(Text1.Text)1temp2=temp2=9-temp；temp2=-temp+91Text2.Text=Text2.Text=y4a=i a=i 1004b=(i-a*)10b=(i-a*100)104Next i；Next9=Val(InputBox(请输入一个数)s(i)=Val(InputBox(请输入一个数)9For i=9 To 0 Step For i=9 To 0 Step-19Print Print s(i);；Print s(i)；Print str(s(i)；Print Cst

2、r(s(i)12ss=Val()ss=Val(Text1.Text)；ss=Val(Text1)12h=h=ss 3600；h=Int(ss/3600)；h=ss606012s=(ss-h*3600)Mod s=(ss-h*3600)Mod 6013If a b Then max=a Else If a b Then max=a Else max=b13If c max Then If c max Then max=c13Label3.Caption=CStr()Label3.Caption=CStr(max)15For i=1 To For i=1 To 415For j=1 To For

3、j=1 To 515Print;Print*;20If ThenIf x=10 Then；If 10 9 Then；If x 9 Then；If 9 xThen20s=4*s=4*x*0.8；s=4*0.8*x20Label1.Caption=CStr()Label1.Caption=CStr(s)22For i=1 To For i=1 To 1022m=+i*10m=j*8+i*10；m=8*j+i*1024x=Val()x=Val(Text1.Text)；x=Val(Text1)24If c=ThenIf c=x Then24n=126LabelLabel126Label1.Top=La

4、bel1.Top-10026Label1.Top=Label1.Top+10028b=Val()b=Val(Text2.Text)；b=Val(Text2)28If ThenIf p=0 Then；If 0=p Then；If-1-1 Then28Else30=Val(InputBox(请输入x的值)x=Val(InputBox(请输入x的值)30=x+5*ay=x+5*a30End If32a=Val()a=Val(Text1.Text)；a=Val(Text1)32=g*100+shi*10+baib=g*100+shi*10+bai32=CStr(b)Text2.Text=CStr(b)

5、；Text2=CStr(b)36=Val(InputBox(请输入边长a的值：)a=Val(InputBox(请输入边长a的值：)36s=(q*(q-a)*(q-b)*(q-c)s=sqr(q*(q-a)*(q-b)*(q-c)36Print Print s；Print Str(s)；Print CStr(s)38If(year Mod 4=0)And(year Mod 100 0)(year Mod 400=0)ThenIf(year Mod 4=0)And(year Mod 100 0)Or(year Mod 400=0)Then38Print Print 是闰年38Print Print

6、 不是闰年40For Yiyuan=1 To For Yiyuan=1 To 100；For Yiyuan=1 To 99；For Yiyuan=1 To 98；ForYiyuan=1 To 95；For Yiyuan=1 To 9440Wujiao=100-Wuyuan-Wujiao=100-Wuyuan-Yiyuan40End If41cost=cost=x*6.8；cost=6.8*x41End If41Print Print cost；Print Str(cost)；Print CStr(cost)43Fib=Fib=143End If43S=Fib()S=Fib(10)45Label

7、Label145TextBoxText145CommandButtonCommand150CommandButtonCommand150Dim a,b,c As Dim a,b,c As Integer；Dim a,b,c As Long50End If51For i=100 To For i=100 To 999；For i=100 To 99851c=c=i Mod 10；c=i-100*a-10*b；c=i-100*a-b*10；c=i-a*100-10*b；c=i-a*100-b*1051End If54Dim h,x,y SingleDim h,x,y As Single54Let

8、=Val(Text2.Text)Let h=Val(Text2.Text)54Let Text3.Text=Let Text3.Text=y60 r,s As SingleDim r,s As Single60r=Val()r=Val(T1.Text)；r=Val(T1)60T2.Text=T2.Text=s；T2.Text=Str(s)；T2.Text=Cstr(s)63Dim yes As Dim yes As Boolean63Let yes=Let yes=False63Else68a=a=b68b=b=t68Text1.Text=Text1.Text=a；Text1.Text=Str

9、(a)；Text1.Text=CStr(a)68Text2.Text=Text2.Text=b；Text2.Text=Str(b)；Text1.Text=CStr(b)71a=Val()a=Val(Text1.Text)；a=Val(Text1)71If =0 ThenIf a Mod 2=0 Then71Label1.=偶数Label1.Caption=偶数71End If74For i=-3 To For i=-3 To 374For j=1 To 3-For j=1 To 3-Abs(i)74Print Print*;77s=s=100077Do While s Do While s=2

10、000；Do While s 200177y=y=y+1；y=1+y77s=s*s=s*(1+r)；s=s*(r+1)80tz=tz=180For ts=1 To For ts=1 To 980tz=*2tz=(tz+1)*2；tz=(1+tz)*280Print 最初共有桃子&Print 最初共有桃子&tz；Print 最初共有桃子&Str(tz)；Print 最初共有桃子&CStr(tz)82CommandButtonCommand182TextBoxText182=Text1.TextForm1.Caption=Text1.Text；Me.Caption=Text1.Text；Capti

11、on=Text1.Text84Label1.Caption=84Label1.Caption=Time86If x x Then86If x=x Then87For i=For i=1 To 10；For i=1 To 10 Step 187s=s+x；s=x+s87Print total:&Print total:&s；Print total:&str(s)；Print total:&cstr(s)89fy=089End If89Text3.Text=Text3.Text=fy；Text3.Text=Str(fy)；Text3.Text=Cstr(fy)91total=091total=to

12、tal+1；total=1+total91=Int(Rnd*1000)a(i)=Int(Rnd*1000)94For i=1 To For i=1 To 994For j=For j=i+1 To 10；For j=1+i To 1094If a(i)a(j)ThenIf a(i)a(j)Then94a(j)=a(0)96For x=To 67998 Step 10For x=67008 To 67998 step 1096Print Print x；Print str(x)；print cstr(x)96Next x；Next编号 题目答案99=InputBox(请输入您的体重：)tz=In

13、putBox(请输入您的体重：)99If 25 ThenIf bz 25 Then99If ThenIf bz bz Then102 If ThenIf x=0 Then；If 0-1 Then；If-1=11.19104 Case Is Case Is=7.91104 End Select108 If =3 ThenIf x Mod 5=3 Then108 If ThenIf x Mod 7=4 Then；If 4=x Mod 7 Then108 Print Print x；Print str(x)；Print Cstr(x)114 a=a=a+b；a=b+a114 s=s=s+b/a；s=

14、b/a+s114 b=b=b+a；b=a+b116 s=s+s=s+i116 i=i=i+2；i=2+i116 Print s=&Print s=&s；Print s=&str(s)；Print s=&cstr(s)117 s=s+s=s+N117 N=N=N+20；N=20+N117 Print N=&CStr()Print N=&CStr(N-20)；Print N=&CStr(-20+N)119 p=14119 Do While Do While p p；Do While p p119 p=p*p=p*(1+0.04)；p=p*(0.04+1)；p=p*1.04119 n=n=n+1；n

15、=1+n120 L=0.7*L=0.7*H120 H=H=L120 Print Print S；Print str(S)；Print cstr(S)122 T=T=S1/V1122 S2=*TS2=V2*T122 Print Print S2；Print str(S2)；Print cstr(S2)124 s=s=chang*kuai；s=kuai*chang124 If ThenIf s smax Then；If smax s Then124 Print Print smax175 S=S=1175 S=+S(n-1)S=n+S(n-1)175 Sum=S()Sum=S(100)178 Fa

16、c=Fac=1178 Fac=a*(a-1)Fac=a*Fac(a-1)178 S=Fac(3)+Fac()+Fac(7)S=Fac(3)+Fac(5)+Fac(7)181 max=max=cj(i)181 If ThenIf cj(i)cj(i)Then181 min=min=cj(i)182 Print Print cj(i)182 For j=9 To i Step For j=9 To i Step-1182 cj(j)=cj(j)=cj(j+1)；cj(j)=cj(1+j)183 Pi=Pi=0183 Pi=Pi+Pi=Pi+t183 t=t=s/n183 Pi=Pi*Pi=Pi*4

17、595 For i=2 To 100 Step For i=2 To 100 Step 2595 s=s=s+i；s=i+s595 Next Next i；Next596 r=Val()r=Val(Text1.Text)；r=Val(Text1)编号 题目答案596 c=pi*c=pi*2*r；c=pi*r*2596 =CStr(c)Text2.Text=CStr(c)；Text2=CStr(c)597 s=s=0597 p=p=1597 s=s=s+p；s=p+s598 t=Val()t=Val(Text1.Text)；t=Val(Text1)598 If ThenIf t 60 Then5

18、98 End If599 s=s=0599 n=n=0599 Loop While s 500Loop While s=500；Loop While s 501600 Cj=Val()Cj=Val(Text1.Text)；Cj=Val(Text1)600 If Cj 60 ThenIf Cj=60 ThenIf Cj=60 And Cj=60 And Cj=60And 84=Cj Then；If Cj=60 And 85 Cj Then601 n=n=0601 s=s=0601 s=s=s+n；s=n+s602 p=2000602 p=p*p=p*1.05；p=p*(1+0.05)；p=p*0

19、.05+p；p=p*(0.05+1)602 n=n=n+1；n=1+n603 For i=1 To Step 1For i=1 To 7 Step 1603 a=a=a*i；a=i*a603 Text1.Text=CStr()Text1.Text=CStr(a)604 s=s=0604 For i=1 To Step 1For i=1 To 100 Step 1604 s=s=s-1/i；s=-1/i+s；s=s+(-1/i)；s=(-1/i)+s605 For i=1 To Step 1For i=1 To 100 Step 1605 s=s+s=s+1/i；s=s+(1/i)605 s=s

20、=0606 a=a=0606 For i=1 To Step 1For i=1 To 100 Step 1606 a=a=a+i；a=i+a606 Text1.Text=CStr()Text1.Text=CStr(a)607 For i=0 To Step 1For i=0 To 9 Step 1607 s=s=s+a(i)；s=a(i)+s607 Next i；Next608 Tu=Tu=40-Ji；Tu=-Ji+40608 Leg=+Tu*4Leg=Ji*2+Tu*4；Leg=2*Ji+Tu*4608 If Leg=ThenIf Leg=100 Then609 For i=To 1 Ste

21、p-1For i=4 To 1 Step-1609 Print*;609 Next i；Next610 For j=1 To Step 1For j=1 To i Step 1610 Print Print;610 Next Next j611 t=t=x611 y=y=t611 Text1.Text=Text1.Text=x；Text1.Text=Str(x)；Text1.Text=Cstr(x)612 For i=1 To Step 1For i=1 To 9 Step 1612 Print Print i*j;；Print j*i;612 Next i；Next613 a=Val()a=Val(Text1.Text)；a=Val(Text1)613 b=a Mod b=a Mod 2613 End If614 For i=0 To Step 1For i=0 To 9 Step 1614 max=max=a(i)614Print 这10个自然数中的最大值=;CStr()Print 这10个自然数中的最大值=;CStr(max)编号 题目答案