2002年东莞市小学生计算机程序设计竞赛复赛试题说明：请将答案填在答题卡上，只交答题卡，时间9：00--11：00。选择题：（每题1分，共5分）1、市政府号召大力发展IT产业，你知道IT指什么吗？①加工业②制造业③信息技术④计算机2、鼠标是一种①存储器②输出设备③输入设备④运算器3、世界第一台电子计算机是年研制成功。①1900②1946③1956④19584、字符“3”的ASCII码为51，则字符“9”的ASCII值为①56②9③57④585、下列QBASIC语句会出错的是①X=Y=2②Y=X+2=Y③2=X=Y④X=2=Y二、判断题：（每题1分，共5分，答对√、错×）1、要重启动计算机可同时按CapsLock、Alt、Del键（）2、二进制数1101对应的十进制数为13（）3、将公用电脑上的系统文件或他人文件删除，这是违反公共道德标准的行为（）4、只要有了杀毒软件，就不怕计算机被病毒感染（）5、用QBASIC语言编写的程序文件扩展名是QB（）三、运行结果：（每题5分，共40分）2、CLSINPUTNI=0:k=0DIMA(N)10I=I+1:k=k+IA(I)=kIFI<NTHEN10PRINTA(5)ENDRUNN=10结果：1、10INPUTA,B,C20S=(A+B+C)/330X1=S-A:X2=S-B:X3=S-C40S=X1*X2+X2*X3+X3*X150PRINT“S=”;S60ENDRUN10,20,30结果：4、FORI=1TO6READA$(I)NEXTIX=0FORJ=1TO6IFLEN(A$(J))>7THENX=X+1NEXTJPRINTXENDDATAminute,zuantai,waitfly,waitdown,alreadyfly,alreadydown3、CLSDIMA(5),B(5)FORI=1TO5READA(I),B(I)DATA15,25,20,15,10DATA5,25,40,10,10NEXTIFORI=1TO4SWAPA(I),A(I+1)SWAPB(I),B(I+1)NEXTIPRINTA(I)+B（I）END说明：SWAPX，Y的功能是交换X，Y两个变量的值。5、i=3：n=1：m=1IFn<>mTHEN10i=i+1:n=n+2M=I+N+MIFn=mTHEN10i=i-1:n=n+2M=I+N+M10PRINT"M=";MEND6、CLSDIMA(10)FORI=4TO20n=INT(I/2)+1FORK=2TOnIFINT(I/K)=I/KTHENA(K)=A(K)+1NEXTKNEXTIPRINTA(2)END8、5CLS10N=10:M=220DIMST(N)30FORI=1TON:ST(I)=0:NEXTI40FORP=1TOM50READI,J60FORL=ITON-JSTEPI70ST(L+J)=ST(L+J)+190NEXTL100NEXTP110FORI=1TON120IFST(I)=MTHENPRINTI:I=N130NEXTI140DATA2,1,3,2150END7、CLSDATA4,2,5,7,5,1,6,7,4,7DIMa(10)FORi=1TO10:READa(i):NEXTiFORi=1TO9FORj=i+1TO10IFa(i)<=a(j)THEN70w=a(i):a(i)=a(j):a(j)=w70NEXTj,iFORi=1TO7STEP3s=s+a(i)+a(i+1)NEXTiPRINT"S=";sEND四、程序填空：（每空2分，共50分）1、验证如下猜想：从任一大于1的自然数N开始，若N为偶数（能被2整除的数称为偶数，否则为奇数），则将其除以2，N改为商的值，若N为奇数，则将N改为3N+1。不断重复上述步骤，最后必有N为1。例如：若N=20，则有20--10--5--16--8--4--2--1程序：10INPUT"N=";N20IFN<2ORN<>INT(N)THEN1025PRINTN;30IFN/2=INT(N/2)THEN①:GOTO5040②50PRINT"--";N;60IFN>1THEN③70END2、圣经《新约全书》写道：耶稣他们说：“把刚才打的鱼拿几条来。”西门.彼得就去把网拉到岸上。那网