33次上机考试参考答案1.doc

33次上机考试参考答案第一套二、程序设计，实现该程序功能的代码如下:CLEAR SELECT 1USE 成绩 REPLACE ALL 成绩 with 成绩*1.15 FOR 课程名=Access程序设计 INDEX ON 学号 TAG XH SELECT 2 USE 学生 SET RELATION TO 学号 INTO A SET SKIP TO AACCEPT 请输入查询的学号: TO XHLOCATE ALL FOR 学号=XH ?*查询结果* IF FOUND() row()+1,1 say 学号 row(),11 SAY 姓名 row(),21 SAY 课程名 row(),41 SAY 成绩 row(),50 SAY 学院 DO WHILE .NOT.EOF() row()+1,1 say 学号 row(),11 SAY 姓名 row(),19 SAY A.课程名 row(),35 SAY A.成绩 row(),50 SAY 学院 CONT ENDDOELSE ?表中没有查找到此人的信息！ENDIFCLOSE ALLRETURN三、表单设计1.打开表单设计器2.设置表单的数据环境(显示数据环境),把与本表单有关的数据表添加到该数据环境中。3.在表单中添加相应的控件，并设置其相关属性GRID1的相关属性：RECORDSOURCETYPE：4-SQL说明RECORDSOURCE：无VISIBLE：.F.OPTIONGROUP1的VALUE属性设置为04.为OPTIONGROUP1控件的INTERACTIVECHANGE事件编写如下代码：THISFORM.GRID1.VISIBLE=.T.A=THISFORM.OPTIONGROUP1.VALUEIF A=1 THISFORM.GRID1.RECORDSOURCE=SELECT * FROM 学生 WHERE 性别=男 INTO CURSOR TEMPELSE THISFORM.GRID1.RECORDSOURCE=SELECT * FROM 学生 WHERE 性别=女 INTO CURSOR TEMPENDIFTHISFORM.REFRESH5.结束命令按钮的CLICK事件的代码为：THISFORM.RELEASE第二套二、程序设计，该程序的代码如下：CLEARCLOSE ALLSELECT 1USE YYUREPLACE ALL 平均分 WITH (笔试+听力)/2INDEX ON 学号 TAG XHSELECT 2USE KSHSET RELA TO 学号 INTO AGO TOPDO WHILE NOT EOF() DO CASE CASE A.平均分=90 REPL 评语 WITH 优 CASE A.平均分=80 REPL 评语 WITH 良 CASE A.平均分=70 REPL 评语 WITH 中 ENDCASE SKIP ENDDO CLOSE ALL三、表单设计1.打开表单设计器2.设置表单的数据环境(显示数据环境),把与本表单有关的数据表添加到该数据环境中。3.在表单中添加相应的控件，并设置其相关属性（1）添加页框控件PAGEFRAME1PAGECOUNT的值为：2PAGE1的CAPTION属性值为：成绩PAGE2的CAPTION属性值为：综合（2）在PAGE1页面上添加一个表格控件GRID1GRID1的相关属性：RECORDSOURCETYPE：4-SQL说明RECORDSOURCE：无(3)在PAGE2页面上添加三个标签、三个文本框、一个命令按钮组TEXT1的CONTROLSOURCE属性值为：KSH.学号TEXT2的CONTROLSOURCE属性值为：KSH.平均分TEXT3的CONTROLSOURCE属性值为：KSH.评语（4）在表单中添加一个命令按钮，其CAPTION属性为：退出4.为PAGE2页面中的命令按钮组的CLICK事件编写如下代码：DO CASE CASE THIS.VALUE=1 SKIP -1 IF BOF() GO TOP ENDIF CASE THIS.VALUE=2 SKIP IF EOF() GO BOTTOM ENDIF CASE THIS.VALUE=3 THISFORM.RELEASEENDCASETHISFORM.REFRESH5.为表单的INIT事件编写如下代码：THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=; SELECT YYU.学号,姓名,笔试,听力 FROM YYU,KSH; WHERE YYU.学号=KSH.学号 INTO CURSOR TEMPTHISFORM.REFRESH5.命令按钮组的CLICK事件的代码如下DO CASE CASE THIS.VALUE=1 SKIP -1 IF BOF() GO TOP ENDIF CASE THIS.VALUE=2 SKIP IF EOF() GO BOTTOM ENDIF CASE THIS.VALUE=3 THISFORM.RELEASEENDCASETHISFORM.REFRESH6.为退出命令按钮的CLICK事件编写如下代码：THISFORM.RELEASE第三套二、程序设计，该程序的代码如下：CLEARCLOSE ALLSELECT 1USE 商品INDEX ON 商品号 TAG SPHSELECT 2USE 订单SET RELATION TO 商品号 INTO AREPL ALL 总金额 WITH A.单价*数量DO WHILE .T. ACCEPT 请输入订单号 TO DDH LOCATE FOR 订单号=DDH 1,1 SAY =查询结果= ROW()+1,1 SAY 商品名称 ROW(),21 SAY 单价 ROW(),29 SAY 数量 ROW(),34 SAY 总金额 ROW()+1,1 SAY A.商品名 ROW(),21 SAY A.单价 ROW(),29 SAY 数量 ROW(),32 SAY 总金额 ACCEP 继续查询吗(y/n) TO A IF UPPER(A)=Y LOOP ELSE EXIT ENDIFENDDOCLOSE ALL三、菜单设计1.打开下拉式菜单设计器2.分别设计该菜单的各级菜单项3.“查询最高金额”菜单项包含的过程如下：SELECT TOP 1 订单号，商品名，总金额；FROM 商品，订单；WHERE 商品.商品号=订单.商品号;ORDER BY 总金额 DESC4.“查询最低金额”菜单项包含的过程如下：SELECT TOP 1 订单号，商品名，总金额；FROM 商品，订单；WHERE 商品.商品号=订单.商品号;ORDER BY 总金额 ASC5.”退出”菜单的命令如下:SET SYSMENU TO DEFAULT6.选择VF系统菜单中的”菜单生成“，将该菜单文件生成为菜单程序。第四套三、表单设计1、打开表单设计器2、把密码表添加到表单的数据环境设计器3.在表单上添加两个标签、两个文本框、两个命令按钮，并分别设置各控件的相关属性。TEXT2的PASSWORDCHAR属性值为：*4.为表单的INIT事件编写如下代码：PUBLIC NN=04.确定命令按钮的CLICK事件的代码如下：A=ALLTRIM(THISFORM.TEXT1.VALUE)B=ALLTRIM(THISFORM.TEXT2.VALUE)LOCATE FOR ALLTRIM(账号)=A AND ALLTRIM(密码)=BIF FOUND() MESSAGEBOX(欢迎进入本系统,64+0+0,欢迎)ELSE N=N+1 MESSAGEBOX(密码错误,是否重新输入,16+0+0,错误) IF N=3 THISFORM.COMMAND1.ENABLED=.F. ENDIFENDIF5.取消命令按钮的CLICK事件代码如下：THISFORM.RELEASE第五套二、程序设计CLEARCLOSE ALLUSE CJ5DO WHILE .T. ACCEPT 请输入查询的学号： TO XH AVER 成绩 TO X FOR 学号=XH ?学号:,XH,平均成绩:,X ACCE 继续查询输出吗(Y/N)? TO A IF UPPER(A)=Y LOOP ELSE EXIT ENDIF ENDDO CLOSE ALL三、表单设计1.打开表单设计器2.设置表单的数据环境(显示数据环境),把与本表单有关的数据表添加到该数据环境中。3.在表单中添加两个标签LABEL1和LABEL2LABEL1的CAPTION属性为：请选择：LABEL2的CAPTION属性为：请输入4.在请选择标签后添加一个选项按钮组OPTIONGROUP15.在请输入标签后添加一个文本框TEXT16.把数据环境设计器的CJ5表中的学号、课程号、成绩三个字段直接拖到表单的适当位置处7.在表单中添加三个命令按钮并设置其CAPTION属性8.“查询”命令按钮的CLICK事件的代码如下：PUBLIC AA=THISFORM.OPTIONGROUP1.VALUEIF A=1 LOCATE FOR ALLTRIM(学号)=ALLTRIM(THISFORM.TEXT1.VALUE)ELSE LOCATE FOR ALLTRIM(课程号)=ALLTRIM(THISFORM.TEXT1.VALUE)ENDIFTHISFORM.REFRESH9.“继续”命令按钮的CLICK事件的代码如下：CONTTHISFORM.REFRESH10.“结束”命令按钮的CLICK事件的代码如下：THISFORM.RELEASE第六套二、程序设计CLEARCLOSE ALLUSE CJREPL ALL 平均分 WITH (英语+计算机)/2GO TOPDO WHILE NOT EOF() DO CASE CASE 平均分=85 REPL 奖学金 WITH 1 CASE 平均分=80 RE