VFP期末考试题型(带答案).pdf

《VFP期末考试题型(带答案).pdf》由会员分享，可在线阅读，更多相关《VFP期末考试题型(带答案).pdf（33页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、 数 据 库 技 术 与 应 用(V F P)期 末 考 试 题 型 一、判 断 题 1 删 除 数 据 库 时 库 表 也 一 定 被 删 除。F2 修 改 表 的 结 构 必 须 以 独 占 或 非 只 读 方 式 打 开 表。T3 执 行 G O TOP后，RECNO()的 值 一 定 等 于 1。F4 一 个 表 只 能 有 一 个 M型 和 G型 字 段。F5 V F P执 行 命 令 U S E,就 是 把 内 存 中 对 当 前 表 所 作 的 修 改 保 存 到 外 存 的 表 文 件 中。F6 建 立 关 联 的 两 个 表 都 必 须 先 建 立 索 引。F7 VFP有 交

2、 互 操 作 与 程 序 执 行 两 类 工 作 方 式。T8 表 文 件 的 所 有 字 段 的 值 均 存 放 在 表 文 件 文 件(.D B F)中。F9 LIST与 DISP命 令 的 功 能 完 全 一 样 F10 RETURN命 令 和 CANCEL命 令 的 功 能 相 同。F11 VFP中 只 能 引 用 一 维 或 二 维 数 组，但 数 组 中 各 个 元 素 的 值 的 类 型 可 以 不 同.T1 2 在 浏 览 窗 口 中，可 以 为 记 录 加 注 删 除 标 记。也 可 以 取 消 删 除 标 记。T1 3结 构 复 合 索 引 文 件 是 打 开 表 时 自

3、动 打 开。T14 LOCATE命 令 和 SEEK命 令 都 需 要 事 先 对 表 进 行 索 引。F1 5视 图 文 件 是 保 存 数 据 工 作 期 所 设 置 的 工 作 环 境 的 文 件。T16 LOOP语 句 使 执 行 转 向 循 环 语 句 头 部 继 续 循 环。T1 7不 允 许 将 用 户 画 的 幅 画 放 入 到 表 文 件 的 记 录 中。F18 照 片 字 段 的 类 型 可 以 修 改 为 C型 的。F1 9只 有 数 据 库 表 才 能 建 立 主 索 引。T二、编 程 填 空 题 1、求 10,1000 内 所 有 能 被 被 7 和 9 中 至 少

4、个 数 整 除 的 整 数 之 个 数。答 案：236n=0fo r i=10 to 1000i f mod(i,7)=0 or mod(i,9)=0n=n+lendiendf?n2、求 101,299 内 所 有 能 被 2 整 除 但 不 能 同 时 被 3 和 5 整 除 的 整 数 之 和。答 案:18630s=0fo r i=101 to 299i f mod(i,2)=0 and not(mod(i,3)=0 and mod(i,5)=0)s=s+iendiendf?s3、求 100以 内 最 大 的 自 然 数 n,使 得 从 1开 始 的 连 续 n 个 自 然 数 的 倒 数

5、 之 和 小 于 3.5。答 案：18s=0for i=l to 100s=s+l/iifs=3.5exitendiendf?i-l4、求 100以 内 最 小 的 自 然 数 n,使 得 从 1开 始 的 连 续 n 个 自 然 数 的 立 方 之 和 大 于 30000。答 案:25s=0for i=l to 100s=s+iA3ifs30000exitendiendf?i5、求 出 1 0 0以 内 使 得 算 式 l*2+2*3+.+n*(n+l)的 值 小 于 50 0 0的 最 大 的 自 然 数 n。答 案：23s=0for i=l to 100s=s+i*(i+l)ifs=50

6、00exitendiendf?i-l6、求 出 1 0 0以 内 使 得 算 式 l/(l*l)+l/(2*2)+l/(n*n)的 值 小 于 1.6的 最 大 的 自 然 数 n。答 案：21s=0for i=I to 100s=s+l/iA2ifs=1.6exitendiendf?i-l7、某 国 今 年 的 人 口 总 数 为 1 亿，若 以 每 年 4%的 速 度 递 增，试 求 出 至 少 要 再 过 几 年 该 国 人 口 总 数 才 会 翻 翻。答 案：18n=0 x=ldo while x2x=x*(1+0.04)n=n+lenddo?n8、设 等 比 数 列：L 3,9,2

