VFP平时上机练习题电子版参考答案.docx

1、VFP平时上机练习题电子版参考答案一、项目、数据库和表操作（一）1（2）表的有效性规则：xsj = 1.2 * cbj 或 xsj = 1980-01-01 或 csrq 1979-12-31 或 Year(csrq)=1980（4）索引表达式：STR ( YEAR ( DATE ( ) )YEAR ( csrq ) ) + xm2设置js表的删除触发器的表达式：.F.3 REPLACE ALL bz WITH 一本招生 ； FOR LEFT ( yxzydm , 2 ) = 11 UPDATE yxzy SET bz = 一本招生 ； WHERE SUBSTR ( yxzydm , 1 ,

2、2 ) = 11注：在SET EXACT OFF 的设置下，条件表达式可以是：yxzydm = 11（三）1（2）设置BH1的输入掩码为：AXXX 或 A999（3）设置字段BH1的有效性规则：LEFT ( BH1 , 1 ) = LEFT ( BH2 , 1 )（4）索引表达式：BH1+xh2设置jc表的删除触发器的表达式：left ( cbnf ,4) 20003UPDATE cj SET bz = 选修 WHERE kcdm = 9501（四）1（2）设置rq字段的默认值：DATE ( )（3）设置表的有效性规则：kpsl =kpsl（4）索引表达式：DTOC ( rq , 1 ) +

3、bh 或 DTOS(rq)+bh2设置jc表的插入触发器的表达式：SUBSTR ( isbn , 1 , 2 ) = IS 或 isbn=“IS” 或 left(isbn，2)=“IS”3UPDATE cj SET pscj = 85二、设计查询（一）（1）添加表：kcap , kc 以kcdm作为联接条件（2）输出字段： Kcap.xqbm AS 学期编码 ， COUNT( * ) AS 开课门数 SUM( Kc.kss ) AS 总课时数（3）分组依据：Kcap.xqbm（4）排序依据：Kcap.xqbm（5）SELECTSQL语句： SELECT Kcap.xqbm AS 学期编码 ,

4、COUNT( * ) AS 开课门数 , ; SUM( Kc.kss ) AS 总课时数 ; FROM jxsj!kcap INNER JOIN jxsj!kc ; ON Kcap.kcdm = Kc.kcdm ; WHERE Kcap.bjbh = 040202 ; GROUP BY Kcap.xqbm ; ORDER BY Kcap.xqbm（二）（1）添加表：kcap , kc 以kcdm作为联接条件（2）输出字段： Kcap.bjbh AS 班级编号 ， COUNT( * ) AS 开课门数 SUM( Kc.kss ) AS 总课时数（3）分组依据：Kcap.bjbh（4）排序依据：K

5、cap.bjbh（5）SQL语句： SELECT Kcap.bjbh AS 班级编号 , COUNT( * ) AS 开课门数 , ; SUM( Kc.kss ) AS 总课时数 ; FROM jxsj!kcap INNER JOIN jxsj!kc ; ON Kcap.kcdm = Kc.kcdm ; WHERE Kcap.xqbm = 2004-2005学年第1学期 ; GROUP BY Kcap.bjbh ; ORDER BY Kcap.bjbh（三）（1）添加表： zzmm视图 , js表 以Zzmm.dm和Js.zzmm作为联接条件（2）输出字段： Js.zc AS 职称 ， Zzm

6、m.mc AS 政治面貌名称 COUNT( * ) AS 人数 ， AVG( YEAR( DATE( ) ) YEAR( Js.csrq ) ) AS 平均年龄（3）分组依据：Js.zc , Zzmm.mc（4）排序依据：Js.zc , Zzmm.mc（5）SQL语句： SELECT Js.zc AS 职称 , Zzmm.mc AS 政治面貌名称 , ; COUNT( * ) AS 人数 , ; AVG( YEAR( DATE( ) ) YEAR( Js.csrq ) ) AS 平均年龄 ; FROM jxsj!zzmm INNER JOIN jxsj!js ; ON Zzmm.dm = Js

7、.zzmm ; GROUP BY Js.zc , Zzmm.mc ; ORDER BY Js.zc , Zzmm.mc（四）（1）添加表： whcd视图 , js表 以Whcd.dm和Js.whcd作为联接条件（2）输出字段： Js.zc AS 职称 ， Whcd.mc AS 文化程度名称 COUNT( * ) AS 人数 ， MIN( YEAR( DATE( ) ) - YEAR( Js.csrq ) ) AS 最小年龄（3）分组依据：Js.zc , Whcd.mc（4）排序依据：Js.zc , Whcd.mc（5）SQL语句： SELECT Js.zc AS 职称 , Whcd.mc AS

8、 文化程度名称 , ; COUNT(*) AS 人数 , ; MIN( YEAR( DATE( ) ) - YEAR( Js.csrq ) ) AS 最小年龄 ; FROM jxsj!js INNER JOIN jxsj!whcd ; ON Js.whcd = Whcd.dm ; GROUP BY Js.zc , Whcd.mc ; ORDER BY Js.zc , Whcd.mc三、设计菜单（一）1“文件”菜单项名称为：文件 ( F )2 在“文件”菜单的子菜单中增加一个菜单项：打开 设置“打开”菜单项的结果为：子菜单 在“打开”菜单的子菜单中设置两个菜单项：数据库、表 设置“数据库”菜单项

