问答题


说明:1.启动VFP后在命令窗口中执行下列命令,以设置默认的工作目录:
SET DEFA TO T:
2.除非题目要求,否则不要对T盘上的文件进行重命名、复制和删除操作。程序改错。
下列程序的功能是:求一个4位整数ABCD和一个1位整数E(1除外),它们的乘积等于DCBA,如2178*4=8712。要求:
①项目中有一个程序文件Pcode,将下列程序代码复制到其中并进行修改。
②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
(1) CLEAR
(2) DIME n(4), m(4)
(3) FOR i=1000 TO 9999
(4) FOR j=1 TO 4
(5) n(j)=SUBS(ALLT(STR(i)), j, 1)
(6) ENDFOR
(7) FOR k=2 TO 9
(8) s=i*j
(9) IF s<=9999
(10) FOR p=1 TO 4
(11) m(P)=SUBS(ALLT(CHR(s)), p, 1)
(12) ENDFOR
(13) IF m(4)=n(t)AND m(3)=n(2)AND m(2)=n(3)AND m(i)=
(14) n(4)
(15) i, k
(16) ENDIF
(17) ENDIF
(18) ENDFOR
(19) ENDFOR

答案: 程序改错
第8行改为:s=i*k
第11行改为:m(p)=SUBS(ALLT(STR(s)), P, 1)
题目列表

你可能感兴趣的试题

问答题


说明:1.启动VFP后在命令窗口中执行下列命令,以设置默认的工作目录:
SET DEFA TO T:
2.除非题目要求,否则不要对T盘上的文件进行重命名、复制和删除操作。项目、数据库和表操作。
打开项目文件jxgl,在该项目中已有一个数据库jxsj。根据以下要求进行操作:
(1)在jxSj数据库中按如下表格中所示的结构创建ab.dbt表,并设置相关属性。
字段名 数据类型 宽度 字段标题
zkz C 10 准考证号码
xm C 12 姓名
bscj N 2 笔试成绩
sjcj N 2 上机成绩
qk L 是否缺考
①设置ab表的表注释:考生成绩。 ②设置是否缺考字段的默认值:.F.。 ③设置是否缺考字段的显示类:复选框。 ④设置笔试成绩字段的有效性规则:大于或等于0,且小于或等于60。 ⑤创建普通索引,索引名为abcd,要求按“笔试成绩”与“上机成绩之和”排序。 (2)在ab表中输入如下记录:
zkz xm bscj sjcj qk
1110520111 李小 42 28 .F.
(3)将dmb表中类型(lx)为“民族”的记录复制到新的表中(表名为mzb)。
(4)xs表已存在主索引xh,索引表达式为xh;cj表已存在普通索引xh,索引表达式为xh。以xs表为主表、cj表为子表,根据xh建立永久关系,并设置两表之间的参照完整性:更新限制、删除级联。

答案: 项目、数据库和表操作
笔试成绩字段的有效性规则:BETWEEN(bscj, 0, 60)
索引表达式:bscj+sjcj
问答题


说明:1.启动VFP后在命令窗口中执行下列命令,以设置默认的工作目录:
SET DEFA TO T:
2.除非题目要求,否则不要对T盘上的文件进行重命名、复制和删除操作。设计表单。
表单F101F用于实现对汉字文本加密。按下列要求修改表单,修改后表单运行时如下图所示。


(1)在“加密”按钮的左侧添加一个标签控件Label3和一个组合框控件Combo1。设置标签的标题为“加密方式”;设置组合框的样式为“下拉列表框”,数据源类型为“值”,数据源为“方式1,方式2”。
(2)编写组合框Combo1的Init事件代码,要求只用一条语句实现:在表单运行后,默认选中“方式2”(即该控件的ListIndex属性值取2)。
(3)表单已创建了用于加密的方法程序:Encrypt(enType, SourceStr),其中enType参数表示加密的方式,可取整数值1或2;SourceStr参数表示需要加密的原文,返回值为密文字符串。修改“加密”按钮的Click事件代码,以实现功能:根据组合框控件Combo1当前选定的加密方式,对Edit1控件中的源文加密,并将密文显示在Edit2控件中,要求只在原代码上修改,不允许增加新的语句。
提示:enType参数可取Combo1当前选定行的索引号(ListIndex)。