7、7,。求 使 得 此 数 列 的 前 n 项 之 和 大 于 2345求 8 的 最 小 的 自 然 数 答 案：14s=0n=0do while s=2345678s=s+3Ann=n+lenddo?n9、求 出 45678的 所 有 非 平 凡 因 子(即 除 1和 它 本 身 以 外 的 约 数)中 是 奇 数 的 因 子 个 数。答 案：7n=0s=45678for i=3 to 22839 step 2if mod(sj)=0n=n+lendifendfor?n10、求 出 203267的 所 有 真 因 子(即 小 于 它 本 身 的 约 数)中 最 大 的 因 子 数。答 案：6

8、557s=203267for i=1 to int(203267/3)if mod(s,i)=0n=iendifendfbr?n11、求 出 20677和 42067的 最 大 公 约 数。答 案：713for i=20677 to 1 step-1if mod(20677,i)=0 and mod(42067,i)=0exitendifendfbr?i12、撷 1,100 内 能 被 6 或 8 整 除 的 所 有 自 然 数 的 平 方 根 的 和(将 第 1位 小 数 四 舍 五 入,结 果 只 保 留 整 数)。答 案：162s=0for i=l to K M)if mod(i,6)=

9、0 or mod(i,8)=0s=s+sqrt(i)endifendfor?round(s,0)13、求 所 有 符 合 算 式 ab*ba=2701的 最 小 的 两 位 数 ab(即 a*10+b)。其 中 a、b 是 r 9 之 间 的 一 位 整 数。答 案：37for a=l to 9for b=l to 9if(a*104-b)*(b*10+a)=2701?a*10+breturnendifendforendfor14、已 知 数 列：1,2,4,7,11,16.其 规 律 是 相 邻 两 项 之 差 依 次 是 1,2,3,4,5,.试 求 出 此 数 列 中 大 于 5000的

