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
相关推荐：
loading