VFP程序题 第一套题

一、运行结果题

1、以下程序运行结果是

SET TALK OFF

CLEAR A = 5 B = 12 C = 18

IF MAX (A , B) < C ? MAX (A, B ) ELSE

IF MIN(A , B) < C ? C ELSE

? MIN( A , B) ENDIF ENDIF

SET TALK ON RETURN

2、以下程序运行结果是

SET TALK OFF CLEAR USE STCJ

DO WHILE ,NOT, EOF()

REPLACE 总分 WITH 高数 + 计算机 + 英语 SKIP ENDDO GO BOTTOM ? 学号，总分

USE

RETURN

3、以下程序运行结果是

SET TALK OFF

SET HEADINGS OFF SELECT 2 USE STCJ

INDEX ON 编号 TO GZ21

REPLACE ALL 总分 WITH 高数 + 计算机 + 英语 SELECT 1 USE STDA

SET RELATION TO 编号 INTO B DISPLAY FIELDS 姓名，B .总分 FOR 四级通过 OFF CLOSE ALL RETURN

4、以下程序运行结果是

SET TALK OFF SET SAFETY OFF USE STDA

INDEX ON 民族 TO XBSY TOTAL ON 民族 TO GZHZ USE GZHZ COUNT TO N ? N

SET SAFETY ON SET TALK ON RETURN

5、以下程序运行结果是

SET TALK OFF

SET DELETED ON USE STDA

DELETE FOR 性别 = “ 男 ” COUNT TO A

SET DELETED OFF COUNT TO B DELETE ALL PACK

COUNT TO C ? A , B , C

SET TALK ON RETURN 6、以下程序运行结果是

SET TALK OFF USE STDA

INDEX ON 奖学金 TO GZSY SKIP 2

? 姓名，奖学金 USE

SET TALK ON RETURN

7、以下程序运行结果是

SET TALK OFF

SET PROCEDURN TO SP S = 0

DO SP1 WITH 5 , S ? S

SET TPROCEDURE TO RETURN * SP PRG PROCEDURE

PARAMETERS X , Y N = 1 Y = 1

DO WHILE N < X Y = Y + N

N = N + 1

ENDDO

RETURN

8、以下程序运行结果是

SET TALK OFF DIMENSION X (2 ,2) X = 5

FOR I = 1 TO 2 FOR J = 1 TO 2 IF I = J X (I , J ) ENDIF

?? X (I , J) ENDFOR ENDFOR

SET TALK ON RETURN 二、完善程序

1、下列程序计算机 S =1！+ 2！+3！+4！+5！中，填空完成程序。 S = 0

FOR N = 1 TO 5

FOR I = 1 TO N P = P * I ENDFOR

ENDFOR ? “SUN =” , S 2、用下列程序找出所有的水仙花数，所谓水仙花数，是指这样一

个三位数，其各位数字的立方和等于该数本身，如 153 = 1^3 +5^3 +3^3，对以下程序填空完成该功能。 FOR N = 100 TO 999 A = INT ( N / 100) B =

C = N – INT (N / 10) * 10 IF N = A^3 +B^3 +C^3 ? N ENDIF ENDFOR RETURN 3、将新表 DB2 . DBF 文件中学号重复的记录删掉（只保留一个） SET TALK OFF SET SAFETY OFF

USE STDA

COPY TO DB2 USE DB2

INDEX ON 学号 TO XH DO WHILE . NOT . EOF () XH = 学号 SKIP

DELETE ENDIF ENDDO