VFP7程序填空VFP7程序填空.doc

*题目:显示输出图形： * *** ***** CLEA I=1 DO WHILE I=3 ?SPAC(10-I) J=1 DO WHILE J=2*I-1 ***********SPACE********** 【?】 ***********SPACE********** 【?】 ENDDO ***********SPACE********** 【?】 ENDDO 答案： 1).??* 或 ??[*] 2). J=★J+1 或 J=★1+J 或 SOTR★J★+★1★TO★J 3). I=★I+1 或 I=★1+I 或 STOR★I★+★1★TO★I *题目：通过循环程序输出图形： * * * * * * * * * * * * * * * * * * * * * * * * * * SET TALK OFF CLEAR FOR N=1 TO 9 IF N=5 ***********SPACE********** M1=【?】 ELSE ***********SPACE********** M1=【?】 ENDIF ? ***********SPACE********** FOR M=1 TO ABS(【?】) ?? ENDFOR FOR M=1 TO ABS(M1-2*N+1) IF M=1 OR M=ABS(M1-2*N+1) ?? * ELSE ?? ENDIF ENDFOR ENDFOR SET TALK OFF 答案： 1).0 或 2+(n-1)*4 或 2+4*(n-1) 或 (n-1)*4+2 或 4*(n-1)+2 2). 18 或 4*(n-5) 或 (n-5)*4 3). 5-N 或 -N+5 *题目：复制表XSDA.DBF，生成新表XS.DBF，在新表中查找所有 *男同学的记录，并将男同学的记录逻辑删除。 SET TALK OFF USE XSDA ***********SPACE********** 【?】 USE XS LOCATE FOR 性别=男 DO WHILE FOUND() ***********SPACE********** 【?】 ***********SPACE********** 【?】 ENDDO USE SET TALK ON 答案： 1). COPY★TO★XS 2). DELETE 或 DELE 3). CONTINUE 或 CONT *题目: 给定年号与月份，编写程序判断该年是否是闰年，并根据给出的月份来判断该月有多少天。 SET TALK OFF CLEAR INPUT 请输入年号： TO Y INPUT 请输入月号： TO M IF Y%4=0 AND Y%1000 OR Y%400=0 LYEAR=.T. ? 是闰年 ELSE ***********SPACE********** LYEAR=【?】 ? 不是闰年 ENDIF N=M%7 DO CASE CASE M=2 IF LYEAR DAYS=29 ELSE DAYS=28 ENDIF ***********SPACE********** CASE M=7 OR INT(N/2)!=【?】 DAYS=31 ***********SPACE********** CASE N%2【?】 DAYS=30 ENDCASE ? STR(Y,4)+年+IIF(LYEAR,是,不是)+闰年， ? STR(M,2)+月份有+STR(DAYS,2)+天 SET TALK ON CANC 答案： 1). .F. 2). 0 3). =0 *题目:列出XSDB.DBF数据表中法律系学生记录，将结果显示输出。 ***********SPACE********** 【?】 DO WHILE .T. IF 系别=法律 DISP ENDIF ***********SPACE********** 【?】 IF EOF() ***********SPACE********** 【?】 ENDIF ENDDO RETURN 答案： 1).USE★XSDB 或 USE★XSDB★.DBF 2). SKIP 或 SKIP★1 3). EXIT 或 Quit *题目:依次显示XSDB.DBF数据表中的记录内容 。 ***********SPACE*********