第24次二级等级考试上机试题参考答案.docVIP

第一套 编写程序 set talk off set safe off clear close all use stcj index on 学号 to stcj sel b use stdata set rela to 学号 into a repl all 平均分 with （a.成绩1+a.成绩2+a.成绩3+ a.成绩4）/4 index on -平均分 to stdata ?”*************************排位如下**************************” ?”学号 姓名 院系 名次” I=1 Go top Do while I=3 ? 学号, 姓名,院系名,I I=I+1 Skip Enddo Wait Clear Close all return 表单设计 数据环境：stdata.dbf 对象名属性名值Label1caption排序optinggroup1buttoncount3Optin1caption学号Optin2Caption姓名Optin3caption院系Grid1recordsourcestdataCommad1caption结束Optingroup1的click事件为： X=this.value Do case Case x=1 Index on 学号 to std1 Case x=2 Index on 姓名 to std2 Case x=3 Index on 院??名 to std3 Endcase Thisform.refresh Command1的click事件为： Thisform.release 第二套 编写程序 set talk off set safe off close all clear use kc index on 学号 to kc sele b use st set rela to 学号 into a repl all 总分 with a.计算机+a.外语+a.体育 repl all 平均 with 总分/3 count to x1 平均=90.and.平均=100 count to x2平均=60.and.平均90 count to x3 平均60 ？”90100分人数：”，x1 ?”6090分人数：”,x2 ?”60分以下人数：”,x3 wait clear close all retu 表单设计 数据环境：kc.dbf 对象名属性名值Form1Auto centertLabel1caption请选择Label2caption最高分Label3Caption最低分Label4caption平均分Optingroup1value0Commad1caption退出Option1caption计算机Option2caption外语Optiongroup1的click事件： X=this.value If x=1 Calculate max(计算机),min(计算机),avg(计算机) to x1,x2,x3 else Calculate max(外语),min(外语),avg(外语) to x1,x2,x3 Endif Thisform.text1.value=x1 Thisform.text2.value=x2 Thisform.text3.value=x3 Command1的click事件为：Thisform.release 第三套 编写程序 set talk off clear use gz repl all 实发工资 with (工资+奖金+津贴-扣款) index on 职工号 to zgh sele b use job set rela to 职工号 into a sn=”Y” do while sn=”Y” accept”请输入查询的工作单位:” to dw locate all for 工作单位=dw ?”========================查询结果========================” ?”姓名 工作单位 实发工资” do while not eof() ?姓名，工作单位，a.实发工资 continue enddo wait”继续吗？（y/n）” to sn sn=upper(sn) clear enddo close all retu 第四套 编写程序 set talk off set safe off