10、 最 小 的 项。答 案：5051a=ln=ldo while a5000a=a+nn=n+lenddo?a15、已 知 数 列 f(n)：f(l)=l,f(2)=4,当 n=3,4,5,时，f(n)=3*f(n-l)-f(n-2)0 试 求 出 100 以 内 最 小 的 自 然 数 n 使 得 此 数 列 的 第 n 项 大 于 87654321。答 案：20Dimension f(100)f(D=lf(2)=4n=2do while f(n)87654321n=n+lf(n)=3*f(n-l)-f(n-2)enddo?n16、球 从 100米 高 处 落 至 平 地，并 且 连 续 多

11、次 再 反 弹 再 落 下，假 设 每 次 反 弹 的 高 度 都 是 前 高 度 的 3/4倍，试 求 出 最 大 的 自 然 数 n,使 得 此 球 从 开 始 下 落 至 第 n 次 着 地 时 在 垂 直 方 向 所 经 过 的 总 路 程 不 超 过 690 米。答 案：15h=100s=100n=ldo while s设 有 用 2 6个 字 母 表 示 的 2 6个 表 达 式：a=l,b=l/(a+l),c=l/(b+2),.z=l/(y+25)。试 求 出 这 26个 字 母 中 其 值 小 于 0.1的 字 母 个 数。答 案：16a=ln=0for i=1 to 25a=

12、l/(a+i)ifa0.1n=n+lendifendfbr?n18、回 文 指 的 是 正 读 和 反 读 都 样 的 串 字 符，如 121、1221。试 求 出 1421,4112 内 所 有 回 文 数 的 和。答 案：74250s=0for i=1421 to 4112ifint(i/1000)=i%10and int(i/100)%10=int(i%100/10)s=s+iendifendfbr?s19、求 在 100,999 内 所 有 不 含 数 字 0 且 各 位 数 字 之 积 被 9 6整 除 的 数 之 和。答 案：26640s=0for a=l to 9for b=l

13、to 9forc=l to 9if(mod(a*b*c,96)=0)s=s+a*1 00+b*1 0+cendiendfendfendf?s20、将 大 于 1000且 能 被 4 和 6 中 至 少 一 个 数 整 除 的 所 有 整 数 按 从 小 到 大 顺 序 排 列 后，求 前 面 2 0个 数 之 和。答 案：20610a=l001n=0s=0do while n20if mod(a,4)=0 or mod(a,6)=0s=s+an=n+lendifa=a+lenddo?s21、若 一 个 自 然 数 恰 好 是 它 的 平 方 的 末 后 几 位 数，则 称 此 数 为 自 同

14、构 数。如 5 和 7 6都 是 自 同 构 数，因 为 它 们 的 平 方 分 别 是 2 5和 5776。求 99999 内 所 有 自 同 构 数 之 和。(提 示：若 x 是 m位 同 构 数，则 x 的 平 方 除 以 1 0的 m次 方 的 余 数 就 是 x)答 案：101114s=0for i=2 to 999999if mod(i*i,10)=i or mod(i*i,100)=i or mod(i*i,1000)=i or mod(i*i,10000)=i or mod(i*i,100000)=is=s+iendifendfor?s22、求 满 足 条 件 A*B=5432

15、1且 使 A+B的 值 最 小 的 自 然 数 对 A、B中 较 小 的 一 个 数。(提 示：设=B,当 A越 大 时 A+B越 小)答 案：57s 1=54322for i=1 to int(sqrt(54321)if(54321%i=0)s=i+54321/iif(s=sl)sl=sa=iendifendifendfor?a23、已 知 数 列:1、2、4、7、10、15、，其 特 点 是：相 邻 两 项 之 差 恰 好 构 成 自 然 数 列：1、2、3、4、5、。求 此 数 列 的 前.100项 中 能 被 4 整 除 的 项 的 个 数。答 案：25m=0a=lfor n=l to

16、 99a=a+nifa%4=0m=m+1endifendfor?m24、求 出 将 十 进 制 整 数 98765432等 值 转 换 为 二 进 制 形 式 表 示 后 其 中 数 字 1 的 个 数。(提 示：模 拟 人 工 计 算 的“2 除 取 余”法)答 案：13c=98765432n=0do while c0if(c%2=l)n=n+lendifc=int(c/2)cnddo?n25、对 自 然 数 A、B,C,若 AB C 且 A*A+B*B=C*C,则 称 A,B,C 为 一 组 勾 股 弦 数，其 中 A、B、C 分 别 称 为 勾、股、弦。试 求 出 弦 为 25000的

17、勾 股 弦 数 组 的 个 数。答 案：5n=0for b=12500 to 25000for a=l to b-1if a*a+b*b=25000*25000n=n+lendifendforendfor?n26、求 方 程 3x-7y=l在 条 件 x|100且|y|40下 的 整 数 解 的 个 数。答 案：26n=0for x=-99 to 99for y=-39 to 39if3*x-7*y=ln=n+lendifendforendfor?n27、已 知 数 列 f(n)：f(l)=l,f(2)=4,当 n=3,4,5,时，f(n)=3*f(n-1)-f(n-2)o 试 求 出 知 0

18、 以 内 最 大 的 自 然 数 n 使 得 此 数 列 的 前 n 项 之 和 首 次 大 于 75364321c答 案：19dime f(100)f(D=lf(2)=4s=5for n=3 to 100f(n)=3*f(n-l)-f(n-2)s=s+f(n)ifs75364321exitendifcndfor?n28、求 1 0 0-2 0 0内 的 所 有 素 数 的 个 数。(素 质 是 指 只 能 被 1和 本 身 整 除 的 数)答 案：21n=0for i=100 to 200forj=2 to i-1if(i%j=O)exitendifend forif j=in=n+lend

19、ifendfor?n29、求 100()10000内 的 笫 50个 素 数。(素 质 是 指 只 能 被 1和 本 身 整 除 的 数)答 案：1361n=0for i=1000 to 10000for j=2 to i-1if(i%j=O)exitendifendforif j=in=n+lendififn=50exitendifendfor?i30、编 写 程 序，计 算 10000以 内 有 多 少 个 这 样 的 数，其 个 位 数 为 6 且 该 数 能 被 9 整 除。答 案：1 1 1n=0for i=l to 100(K)if i%10=6 and i%9=0n=n+lend

20、ifendfbr?n31、设 某 四 位 数 的 各 位 数 字 的 平 方 和 等 于 1 0 0,问 共 有 多 少 个 这 种 四 位 数？答 案：49n=0for i=1000 to 9999a=int(i/1000)b=int(i/100)%10c=int(i/10)%10d=i%10ifaA2+bA2+cA2+dA2=100n=n+lendifendfbr?n32、把 一 张 一 元 钞 票，换 成 一 分、二 分 和 五 分 硬 币，每 种 至 少 11枚，问 有 多 少 种 方 案？答 案：13n=0for a=l 1 to 20for b=l 1 to 50forc=ll t

21、o 1(X)if a*5+b*2+c=100n=n+1endifendfbrendforendfbr?n33、把 一 张 一 元 钞 票,换 成 一 分、二 分 和 五 分 硬 币,每 种 至 少 1 枚,问 兑 换 后 硬 币 总 数 最 多 的 与 硬 币 总 数 最 少 的 枚 数 之 差 是 多 少？答 案：73max=3min=300for a=l to 20for b=1 to 50for c=l to 100if a*5+b*2+c=100s=a+b+cif(smax)max=sendifif(smin)min=sendifendifendfbrcndforcndfor?max-

22、min34、找 满 足 以 下 条 件：乂-2+丫-2 3 厂 2 且 X+Y之 值 最 大 的 二 个 正 整 数 X,Y,求 X+Y之 值.答 案：49max=41for x=l to 41for y=x to 41if x*x+y*y=41*41 and maxx+ymax=x+yendifend forendfor?max35、已 知 2 4有 8 个 正 整 数 因 子(即：1,2,3,4,6,8,12,24)，而 24正 好 被 其 因 子 个 数 8 整 除。求 100,300之 间 能 被 其 因 子 数 目 整 除 的 数 的 个 数。答 案：19m=()for i=100

23、to 300n=0for j=l to iif i%j=0n=n+lendifendforif i%n=0m=m+1endifendfbr?m36、求 S=l-1/2+1/3T/4+的 前 求 0 项 之 和(精 确 到 小 数 点 后 4 位)答 案:0.6882f=ls=0for n=l to 100s=s+f*l/nf=-fcndfbr?round(s,4)37、编 写 程 序，求 共 有 几 组 i、j、k 符 合 算 式 ijk+k ji=1 3 3 3,其 中 i、j、k 是 0 9 之 间 的 一 位 整 数。答 案：6n=0for i=0 to 9for j=0 to 9for

24、 k=0 to 9if i*100+j*10+k+k*100+j*10+1=1333n=n+lendifendforcndfbrcndfor?n38、编 写 程 序，求 在 四 位 数 的 偶 数 中，所 有 各 位 数 字 之 和 是 3 0的 倍 数 的 数 的 和。答 案：288840sum=0for i=1000 to 9999 step 2a=int(i/1000)b=int(i/100)%10c=int(i/10)%10d=i%10if(a+b+c+d)%30=0sum=sum+iendifendfor?sum39、编 写 程 序，求 1到 5000之 间 的 能 被 5 整 除

25、的 前 若 干 个 偶 数 之 和，当 和 值 大 于 5 0 0时 退 出，输 出 该 和 值。答 案：550s=0for i=2 to 5000 step 2if i%5=0s=s+iif s500exitendifendifendfor?s40、一 个 数 如 果 刚 好 与 它 所 有 的 因 子 之 和 相 等，则 称 该 数 为 一 个 完 数，如：6=1+2+3,则 6 就 是 一 个 完 数。求 出 2 0 0到 500之 间 所 有 的 完 数 之 和。答 案：496sum=Ofor i=200 to 500s=0for j=l to i-1ifi%j=Os=s+jendif

26、endforif s=isum=sum+iendifendfbr?sum41、编 写 程 序，求 在 5000以 内 能 被 1 7或 者 2 3整 除 的 正 整 数 的 个 数。答 案：499n=0for i=l to 5000if i%17=0 or i%23=0n=n+lendifendfor?n42、编 写 程 序，求 四 位 数 的 偶 数 中，所 有 各 位 数 字 之 和 是 1 5的 倍 数 的 数 的 个 数。答 案：306n=0for i=10(X)2 9999 step 2a=int(i/100()b=int(i/100)%10c=int(i/10)%10d=i%10i

27、f(a+b+c+d)%15=0n=n+lendifendfbr?n43、编 写 程 序，计 算 在 0、5 0的 范 围 内 有 多 少 个 数，其 每 位 数 的 乘 积 大 于 每 位 数 的 和。答 案：23n=0for i=0 to 50a=int(i/10)b=i%10if a*ba+bn=n+lendifendfor?n44、用 一 元 纸 币 兑 换 一 分、两 分 和 五 分 的 硬 币，要 求 兑 换 硬 币 的 总 数 为 6 0枚，问 共 有 多 少 种 换 法？（注：在 兑 换 中，一 分、两 分 或 五 分 的 硬 币 数 可 以 为 0 枚）答 案：1 1n=0fo

28、r a=0 to 20forb=0 to 50c=60-a-bif a*5+b*2+c=100n=n+lendifendforendfor?n45、编 写 程 序，求 出 100到 5 0 0之 间 同 时 满 足 除 5 余 4 和 除 7 余 2 条 件 的 数 的 个 数。答 案：12n=0for i=100 to 500if i%5=4 and i%7=2n=n+lendifendfbr?n46、有 5 羊 4 犬 3 鸡 2 兔 值 钱 1496,4 羊 2 犬 6 鸡 3 兔 值 钱 1175,3 羊 1犬 7 鸡 5 兔 值 钱 958,2 羊 3 犬 5鸡 1兔 值 钱 8 6

29、 1,求 鸡 值 多 少 钱？答 案：23for a=l to 300for b=1 to 300for c=1 to 170d=861-2*a-3*b-5*cif 4*a+2*b+6*c+3*d=11 75 and 3*a+b+7*c+5*d=958 and 5*a+4*b+3*c+2*d=l496?creturnendifendfbrendfbrendfbr47、编 写 程 序，求 出 3 到 100之 间 的 所 有 非 偶 数 非 素 数 的 数 之 和。答 案：1441s=0for i=3 to 100 step 2forj=2 to i-1if i%j=Oexitendifendf

30、orif j is=s+iendifendfor?s48、有 5 0个 学 生 一 起 买 小 吃，共 花 钱 200元，其 中 每 个 大 学 生 花 5 元，每 个 中 学 生 花 3 元，每 个 小 学 生 花 2 元，问 大、中、小 学 生 的 人 数 分 配 共 有 多 少 种 不 同 的 解(去 掉 某 类 学 生 为 0 的)？答 案：8n=0for x=1 to 40for y=l to 70z=50-x-yifx*5+y*3+z*2=200n=n+lendifendfbrendfor?n49、编 写 程 序，统 计 10009999之 间 的 所 有 满 足 以 卜.条 件

31、的 四 位 数 的 个 数。该 数 是 一 个 完 全 平 方 数，且 其 第 1、2 位 数 字 之 和 为 1 0,第 3、4 位 数 字 之 积 为 18。答 案：1k=0nl=int(sqrt(1000)for n=n 1 to 99m=n*na=int(m/1000)b=int(m/100)%10c=int(m/10)%10d=m%10if a+b=10 and c*d=18k=k+lendifendfor?k50、编 写 程 序，求 一 正 整 数 等 差 数 列 的 前 五 项 的 立 方 和，该 数 列 前 四 项 之 和 是 26、之 积 是 880。答 案：4720for

32、a=l to 5for d=1 to 4if 4*a+6*d=26 and a*(a+d)*(a+2*d)*(a+3*d)=880?aA3+(a+d)A3+(a+2*d)A3+(a+3*d)A3+(a+4*d)A3endifcndforendfor51、求 所 有 水 仙 花 数 的 个 数。所 谓 水 仙 花 数 是 指 一 个 3位 数，其 各 位 数 字 的 立 方 和 等 于 该 数 本 身。Store 0 to a,b,cStore 0 to sFor i=l()0 to 999A=mod(i,10)B=int(mod(1,100)/10)C=int(i/100)Ifi=aA3+bA

33、3+cA3S=s+1EndifEndfor?”水 仙 花 总 数 为:“,sReturn52、求 1000到 10000之 间 的 回 文 数(1001、3883、4554、7007、9999等)，并 求 它 们 的 和。s=0?1000到 10000之 间 的 回 文 数 有:for i=1000 to 10000m=alltrim(str(i)zx=m,dx=Mfor j=1 to 4zx=zx+substr(m,j,1)dx=dx+substr(m,5-j,1)endforif zx=dx?m+space(3)s=s+iendifendfor?它 们 的 和 是：”,s53、编 程 计

34、算 所 有 三 位 数 百 位 数 等 于 个 位 数 减 去 十 位 数 的 数 的 和 二 1798554、计 算 10到 4000中 所 有 素 数 的 个 数=54655、计 算 3到 1000中 所 有 素 数 的 和 二 76125856、求 出 1234,4321 内 中 间 两 位 数 之 和 等 于 首 尾 两 个 数 字 之 积 的 数 的 个 数=125三、程 序 填 空 题*主 程 序 MAIN.PRGCLEARSET TALK OFFTAX=OUSE GZDO WHILE.NOT.EOF()SHFGZ二 实 发 工 资 IX)SUB_1 WITH SHFGZ,(1)?

35、TAXREPLACE 税 金 WITH TAX ENDDOUSESET TALK ONRETURN*子 程 序 SUB l.PRGPARA A,XX=0DO CASECASE A=800 AND A=1300 AND A=1800 AND A=2300B=A-2300X=B*0.2+500*0.15+500*0.1+500*0.05ENDCASERETURNTAX S K I P 注 意 大 小 写 要 与 所 给 出 的 程 序 一 致！计 算 分 段 函 数 的 值:当 x0时,y=5；当 x0Y二 CASE X0Y=-5OTHERWISEY=0ENDCASE?Y=”,(2)RETURN5

36、 Y输 入 学 生 成 绩，若 成 绩 大 于 80分，则 输 出“优 良”，成 绩 小 于 60分，则 输 出“不 及 格”，否 则 输 出“中 等”。set talk offinput”请 输 入 学 生 成 绩”to aif a80?(1)elseif a60?不 及 格?中 等 End ifEndifreturn“优 良”口”？之 后 的 输 出 内 容 要 加 定 界 符 口 或 者 或 者”else卜 面 程 序 的 功 能 是 完 成 工 资 查 询，请 填 空：CLEARSET TALK OFFUSE employeeACCPT 请 输 入 职 工 号 To numLOCATE

37、 FOR 职 工 号 二(1)IF(2)DISPLAY姓 名，工 资 ELSE?职 工 号 输 入 错 误！ENDIFUSESET TALK ONNumFound()设 计 个 程 序 的 代 码，当 x=0时 候,y=3x+4当 0X100时,Y=5X+6Set talk offclearinput x=to xdo casecase(1)y=3*x+4case 0 x and x100y=5*x+6endcase?ySet talk onreturnX0时,y=10；当 x烂 0时,y=2x+3；当 x=0时,y=lSET TALK OFFINPUT 请 输 入 X的 值:TO X CAS

38、E X0Y=10CASE X0Y=2*X+3OTHERWISE ENDCASE?Y=，YRETURNDO CASE Y=1WAIT 要 将 水 电 费 字 段 清 零 吗？TO PIF UPPER(P)=(1)REPLACE ALL 水 电 费 WITH 0END IFG O BROWS FIELDS姓 名，水 电 费 USESET TALK ONRETURN丫 TOPSET TALK OFFUSE STUDENTDO WHILE.NOT.EOF()IF 笔 试=80 AND 上 机=80REPLACE等 级 WITH“优 秀”ENDIFNKSKIPENDDOUSESET TALK ONRET

39、URN输 入 成 绩，统 计 考 试 总 人 数、不 同 分 数 段 的 人 数、考 试 成 绩 分 数 段 分 布 百 分 比 数。分 数 分 为 五 段：不 及 格、60 69、70 79、8089,90100。如 果 输 入：111将 结 束 统 计。Set talk offClearsto re 0 to kl,k2,k3,k4,k5do w hile.t.INPUT”输 入 成 绩：to xdo casecase(1)x 二 100 and x=90k5=k5+lcase x=80k4=k4+lcase x=70K3=K3+1case x=60k2=k2+lcase x60kl=Kl

40、+lcase x=llle x itotherw ise?输 入 错 误！请 重 新 输 入 分 数!EndcaseE N D D Ok=kl+k2+k3+k4+k5?”不 及 格 人 数：”,r 分 数 6069人 数 r 分 数 7079人 数?”分 数 8089人 数?”分 数 90100人 数?”总 人 数：”,Returnkl,kl/k*100,V”,k2,k2/k*100,”,k3,k3/k*100,*%,”,k4,k4/k*100,解”,k5,k5/k*100,NYk四、表 单 操 作 1.按 要 求 在 考 生 文 件 夹 下 完 成 下 列 操 作：1）按 下 图 设 计 一

41、 表 单 文 件 formcalcl。设 置 表 单（名 称 为 forml）标 题 为“人 民 币 兑 换 美 元”。2）表 单 中 添 加 两 个 标 签，设 置 第 一 个 标 签（labell）标 题 为“输 入 人 民 币”，第 二 个 标 签（label2）标 题 为“兑 换 为 美 元”。3）添 加 两 个 文 本 框（名 称 分 别 为 textl和 text2）,显 示 美 元 的 文 本 框（text2）设 为 只 读。4）表 单 中 添 加 一 个 命 令 按 钮，其（名 称 为 commandl）的 标 题 为“兑 换”，编 写“兑 换”命 令 按 钮 的 代 码，要

42、求 运 行 表 单 时，在 文 本 框（textl）中 输 入 人 民 币 后，单 击“兑 换”命 令 按 钮,算 出 兑 换 的 的 美 元（人 民 币 兑 换 成 美 元 的 比 例 为：1美 元=7元 人 民 币），在 文 本 框（text2）中 显 示 结 果。操 作 完 成 后 将 操 作 结 果 保 存 在 考 生 文 件 夹 下。command 1 的 click 代 码:thisform.text2.value=val（thisform.textl.value）/72.按 要 求 在 考 生 文 件 夹 下 完 成 下 列 操 作：1）按 下 图 设 id一 表 单 文 件 f

43、ormdbcal2。设 置 表 单（名 称 为 forml）标 题 为“人 数 统 计”。2）在 数 据 环 境 中 添 加 ygb.dbf。3）表 单 中 添 加 两 个 文 本 框，（名 称 分 别 为 textl和 text2）,显 示 人 数 的 文 本 框 设 为“只 读”。4）表 单 中 添 加 一 个 命 令 按 钮（名 称 为 command 1）的 标 题 为“统 计 人 数”，编 写 此 命 令 按 钮 的 代 码，要 求 运 行 表 单 时，在 在 文 本 框（textl）中 输 入 性 别“男”（或“女”），统 计 文 本 框（textl）指 定 性 别 的 人 数.将

44、 结 果 显 示 在 文 本 框（text2）中。操 作 完 成 后 将 操 作 结 果 保 存 在 考 生 文 件 夹 下。代 码:count for 性 别=alltrim（thisfbrm.textl.value）to xthisform.text2.value=x知 识 点：VFP部 分/表 单 设 计 3、按 要 求 在 考 生 文 件 夹 下 完 成 下 列 操 作：1）按 下 图 设 id 表 单 文 件 formdbcal9。设 置 表 单（名 称 为 forml）标 题 为“班 级 人 数 统 计”。2）在 数 据 环 境 中 添 加 student.dbf。3）表 单 中

45、添 加 一 个 列 表 框（名 称 为 listl）,列 表 框 中 有 4个 选 项：“2005会 计 一”，“2005会 计 二”，“2005会 计 三”，“2005会 计 四”。在 表 单 中 添 加 一 个 标 签（名 称 为 labell）,标 题 为“选 择 班 级 名 称”。表 单 中 添 加 一 个 文 本 框（名 称 为 textl）,此 文 本 框 设 为 只 读。4）表 单 中 添 加 一 个 命 令 按 钮（名 称 为 commandl）的 标 题 为“统 计 人 数”，编 写 此 命 令 按 钮 的 代 码，要 求 运 行 表 单 时，在 列 表 框 选 择 班级，按

46、 列 表 框 指 定 班 级 统 计 人 数，将 结 果 显 示 在 文 本 框（textl）中。操 作 完 成 后 将 操 作 结 果 保 存 在 考 生 文 件 夹 下。代 码:count for 班 级=thisform.listLvalue to xthisform.textl.value=x3.按 要 求 在 考 生 文 件 夹 下 完 成 下 列 操 作：1）按 卜 图 设 计 一 表 单 文 件 formdbca20。设 置 表 单（名 称 为 form l）标 题 为“按 班 级 统 计 学 生 平 均 分”。2）在 数 据 环 境 中 添 加 student.dbf。3）表

47、单 中 添 加 一 个 组 合 框（名 称 为 Com bol）,组 合 框 中 有 4个 选 项：“2005会 计”，“2005会 计 二”，“2005会 计 三”，“2005会 计 四”。在 表 单 中 添 加 一 个 标 签（名 称 为 labell）,标 题 为“选 择 班 级”。在 表 单 中 添 加 一 个 文 本 框（名 称 为 textl）,此 文 本 框 设 为 只 读。4）表 单 中 添 加 一 个 命 令 按 钮（名 称 为 command）的 标 题 为“统 计 平 均 分”，编 写 此 命 令 按 钮 的 代 码，要 求 运 行 表 单 时，在 组 合 框 选 择 班

48、 级，按 组 合 框 指 定 班 级 统 计 平 均 分，将 结 果 显 示 在 文 本 框（te x tl）中。操 作 完 成 后 将 操 作 结 果 保 存 在 考 生 文 件 夹 下。一 选 择 班 级 一 尸-二 按 班 级 统 计 平 均 分.一 工 X统 计 平 均 分 extl代 码：average 成 绩 for 班 级=boLvalue【o xthisform.texi 1.value=x4.按 要 求 在 考 生 文 件 夹 下 完 成 下 列 操 作：1）按 下 图 设 计-表 单 文 件 formdb叩 37。设 置 表 单（名 称 为 form l）标 题 为“修 改

49、 员 工 信 息”。2）在 数 据 环 境 中 添 加 ygb.dbf。3）表 单 中 添 加 三 个 标 签 和 三 个 文 本 框，分 别 用 于 显 示 当 前 记 录 的 员 工 编 号、姓 名 和 联 系 电 话，且 将 显 示 员 工 编 号 的 文 本 框 设 为 只 读。4）表 单 中 添 加 二 个 命 令 按 钮，第 一 个 命 令 按 钮（名 称 为 command】）的 标 题 为“上 一 条”，第：个 命 令 按 钮（名 称 为 commandl）的 标 题 为“下 条”。编 写 这 两 个 命 令 按 钮 的 代 码，要 求 运 行 表 单 时，单 击“上 条”命令

50、 按 钮（command 1）时，记 录 指 针 移 动 到 上，-条 记 录，单 击 下,条”命 令 按 钮（command 1）时，记 录 指 针 移 动 到 下 一 条 记 录。然 后 在 三 个 文 本 框（textl、text2和 text3）中 分 别 显 示 当 前 记 录 的 学 号、姓 名 和 地 址。操 作 完 成 后 将 操 作 结 果 保 存 在 考 生 文 件 夹 下。command1代 码:skip-1thisform.refreshcommand 1 代 码:skipthisform.refresh5.按 要 求 在 考 生 文 件 夹 下 完 成 卜 列 操 作