全国等级考vfp模拟题(3).doc

三程序填空题 1有如下程序段，其功能是显示汉字“2008年北京申奥成功!”从屏幕的顶部移至底部，请填空补充该程序。 CLEAR CH=2008年北京申奥成功! R=1 DO WHILE R=23 R,26 SAY SPAC(60) ,26 SAY CH T=INKEY(0.2) ENDDO RETURN2 已知两个数据表，图书表TS.DBF和订单表DD.DBF，要求计算订单金额。图书表TS.DBF结构如下： 书号 书名 作者 出版社 单价 Y001 C语言 王晓 大众出版社 21.50 J002 计算机基础 程力 科技出版社 26.00 J003 计算机导论 舒彦 电子出版社 30.50 W004 网页制作 严瑾 科技出版社 28.30订单表DD.DBF结构如下： 订单号 书号 数量 金额 001 Y001 150 002 J001 200 003 J003 50 004 W004 100 阅读下面程序，请将程序补充完整。 CLEAR ALL SELECT A USE TS INDEX TO TSS SELECT B USE DD SET RELATION TO 书号 REPLACE ALL 金额 WITH LIST 订单号，书号，TS.书名，TS.单价，数量，金额 RETURN 3下面程序功能是为数据表SB-1.DBF编制一个输入程序，要求可连续添加记录。 USE SB-1 DO WHILE .T. CLEAR 2,5 SAY 请添加记录： 4,5 SAY 编号 GET 编号 6,5 SAY 名称 GET 名称 8,5 SAY 启用日期 GET 启用日期 10,5 SAY 价格 GET 价格 12,5 SAY 部门 GET 部门 14,5 SAY 主要设备 GET 主要设备 18,5 SAY 是否输入商标内容?(YN) GET SHB DEFAULT SPACE(1) READ IF UPPER(SHB)=Y MOD IF Y GENERAL 商标 ENDIF 20,5 SAY 是否继续添加?(Y/N) GET JX DEFAULT SPACE(1) READ IF LOWER(JX)=N ENDIFENDDO RETURN 4如下图所示，用标签、文本、命令按钮构成一个表单。在标签中显示以下文字“当前时间”，运行表单时，单击“显示”按钮将显示系统时间；单击“清除”按钮，文本框中的内容将被清除，单击“退出”按钮，将退出表单运行。为完成上述要求： (1) “清除”按钮的Click事件代码是 (2) “退出”按钮的Click事件代码是 (3) “显示”按钮的Click事件代码是 (4) 应该设置表单的 属性为 5设数据表STUD.dbf有字段：学号，姓名，性别，年龄，民族，专业，成绩等字段。下面是按以下要求写出有关的SQL命令，请补充完成。 (1)在表中插入个学生的记录：(200211001，李晚，女，18) SQL语句： INSERT； STUD(学号，姓名，性别，年龄)； Values(200211001、李晚、女、18) (2)列出所有男学生的姓名，性别与年龄。 SELECT 姓名，性别，年龄； FROM STUD； 性别=男6、阅读程序，请将程序补充完整X=0CLEARDO WHILE .T. 10，20 SAY ”主莱单” 11，22 SAY ”1输入数据” 12，22 SAY ”2查询记录” 13，22 SAY ”3统计记录” 14，22 SAY ”4退出系统” 15，22 SAY ”请输入选择 14：” GET X DO CASE CASE X=1DO SUB1 CASE X=2DO SUB2 CASE X=3DO SUB3 CASE X=4 7、下面程序的功能是利用参数传递求三个圆柱体积*主程序 EX.PRGCLEARFOR K=1 TO 3INPUT ” 圆半径 R= ” TO RINPUT ”高H= ” TO H DO SUBYZ ？”圆柱体 V=”，INT（V）ENDFORRETURN*子程序 SUBYZ.PRGPARA V=3.14*R2*HRETURN8、完成下面的程序。 *乘法九九表jjb.prg*1) 1 2) 2 4 3) 3 6 9 4) 4 8 12 16 5) 5 10 15 20 25 6) 6 12 16 24 30 36 7) 7 14 21 28 35 42 49 8) 8 16 24 32 40 48 56 64 9) 9 18 27 36 45 54 63 72 81 SET TALK OFF CLEAR FOR j=1 T0 9 ?STR(j，2)+) FOR ? ENDFOR ? ENDFOR Set TALK ON RETURN9、填上适当语句，使之成为接收到从键盘输入的Y或N才退出循环的程序。 DOWHILE .T WAIT 输入Y/N TO yn IF(UPPER(yn) Y.AND(UPPER(yn) N ELSE EXIT ENDIF ENDDO10、程序APRG的功能是求1到100之间所有整数的平方和并输出结果，请填空。 *APRG* SET TALK OFF CLEAR S=0 X=l DO WHILE X=100 ENDDO ?S11、设有学生成绩表