33次上机考试参考答案1

《33次上机考试参考答案1》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、33次上机考试参考答案第一套二、程序设计，实现该程序功能的代码如下:CLEARSELECT1USE成绩REPLACEALL成绩with成绩*1.15FOR课程名='Access程序设计'INDEXON学号TAGXHSELECT2USE学生SETRELATIONTO学号INTOASETSKIPTOAACCEPT"请输入查询的学号:"TOXHLOCATEALLFOR学号=XH?"***********************查询结果***********************"IFFOUND()@row()+1,1say"学号"@row(),11SAY"姓名"@row(),

2、21SAY"课程名"@row(),41SAY"成绩"@row(),50SAY"学院"DOWHILE.NOT.EOF()@row()+1,1say学号@row(),11SAY姓名@row(),19SAYA.课程名@row(),35SAYA.成绩@row(),50SAY学院CONTENDDOELSE?"表中没有查找到此人的信息！"ENDIFCLOSEALLRETURN三、表单设计1.打开表单设计器2.设置表单的数据环境(显示——数据环境),把与本表单有关的数据表添加到该数据环境中。3.在表单中添加相应的控件，并设置其相关属性GRID1的相关属性：RECORDSOURCETYP

3、E：4-SQL说明RECORDSOURCE：无VISIBLE：.F.OPTIONGROUP1的VALUE属性设置为04.为OPTIONGROUP1控件的INTERACTIVECHANGE事件编写如下代码：THISFORM.GRID1.VISIBLE=.T.A=THISFORM.OPTIONGROUP1.VALUEIFA=1THISFORM.GRID1.RECORDSOURCE='SELECT*FROM学生WHERE性别="男"INTOCURSORTEMP'ELSETHISFORM.GRID1.RECORDSOURCE='SELECT*FROM学生WHERE性别="女"IN

4、TOCURSORTEMP'ENDIFTHISFORM.REFRESH5.结束命令按钮的CLICK事件的代码为：THISFORM.RELEASE第二套二、程序设计，该程序的代码如下：CLEARCLOSEALLSELECT1USEYYUREPLACEALL平均分WITH(笔试+听力)/2INDEXON学号TAGXHSELECT2USEKSHSETRELATO学号INTOAGOTOPDOWHILENOTEOF()DOCASECASEA.平均分>=90REPL评语WITH'优'CASEA.平均分>=80REPL评语WITH'良'CASEA.平均分>=70REPL评语WITH'中'

5、ENDCASESKIPENDDOCLOSEALL三、表单设计1.打开表单设计器2.设置表单的数据环境(显示——数据环境),把与本表单有关的数据表添加到该数据环境中。3.在表单中添加相应的控件，并设置其相关属性（1）添加页框控件PAGEFRAME1PAGECOUNT的值为：2PAGE1的CAPTION属性值为：成绩PAGE2的CAPTION属性值为：综合（2）在PAGE1页面上添加一个表格控件GRID1GRID1的相关属性：RECORDSOURCETYPE：4-SQL说明RECORDSOURCE：无(3)在PAGE2页面上添加三个标签、三个文本框、一个命令按钮组TEXT1的

6、CONTROLSOURCE属性值为：KSH.学号TEXT2的CONTROLSOURCE属性值为：KSH.平均分TEXT3的CONTROLSOURCE属性值为：KSH.评语（4）在表单中添加一个命令按钮，其CAPTION属性为：退出4.为PAGE2页面中的命令按钮组的CLICK事件编写如下代码：DOCASECASETHIS.VALUE=1SKIP-1IFBOF()GOTOPENDIFCASETHIS.VALUE=2SKIPIFEOF()GOBOTTOMENDIFCASETHIS.VALUE=3THISFORM.RELEASEENDCASETHISFORM.REFRESH5.

7、为表单的INIT事件编写如下代码：THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=;'SELECTYYU.学号,姓名,笔试,听力FROMYYU,KSH;WHEREYYU.学号=KSH.学号INTOCURSORTEMP'THISFORM.REFRESH5.命令按钮组的CLICK事件的代码如下DOCASECASETHIS.VALUE=1SKIP-1IFBOF()GOTOPENDIFCASETHIS.VALUE=2SKIPIFEOF()GOBOTTOMENDIFCASETHIS.VALUE=