vfp2009春二级VFP试卷(含答案)..docVIP

2009年春浙江省高等学校 计算机等级考试试卷(二级Foxpro) 试题1、统计显示学生表中每位同学的姓名、奖学金和获奖档次。获奖档次评价标准是：奖学金在70（含70）以上，获奖档次为“A”；奖学金在50(含50)至70（不含70），获奖档次为“B”；奖学金在20（含20）至50（不含50），获奖档次为“C”；其它获奖档次为“D”。 【程序】 SET TALK OFF CLEAR Use 学生 DO WHILE .T. (1)? DO CASE CASE JXJ=70 DJ=’A’ CASE JXJ=50 AND JXJ70 DJ=’B’ (2) DJ=’C’ OTHERWISE DJ=’D’ ENDCASE (3) SKIP (4) EXIT ENDIF ENDDO USE SET TALK ON 试题2、统计输出所有男生和女生的平均成绩。 【程序】 SET TALK OFF CLEAR SELE 1 USE 学生 SELE 2 USE 成绩 SELE A STORE 0 TO X1,X2,X3,X4 DO WHILE !EOF() XH=学号 XB=性别 (5) LOCA FOR 学号=ALLT(XH) DO WHILE !EOF() (6) X1=X1+成绩 X2=X2+1 ELSE X3=X3+成绩 X4=X4+1 ENDIF (7) ENDDO SELE A (8) ENDDO ?’男生平均成绩=’,X1/X2 ?’女生平均成绩=’,X3/X4 CLOSE ALL SET TALK ON 试题3、下面表单完成上翻、下翻查询功能，数据以只读方式显示。【程序】 表单FORM1的INIT事件代码： THIS.COMMANDGROUP1.COMMAND1.CAPTION=’上翻’ THIS.COMMANDGROUP1.COMMAND2.CAPTION=’下翻’ (9) THIS.CHK性别.ENABLED=.F. THIS.EDT简历.READONLY=.T. (10) 的CLICK事件代码： DO CASE CASE THISFORM.COMMANDGROUP1.VALUE=1 SKIP -1 IF BOF() THIS.COMMAND1.ENABLED=.F. ENDIF THIS.COMMAND2.ENABLED=.T. (11) SKIP IF EOF() THIS.COMMAND2.ENABLED=.F. ENDIF THIS.COMMAND1.ENABLED=.T. ENDCASE (12) (9)A. THIS.SETALL(‘READONLY’,.F.,’TEXTBOX’) B. THIS.SETALL(‘READONLY’,T,’TEXTBOX’) C. THIS.SETALL(TEXT,READONLY,.T.) D. THIS.SETALL(‘READONLY’,.T.,’TEXTBOX’) (10)A.COMMAND1 B. COMMANDGROUP1 C. COMMAND2 D. COMMANDGROUP (11) A.CASE THIS.VALUE=2 B.CASE THISFORM.VALUE=2 C.CASE COMMAND1.VALUE=2 D.CASE THIS.COMMAND=2 (12) A.RELEASE THISFORM B.THIS.RELEASE C.THISFORM.REFRESH D.THISFORM.RELEASE 试题4、【程序】 SET TALK OFF CLEA Z=”ABCDEF” B=LEN(A) X=”” Y=”” N=1 DO WHILE N=B IF N%3=0 X=X+SUBSTR(A,N,2) ELSE Y=Y+SUBSTR(A,N,2) ENDIF