2004年高考语文试题及答案详解(湖北卷)

IF INT(I/2)<>I/2 A=A+I ENDIF ENDFOR ?A

SET TALK ON RETURN

该程序的功能是_D___。 A.求1到100之间数累加和

B.求1到100之间能被2整除的数和 C.求1到100之间偶数和 D.求1到100之间奇数和 8. SET TALK OFF CLEAR S=0

FOR I=1 TO 20 IF MOD(I,4)=0 S=S+I ENDIF ENDFOR ?S

SET TALK ON RETURN

执行此程序，S的值为_C___。 A.210 B.20 C.60 D.5 9.SET TALK OFF CLEAR X=66

Y=CHR(X) Z=LOWER(Y) ?X,Y,Z

SET TALK ON RETURN

执行此程序，X,Y,Z值为_C___。 A.66 b B B.66 b b C.66 B b D.66 B B

10.SET TALK OFF CLEAR A=10 B=20 C=30

D0 P1 WITH A,B,C ?C

SET TALK ON RETURN

PROCEDURE P1

PARAMETERS X,Y,Z

Z=X+Y+Z RETURN

执行此程序，Z的值为__B__。 A.30 B.60 C.20 D.10

11.求数据表DB1中成绩不及格的人数 SET TALK OFF CLEAR N=0

USE DB1 _A___

IF 成绩<60 N=N+1 ENDIF ENDSCAN USE ?N

SET TALK ON RETURN A SCAN B DO DB1

C DO WHILE DB1

D DO WHILE NOT EOF()

12. 将表DB1和表DB2建立关联 SET TALK OFF CLEAR SELECT 1 USE DB1 SELECT 2 USE DB2

INDEX ON 姓名 TO I2 SELECT 1

_D___ INTO B SET TALK ON RETURN

A JOIN WITH DB2 B SET TO A C JOIN WITH A

D SET RELATION TO 姓名（答案） 13. 下面程序输出“计算机考试” SET TALK OFF CLEAR

A=“全国高校计算机等级考试” S=___C_ ?S

SET TALK ON RETURN

A SUBSTR(A,5,3)+LEFT(A,4) B SUBSTR(A,5,3)+RIGHT(A,4) C SUBSTR(A,9,6)+RIGHT(A,4)

D SUBSTR(A,9,6)+LEFT(A,4) 14. 求1到100之间自然数之和 SET TALK OFF CLEAR S=0 A=1 __D__ S=S+A A=A+1 ENDDO ?S

SET TALK ON RETURN

A FOR A=1 TO 100 B DO WHILE S<=100 c FOR S=1 TO 100 D DO WHILE A<=100

15. 输入圆的半径，利用子程序求圆的周长和面积 SET TALK OFF CLEAR

STORE 0 TO R,L,S

@ 10,10 SAY \READ

DO SUB1 WITH R,L,S ?\?\SET TALK ON RETURN

PROCEDURE SUB1 __A__

B=2*PI()*A C=PI()*A*A RETURN

A PARAMETERS A,B,C B PARAMETERS B,C,A C PARAMETERS C,B,A D PARAMETERS B,A,C

2. 数据表DB1中有数学、外语、计算机和平均成绩等字段，现求每个同学的平均成绩 SET TALK OFF CLEAR USE DB1

_C___ WITH (数学+外语+计算机)/3 USE

SET TALK ON RETURN

A.REPLACE 平均成绩 B.AVERAGE 平均成绩

C.REPLACE ALL 平均成绩 D.AVERAGE ALL平均成绩

3. 下面程序判断所输入数是否为素数，若是则输出 SET TALK OFF CLEAR

@ 10,10 SAY \READ S=1

FOR I=2 TO X-1 IF INT(X/I)=X/I _B___ ENDIF ENDFOR IF S=1 ?\ENDIF

SET TALK ON RETURN A.X=1 B.S=0 C.X=0 D.S=1

4. 下面程序利用数组生成如下3*3矩阵 1 2 3 2 3 4 3 4 5 SET TALK OFF CLEAR

DIMENSION A(3,3) FOR I=1 TO 3 FOR J=1 TO 3 __A__ ENDFOR ENDFOR

SET TALK ON RETURN

A.A(I,J)=I+J-1 B.A(I,J)=J C.A(I,J)=I D.A(I,J)=I+J

5. 判断一个数是否被7整除，若是则显示 SET TALK OFF CLEAR

@ 10,10 SAY \READ _C___ ?X ENDIF

SET TALK ON RETURN

A.IF X/7<>0 B.IF X/7=7