计算机二级vf上机试题11-20.docVIP

11. 步骤5：双击命令按钮，编写各个命令按钮的Click事件代码。各按钮代码如下： *****确认按钮的Click事件代码（以下SQL查询语句是通过查询设计器生成）***** THISFORM.GRID1.RECORDSOURCE=; SELECT 学生.*; FROM 学生管理!班级 INNER JOIN 学生管理!学生 ; ON 班级.班级号 = 学生.班级号; WHERE 班级.班级号 = ALLTRIM(THISFORM.COMBO1.DISPLAYVALUE); INTO CURSOR CTEMP *****退出按钮的Click事件代码***** THISFORM.RELEASE 步骤6：单击常用工具栏中的运行按钮查看结果，将表单文件保存到考生文件夹下。 12. 【操作步骤】 步骤1：在命令窗口执行命令：MODIFY COMMAND PROG2，打开prog2程序文件，文件中的命令代码如下： SET TALK OFF USE 学生 LOCATE FOR 政治面目=团员 ************error************ DO WHILE .NOT.FOUND() IF 性别=女 CONTINUE ************error*********** BREAK ENDIF ? 姓名,班级 ************error************ SKIP ENDDO USE SET TALK ON ? 修改程序中的错误行，修改后的程序如下： SET TALK OFF USE 学生 打开学生表 LOCATE FOR 政治面目=团员 查找当前记录的政治面目为团员 DO WHILE FOUND() 循环条件为找到政治面目为团员的记录时进入循环 IF 性别=女 如果性别为女，继续执行下面的语句，如果不是，则执行ENDIF语句之后的语句 CONTINUE 移到下一条记录，并返回到循环体起始位置重新判断该记录政治面目是否为团员 LOOP 返回到循环体起始位置，即DO WHILE处重新判断，不再执行后面的语句 ENDIF 当IF处条件不成立时，直接执行该语句后面的命令 ? 姓名,班级 当前面的IF条件语句不成立时，执行该语句，显示当前记录的姓名和班级内容 CONTINUE 移到下一条记录，并返回到循环体起始位置重新判断该记录政治面目是否为团员 ENDDO 当DO WHILE处条件不成立时，直接退出循环体，执行该语句后面的命令 USE 关闭当前打开的表 SET TALK ON 步骤2：保存文件修改，在命令窗口执行命令：DO PROG2.PRG，执行程序文件。 【知识拓展】 数据定位查询LOCATE FOR命令。 （2）【审题分析】 步骤1：在命令窗口执行命令：MODIFY COMMAND PROG3，打开程序文件编辑器。 步骤2：在程序文件编辑器中输入如下代码（相关SQL查询语句是通过查询设计器生成）： UPDATE 学生 SET 年龄=YEAR(DATE())-YEAR(出生日期) SELECT 学生.政治面目, COUNT(学生.学号) AS 人数, AVG(学生.年龄) AS 平均年龄; FROM 学生; GROUP BY 学生.政治面目; INTO TABLE temp2.dbf 步骤3：保存文件修改，在命令窗口执行命令：DO PROG3.PRG，执行程序文件。 考生文件夹下有一个合同管理表文件，表中包含合同号、订货单位、收货单位、供货单位、单价和订货数量。编写程序progzh.prg分别统计订货单位数、供货单位总数、订货总数，并将结果填写到jg.dbf（在考生目录下已经存在）表文件中。 说明：以上命令文件必须执行，并产生所要求的结果。 步骤1：在命令窗口执行命令：MODIFY COMMAND PROGZH，打开程序文件编辑器。 步骤2：在程序文件编辑器中输入如下代码： SELECT COUNT(DISTINCT 订货单位) FROM 合同管理 INTO ARRAY ARR UPDATE JG SET 统计数=ARR WHERE 分类名=订货单位总数 SELECT COUNT(DISTINCT 供货单位) FROM 合同管理 INTO ARRAY ARR UPDATE JG SET 统计数=ARR WHERE 分类名=供货单位总数 SE