08春上机参考答案.docVIP

2008年（春）计算机等级考试 二级（VFP）上机试卷参考答案 PAGE  PAGE 6 2008年（春）二级考试上机试卷参考答案 VFP01 一、项目、数据库和表操作 1． （2）设置YZBM字段的输入掩码：999999 （3）设置YZBM字段的有效性规则： NOT SPACE( 1 ) $ YZBM （4）表的主索引abcd的索引表达式：KHBH 2．设置JC表的更新触发器的逻辑表达式：RIGHT( ALLTRIM( CBSMC ) , 6 ) = 出版社 3． UPDATE xs SET NL = YEAR( DATE( ) ) – YEAR( CSRQ( ) ) ; WHERE JG = 江苏 或：在浏览xs表后，在命令窗口中输入： REPLACE ALL NL WITH INT( ( DATE( ) – CSRQ( ) ) / 365 ) FOR JG = 江苏 二、设计查询 SELECT Xs.xh , Xs.xm , COUNT( * ) AS 合格门数 ; FROM jxsj!xs INNER JOIN jxsj!cj ; ON Xs.xh = Cj.xh ; GROUP BY Xs.xh ; HAVING MIN ( Cj.cj ) = 60 ; ORDER BY 3 DESC 四、设计表单 1．设置表单对象Form1的以下属性值： Caption：浏览表 Movable：.F. 2．设置标签控件Label1的Caption属性：记录数 3．修改表格控件的ReadOnly属性：.T. 4．修改命令按钮的Caption属性：选择表( \ S ) 并在其Click事件代码的末尾加以下3条命令： ThisForm.Grid1.RecordSource = Alias( ) ThisForm.Text1.Value = Reccount( ) ThisForm.Refresh 5．设置表单Form1的Destroy事件代码：CLOSE TABLE ALL 五、程序改错 ① IF i = 100 TO 999 改为：FOR i = 100 TO 999 ② IF MOD( s2 + s3 , 10 ) = s1 改为：IF MOD( VAL( s2 ) + VAL( s3 ) , 10 ) = VAL( s1 ) VFP02 一、项目、数据库和表操作 1． （2）设置RKRQ字段的默认值：DATE( ) （3）设置JBR字段的有效性规则： NOT EMPTY( JBR ) 或 LEN( ALLTRIM( JBR )) 0 2．设置JC表的更新触发器的逻辑表达式： KCDM = 60010 AND CBSMC = 上海外语教育出版社 OR KCDM 60010 或：IIF( KCDM = 60010 , CBSMC = 上海外语教育出版社 , .T. ) 说明： 本题如果仅设置： KCDM = 60010 AND CBSMC = 上海外语教育出版社 其结果必然是：非“上海外语教育出版社”出版的教材，或虽然是“上海外语教育出版社”出版的教材，但是其课程代码并非是“60010”的记录均无法再修改。 3． UPDATE js SET BZ = 退休 ; WHERE XB = 女 AND YEAR( DATE( ) ) – YEAR( CSRQ( ) ) = 55 或：在浏览js表后，在命令窗口中输入： REPLACE BZ WITH 退休 ; FOR XB = 女 AND INT( ( DATE( ) – CSRQ( ) ) / 365 ) = 55 二、设计查询 SELECT Xs.xh , Xs.xm , COUNT( * ) AS 总门数 , ; SUM( IIF( Cj.cj 60 , 1 , 0 ) ) AS 不合格门数 ; FROM jxsj!xs , jxsj!cj ; WHERE Xs.xh = Cj.xh ; GROUP BY Xs.xh ; HAVING 不合格门数 =2 ; ORDER BY 4 DESC 三、设计菜单 3．设置“浏览”菜单项的命令代码为：SELECT * FROM jxsj!kc 四