9、的“结果”列为“命令”，在其右侧的文本框中输入命令：OPEN DATABASE3在“文件”菜单的“打开”菜单项之后增加一个菜单项，在菜单名称中输入“ ”（二）1将“文件”菜单项改为：自定义 ( C )2打开VFP主菜单 显示 / 常规选项，在对话框中选择：在“文件”之前3略4在“还原”菜单的“结果”列中选择“命令”，在其右侧的的文本框输入： _SCREEN.BackColor=RGB(255,255,255)（三）2打开VFP主菜单 显示 / 常规选项，在对话框中选择：追加5在“运行外部EXE程序”菜单项的“结果”列中选择：过程。再点击右侧的按钮，打开“过程”代码的编辑窗口，将题给代码输入并保

10、存。（四）2“PRG程序”菜单项设置为： PRG程序其余略四、设计表单（一）1 表单的Caption属性：代码表 在数据环境中添加视图：zzmm和whcd 表格的DeleteMark属性：.F. ScrollBars属性：2 垂直2 标签的Caption属性：选择类型 组合框的Style属性：2（下拉列表框）3 下拉列表框的RowSourceType属性：1 值 下拉列表框的RowSource属性：民族 , 政治面貌 , 文化程度4 下拉列表框的InterActiveChange事件代码： DO CASE CASE This.Selected( 1 ) = .T. ThisForm.Grdmz

11、.RecordSource = mz CASE This.Selected( 2 ) = .T. ThisForm.Grdmz.RecordSource = zzmm CASE This.Selected( 3 ) = .T. ThisForm.Grdmz.RecordSource = whcd ENDCASE或DO CASE CASE This.value =“民族” ThisForm.Grdmz.RecordSource = mz CASE This.value = “政治面貌” ThisForm.Grdmz.RecordSource = zzmm CASE This.value = “文

12、化程度” ThisForm.Grdmz.RecordSource = whcd ENDCASE（二）1 表单的AutoCenter属性：.T.2 下拉列表框的RowSource属性：mz 3 表格RecordSourceType属性：4 SQL说明 表格RecordSource属性： SELECT gh , xm From js INTO CURSOR temp4 文本框的Name属性：Tmz 文本框的Value属性：所有民族 文本框的Enabled属性：.F.5 下拉列表框的InterActiveChange事件代码： ThisForm.Tmz.Value=mz.mc ThisForm.Gr

13、id1.RecordSource = SELECT gh , xm FROM js ; WHERE mzdm = This.Value INTO CURSOR temp 6 命令按钮的Caption属性：退出( X )（三）1 表单的Caption属性：代码表 表单的Icon属性：pc.ico 表单的AutoCenter属性：.T.2 在数据环境中添加视图：zzmm和whcd3 选项按钮组的Name属性：Mzw 利用选项按钮组的生成器设置： 按钮的数目：3 按钮的标题分别为：民族、政治面貌、文化程度 按钮布局：水平4 选项按钮组的InterActiveChange事件代码： DO CASE C

14、ASE This.Value = 1 ThisForm.Grdmz.RecordSource = mz CASE This.Value = 2 ThisForm.Grdmz.RecordSource = zzmm CASE This.Value = 3 ThisForm.Grdmz.RecordSource = whcd ENDCASE5 命令按钮的Caption属性：关闭( 0 d = LEFT ( c , 1 ) c = SUBS ( c , 2 ) n = 0 IF d = . m = m + CHR ( VAL ( LEFT ( c , 2 ) ) ) ELSE m = m + CHR

15、 ( VAL ( LEFT ( c , 2 ) ) + 30 ) ENDDO 此处改为ENDIF c = SUBS ( c , 2 ) 此处改为c = SUBS ( c , 3 )c = SUBS ( c , 3 )ENDDO ENDIFWAIT WINDOWS cc + 解密后的代码为： + m（二）CLEARDIMENSION c ( 30 )FOR i = 1 TO 30 & 第一个循环 n = CHR ( 64 + MAX ( 1 , MOD ( INT ( RAND ( ) * 100 ) , 27 ) ) ) 26 c ( i ) = nENDFORFOR i = 1 TO 30

16、& 第二个循环 m = c ( i ) FOR t = i + 1 TO 30 IF m c(t) c ( i ) = c ( t ) c ( t ) = m m = c ( i ) ENDIF ENDDO 此处改为ENDFOR ENDFORENDFORDISPLAY MEMO LIKE c *（三）DIMESION A ( 20 )FOR i = 1 TO 20 A ( i ) = INT ( RAND ( ) * 100 )ENDFORMmax = A ( i )Mmin = A ( i )? A ( i )FOR i = 2 TO 20 ? STR ( A ( 1 ) , 3 ) 此处改

17、为?STR(A(i), 3 )? STR ( A ( 1 ) , 3 ) IF Mmax A ( i ) Mmin = A ( i ) ENDIFENDFOR? 最大数是： + Mmax + 最小数是： , Mmin STR ( Mmax , 3 ) 最大数是： , Mmax , SPACE ( 10 ) + 最小数是： , Mmin最后一句改为：? 最大数是： +STR( Mmax) + 最小数是： , Mmin或 ? 最大数是： , Mmax, 最小数是： , Mmin （四）c = 数据库STORE 0 TO hz , yw , qtDO WHILE c 0 此处改为LEN(c)0DO WHILE LEN ( c ) 0 x = ASC ( LEFT ( c , 1 ) ) IF x 127hz = hz + 1c = SUBS ( c , 3 ) ELSE IF x 64 AND X 96 AND x 123 yw = yw + 1 ELSE qt = qt + 1 ENDIF c = SUBS ( c , 3 ) 此处改为c=SUBS(c, 2)c = SUBS ( c , 2 ) ENDIFENDDOWAIT WIND 汉字： + STR ( hz , 4 ) + “英文字母：” + STR ( yw , 4 )+; 其它字符：+ STR ( qt , 4 )