等于百位数;2)该数是素数(仅能被 1 和本身整除的数称为“素数”)。例如 101、 211、239 等。要求: ①将下列程序输入到项目中的程序文件 PCODE 中,并对其中的 2 条错误语句进行修改; ②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。 CLEAR FOR i=100 TO 999
yn=.T. FOR j=3 TO i-1 &;&; FOR j=2 TO i-1 IF MOD(i,j)=0 yn=.F. EXIT ENDIF ENDFOR IF yn s=STR(i,3) s1=SUBS(s,3,1) s2=SUBS(s,2,1) s3=SUBS(s,1,1) IF MOD(VAL(s1)+VAL(s2))=VAL(s3) &;&; IF MOD(VAL(s1)+VAL(s2),10)=VAL(s3) ?i ENDIF ENDIF ENDFOR 2010Q VFP02 一、项目、数据库和表操作(12 分) 打开丁盘根目录中的项目文件 JXGL,在该项目中已有一数据库 JXSJ。 1.在 JXSJ 数据库中按如下表格所示的结构创建 AB 表,并按表格中的要求设置相关属性。 字段名 RQ QCPH DD TP (1) (2) (3) (4) (5) 数据类型 D C C G 宽度 0 8 20 0 宇段标题 日期 汽车牌号 地点 图片
AB 表的表注释:汽车违停记录; 不要忘记加定界符 设置日期字段的默认值:当前系统日期减 1; date()-1 设置地点字段的显示类:列表框; 选择字段选项卡 ,在“显示类”里选择 listbox 设置汽车牌号字段的有效性规则:不能为空; !empty(qcph) 创建普通索引,索引名为 abcd,要求按地点排序,相同时根据汽车牌号排序。 DD+allt(str(qcph)) 2. 在 AB 表中输入如下记录: RQ (默认值) QCPH 苏 A88888 DD 世纪广场
3. 修改 JC 表数据:所有记录的单价字段的值取整。 Update jc set dj=int(dj) 4.JS 表已存在主索引 GH,索引表达式为 GH;KCAP 表已存在普通索引 GH,索引表达式 为 GH。以 JS 表为主表、KCAP 表为子表,根据 GH 建立永久关系,并设置两表之间
的参照 完整性:更新限制、插入限制。 二、设计查询(8 分) 已知学生表(XS)含有(xh,C)、(xm,C)等字段;自由表图书借阅表(JYB)含有 读者号(dzh,C)、分类号(flh,C)、借阅日期(jyrq,D)和还书日期(hsrq,D)等字段,其中学
生的读者号与相同。按如下要求修改 JXGL 项目中的查询 CHAXUN: 基于 XS 表和 JYB 表
查询学生借书情况,计算过期罚款信息。要求:查询输出字段为 dzh、xm、罚款;查询结果按罚款降序排序;输出去向为文本文件 TEMP.TXT。 注:罚款计算方法为 30 天以上超过部分每本每天 0.05 元,未还书者(即还书日期为空 的记录)不统计。 SELECT Jyb.dzh, Xs.xm,; sum(iif((hsrq-jyrq)>30,(hsrq-jyrq-30)*0.05,0) ) as 罚款; FROM jxsj!xs INNER JOIN jyb ; ON Xs.xh = Jyb.dzh; GROUP BY Xs.xh; ORDER BY 3 DESC; TO FILE temp.txt 三、设计菜单(5 分) JXGL 项目中已存在菜单 MENU,其中已定义了“文件”菜单栏及其中的“退出菜单” 项。按如下要求
设计菜单,菜单运行后的效果如图 1 所示。 1.在“文件”菜单栏右侧创建“成绩管理”菜单栏。 2.在“成绩管理”菜单栏下创建子菜单“查询”和插入系统菜单 “导出(E)”菜单项。 3.为“查询”菜单项设置命令:SELECT * FROM cj 4. 为 “导出” 菜单项设置跳过条件: 表打开时才可操作(启用)。 CJ Used(cj) 5.在菜单项“查询”和“导出”之间插入分组线。 \四、设计表单(10 分) 表单 F101C 用于数据的录入。按下列要求修改表单,修改后表单运行时如图 2 所示。 1. 设置文本框控件的输入掩码,使其只能接受四位数字,不允许输入字母、汉字或其它字 符,并设置文本框中的数字以粗体显示。 Inputmask: 9999 Fontbold :.t. 2. 在表单的空白区域添加一个复选框控件 Checkl(如 图所示),设置其标题为“自动排序” ,值为逻辑假 (.F.),并设置有关属性使其能自动调整大小。 Caption : 自动排序 Value: 0 Autosize: .t. 2. 若复选框 Checkl 被选中,表示列表框 Listl 中的项 自动排序,否则不自动排序。编写 Checkl 的 Click 事件代码,根据 Checkl 的值,用一条语句设置
列表 框控件 Lis