2002年东莞市小学生计算机程序设计竞赛.docVIP

2002年东莞市小学生计算机程序设计竞赛 复赛试题 说明：请将答案填在答题卡上，只交答题卡，时间9：00--11：00。 选择题：（每题1分，共5分） 1、市政府号召大力发展IT产业，你知道IT指什么吗？ ①加工业 ②制造业 ③信息技术 ④计算机 2、鼠标是一种 ①存储器 ②输出设备 ③输入设备 ④运算器 3、世界第一台电子计算机是 年研制成功。 ①1900 ②1946 ③1956 ④1958 4、字符“3”的ASCII码为51，则字符“9”的ASCII值为 ①56 ②9 ③57 ④58 5、下列QBASIC语句会出错的是 ①X=Y=2 ②Y=X+2=Y ③2=X=Y ④X=2 =Y 二、判断题：（每题1分，共5分，答对√、错×） 1、要重启动计算机可同时按Caps Lock、Alt、Del键（ ） 2、二进制数1101对应的十进制数为13（ ） 3、将公用电脑上的系统文件或他人文件删除，这是违反公共道德标准的行为（ ） 4、只要有了杀毒软件，就不怕计算机被病毒感染（ ） 5、用QBASIC语言编写的程序文件扩展名是QB（ ） 三、运行结果：（每题5分，共40分） 2、CLS 2、 CLS INPUT N I = 0: k = 0 DIM A(N) 10 I = I + 1: k = k + I A(I) = k IF I N THEN 10 PRINT A(5) END RUN N = 10 结果： 1、 10 INPUT A,B,C 20 S=(A+B+C)/3 30 X1=S-A:X2=S-B:X3=S-C 40 S=X1*X2+X2*X3+X3*X1 50 PRINT “S=”;S 60 END RUN 10,20,30 结果： 4、FOR I = 1 TO 6 4、 FOR I = 1 TO 6 READ A$(I) NEXT I X = 0 FOR J = 1 TO 6 IF LEN(A$(J)) 7 THEN X = X + 1 NEXT J PRINT X END DATA minute,zuantai,wait fly,wait down,already fly,already down 3、 CLS DIM A(5), B(5) FOR I = 1 TO 5 READ A(I), B(I) DATA 15,25,20,15,10 DATA 5,25,40,10,10 NEXT I FOR I = 1 TO 4 SWAP A(I), A(I+1) SWAP B(I), B(I+1) NEXT I PRINT A(I)+B（I） END 说明：SWAP X，Y 的功能是交换X，Y两个变量的值。 5、i = 3：n = 1：m = 1 5、 i = 3：n = 1：m = 1 IF n m THEN 10 i = i + 1: n = n + 2 M=I+N+M IF n = m THEN 10 i = i - 1: n = n + 2 M=I+N+M 10 PRINT M=; M END 6、CLS 6、 CLS DIM A(10) FOR I = 4 TO 20 n = INT(I / 2) + 1 FOR K = 2 TO n IF INT(I / K) = I / K THEN A(K) = A(K) + 1 NEXT K NEXT I PRINT A(2) END 8、5 CLS 8、 5 CLS 10 N = 10: M = 2 20 DIM ST(N) 30 FOR I = 1 TO N: ST(I) = 0: NEXT I 40 FOR P = 1 TO M 50 READ I, J 60 FOR L = I TO N - J STEP I 70 ST(L + J) = ST(L + J) + 1 90 NEXT L 100 NEXT P 110 FOR I = 1 TO N 120 IF ST(I) = M THEN PRINT I: I = N 130 NEXT I 140 DATA 2,1,3,2 150 END 7、CLS 7、 CLS DATA 4,2,5,7,5,1,6,7,4,7 DIM a(10) FOR i = 1 TO 10: READ a(i): NEXT i FOR i = 1 TO 9 FOR j = i + 1 TO 10 IF a(i) = a(j) THEN 70 w = a(i): a(i) = a(j): a(j) = w 70 NEXT j, i FOR i =