本身整除的数称为“素数”)。例如 101、 211、239 等。要求: ①将下列程序输入到项目中的程序文件 PCODE 中,并对其中的 2 条错误语句进行修改; ②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。 CLEAR FOR i=100 TO 999 yn=.T. FOR i=3 TO i-1 IF MOD(j,i)=0 yn=.F. EXIT ENDIF ENDFOR IF yn
s=STR(i,3) s1=SUBS(s,3,) s2=SUBS(s,2,) s3=SUBS(s,1,) IF MOD(VAL(s1)+VAL(s2))=VAL(s3) ?i ENDIF ENDIF ENDFOR 2010Q VFP02 一、项目、数据库和表操作(12 分) 打开丁盘根目录中的项目文件 JXGL,在该项目中已有一数据库 JXSJ。 1.在 JXSJ 数据库中按如下表格所示的结构创建 AB 表,并按表格中的要求设置相关属性。 字段名 RQ QCPH DD TP 数据类型 D C C G 宽度 0 8 20 0 宇段标题 日期 汽车牌号 地点 图片
(1) AB 表的表注释:汽车违停记录; (2) 设置日期字段的默认值:当前系统日期减 1; date()-1 (3) 设置地点字段的显示类:列表框;listbox (4) 设置汽车牌号字段的有效性规则:不能为空; not empty (qcph) (5) 创建普通索引,索引名为 abcd,要求按地点排序,相同时根据汽车牌号排序。Dd+qcph 2. 在 AB 表中输入如下记录:表——追加记录 显示——追加方式—— RQ (默认值) QCPH 苏 A88888 DD 世纪广场
3.修改 JC 表数据:所有记录的单价字段的值取整。 选中 jc 表,浏览, ‘表’菜单——替换字段 字段:dj 替换为:int(dj) 范围:ALL 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 元,未还书者(即还书日期为空 的记录)不统计。
三、设计菜单(5 分) JXGL 项目中已存在菜单 MENU,其中已定义了“文件”菜单栏及其中的“退出菜单” 项。按如下要求
设计菜单,菜单运行后的效果如图 1 所示。 1.在“文件”菜单栏右侧创建“成绩管理”菜单栏。 2.在“成绩管理”菜单栏下创建子菜单“查询”和插入系统菜单 “导出(E)”菜单项。在菜单栏;里 3.为“查询”菜单项设置命令:SELECT * FROM cj 将菜单改 成命令 4.为“导出”菜单项设置跳过条件:CJ 表打开时才可操作(启用)。 点选项, !used( “cj“) 5.在菜单项“查询”和“导出”之间插入分组线。 \是直接按那个键不需要按 shift 键
四、设计表单(10 分) 表单 F101C 用于数据的录入。按下列要求修改表单,修改后表单运行时如图 2 所示。 1. 设置文本框控件的输入掩码, 使其只能接受四位数字 inputmask 9999,不允许输入字母、 汉字或其它字符,并设置文本框中的数字以粗体显示。 Fontbold .T. 2. 在表单的空白区域添加一个复选框控件 Checkl(如图 ,值 value 为 所示),设置其 caption 标题为“自动排序” 逻辑假(.F.),并设置有关属性 autosize .T. 使其能自动 调整大小。 4. 若复选框 Checkl 被选中,表示列表框 Listl 中的项 自动排序,否则不自动排序。编写 Checkl 的 Click 事件代码,根据 Checkl 的值,用一条语句设置
列表 框控件 Listl 的自动排序属性(Sorted)。 Thisform.list1.sorted=thisform.check1.value 5. 编写“清除”按钮的 Click 事件代码,用 2 条语句 实现如下功能:将列表框 Listl 的所有数据项清空,将文本框 Textl 的值