一级VF程序设计题库及答案.pdf

VF程 序 设 计 题 库 及 答 案 1 编 程 序 求 出 1-200以 内 的 能 被 7整 除 的 数 的 平 方 和 。 377986clear s=0m=0 for i=1 to 200 if i%7=0 m=i2 s=s+m endifendfor ?s2 编 程 序 求 199的 平 方 根 的 和 并 输 出 结 果 。 （ 保 留 小 数 点 两 位 ） 661.46clear s=0for i=1 to 99 s=s+sqrt(i)endfor ?round(s,2)6 编 程 序 求 出 1200所 有 整 数 的 平 方 和 并 输 出 结 果 。 2686700 clears=0 for n=1 to 200 s=s+n2 endfor?s 7. 编 程 序 求 出 1到 5000之 间 的 能 被 5整 除 的 前 若 干 个 偶 数 之 和 ， 当 和 大于 500 时 程 序 退 出 。 550 clears=0 for n=10 to 5000 step 10s=s+n if s500 exit endif endfor?s 编 程 序 求 在 3000以 内 被 17或 者 23整 除 的 正 整 数 数 的 个 数 。 299 clear s=0for n=1 to 3000 if n%17=0 or n%23=0 s=s+1 endifendfor ?s9 序 求 在 1000以 内 被 17或 者 23整 除 的 正 整 数 数 的 个 数 。 99 clears=0 for n=1 to 1000 if n%17=0 or n%23=0 s=s+1 endif endfor?s 10 编 程 序 求 在 5000以 内 被 17或 者 23整 除 的 正 整 数 数 的 个 数 。 499clear s=0for n=1 to 5000 if n%17=0 or n%23=0 s=s+1 endifendfor ?s 11 编 程 序 求 出 1-100以 内 的 能 被 3整 除 的 数 的 平 方 和 。 112761 clears=0 for n=1 to 100 if n%3=0 s=s+n2 endif endfor ?s12 已 知 一 个 数 列 的 前 3个 数 为 0， 0， 1， 以 后 每 个 数 为 前 3个 数 的 和 ， 编 程 序 求 此 数 列 的 第 36个 数 。 334745777 clear dime f(36)f(1)=0 f(2)=0f(3)=1 s=0for n=4 to 36 f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n) endfor?s 13 编 程 序 求 出 1-100以 内 的 能 被 9整 除 的 数 的 平 方 和 。 40986clear s=0for n=1 to 100 if n%9=0 s=s+n2 endifendfor ?s 14 编 程 序 求 出 1-200以 内 的 能 被 3整 除 的 数 的 平 方 和 。 882189 clears=0 for n=1 to 200 if n%3=0 s=s+n2 endif endfor?s 15 编 程 序 求 出 1-7000以 内 能 被 3或 者 7整 除 数 的 个 数 。 3000clear s=0for n=1 to 7000 if n%3=0 or n%7=0 s=s+1 endif endfor?s 16 序 求 出 1-3000以 内 能 被 3或 者 5整 除 数 的 个 数 。 1400clear s=0for n=1 to 3000 if n%3=0 or n%5=0 s=s+1 endifendfor ?s 17 编 程 序 求 出 1-5000以 内 能 被 3或 者 7整 除 数 的 个 数 。 2142 clears=0 for n=1 to 5000 if n%3=0 or n%7=0 s=s+1 endif endfor?s 21 编 程 序 求 出 1-6000以 内 能 被 23整 除 的 整 数 之 和 。 780390clear s=0for n=1 to 6000 if n%23=0 s=s+n endifendfor ?s 24 编 程 序 求 出 100到 200之 间 同 时 满 足 除 3余 2和 除 5余 3条 件 的 数 的 个 数 。 6clear s=0for n=100 to 200 if n%3=2 and n%5=3 s=s+1 endif endfor?s 30 1 编 程 序 求 出 2+4+8+16+32+ 这 样 的 数 之 和 。 如 果 累 加 数 大 于500时 ， 则 程 序 终 止 并 输 出 结 果 。 510 clears=0 for n=1 to 100 s=s+2n if s500 exit endifendfor ?s31 编 程 序 求 出 1100所 有 整 数 的 立 方 和 并 输 出 结 果 。 25502500 clears=0 for n=1 to 100 s=s+n3 endfor?s 39 编 写 程 序 ， 计 算 1000以 内 有 多 少 个 这 样 的 数 ， 该 数 既 能 被 6整 除 又能 被 8整 除 。 41 clears=0 for n=1 to 1000 if n%6=0 and n%8=0 s=s+1 endif endfor?s 51 编 程 序 求 出 1到 3000之 间 的 能 被 3整 除 的 前 若 干 个 数 之 和 ， 当 和 大 于600时 退 出 并 输 出 结 果 。 630 clears=0 for n=1 to 3000 if n%3=0 s=s+n endif if s600 exit endif endfor?s 58 编 程 序 统 计 1300能 被 3整 除 的 个 数 。 100 clear s=0for n=1 to 300 if n%3=0 s=s+1 endifendfor ?s66 编 程 序 求 165的 平 方 根 的 和 并 输 出 结 果 。 （ 保 留 小 数 点 两 位 ） 353.19clear s=0for n=1 to 65 s=s+sqrt(n)endfor ?round(s,2)75 已 知 一 个 数 列 的 前 3个 数 为 0， 1， 2， 以 后 每 个 数 为 前 3个 数 的 和 ， 编 程 序 求 此 数 列 的 第 30个 数 。 24548655clear dime f(30)f(1)=0 f(2)=1f(3)=2 s=0for n=4 to 30 f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n) endfor ?s 84 编 程 序 求 2+4+8+16+32+ 这 样 的 数 之 和 。 如 果 累 加 数 大 于 1500 时 ， 则 程 序 终 止 并 输 出 结 果 。 2046clear s=0for n=1 to 100 q=2ns=s+q if s1500 exit endifendfor ?s101 已 知 24有 8个 正 整 数 因 子 (即 ： 1,2,3,4,6,8,12,24)， 而 24正 好 被 其 因 子 个 数 8整 除 。 求 1,100之 间 第 10个 能 被 其 因 子 数 目 整 除 的 正整 数 。 56 clears=0 q=0for n=1 to 100 m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 q=n if s9 &当 它 大 于 9时 ， q已 经 是 第 十 个 数 了 ！ exit endif endifendfor ?q 105 有 一 个 分 数 序 列 :2/1,3/2,5/3,8/5,13/8,21/13.（ 注 ： 该 数 列 从 第 二 项 开 始 ， 其 分 子 是 前 一 项 的 分 子 与 分 母 的 和 ， 而 其 分 母 是 前 一 项 的 分 子 ） ,求 出 这 个 序 列 前 24项 的 和 。 要 求 ： 按 四 舍 五 入 的 方 式精 确 到 小 数 点 后 第 二 位 。 39.13 clears=0 k=0m=2 n=1for j=1 to 24 k=m/ns=s+k y=mm=m+n n=yendfor ?round(s,2) 108 设 某 国 今 年 的 国 民 生 产 总 值 为 45600亿 元 ,若 今 后 每 年 以 8%的 增 长 率 增 长 ,计 算 多 少 年 后 能 实 现 国 民 生 产 总 值 翻 两 番 ? 19 2008clear s=0dime f(1000) f(1)=45600f(2)=49248 f(3)=53187.84q=2 & 从 第 二 年 开 始 计 算 年 份 ， 所 以 f(1)不 算 。for n=4 to 1000 f(n)=f(n-1)*1.08 s=f(n) q=q+1 if s=182400 exit endif endfor?q 112 若 某 整 数 N的 所 有 因 子 之 和 等 于 N的 倍 数 ， 则 N称 为 多 因 子 完 备数 ,如 数 28,其 因 子 之 和 1+2+4+7+14+28=56=2*28,28是 多 因 子 完 备 数 。 求 1,500之 间 有 多 少 个 多 因 子 完 备 数 。 5 clears=0 for n=1 to 500 m=0 for j=1 to n if n%j=0 m=m+j endif next if m%n=0 s=s+1 endif endfor?s 117 找 满 足 以 下 条 件 : X2+Y2+Z2=412 且 X+Y+Z之 值 最 大 的 三个 正 整 数 X,Y,Z, 求 X+Y+Z之 值 . 71 clears=0 for x=1 to 41for y=1 to 41 for z=1 to 41 if x2+y2+z2=412 k=x+y+z if ks s=k endif endifendfor endforendfor ?s120 有 一 个 分 数 序 列 :2/1,3/2,5/3,8/5,13/8,21/13.(即 ： 该 数 列 从 第 二 项 开 始 ， 其 分 子 是 前 一 项 的 分 子 与 分 母 之 和 ， 而 其 分 母 是 前一 项 的 分 子 ),求 出 这 个 序 列 前 56项 的 和 。 要 求 ： 按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 三 位 。 90.909clear s=0 k=0m=2 n=1for j=1 to 56 k=m/ns=s+k y=mm=m+n n=yendfor ?round(s,3)123 水 仙 花 数 是 一 个 三 位 正 整 数 ,它 等 于 它 的 各 位 数 字 的 立 方 之 和 . 例 如 :153=13+53+33,所 以 153是 水 仙 花 数 . 试 求 所 有 的 水 仙花 数 之 积 。 8547940170 clears=1 &小 蔡 提 醒 ： 特 别 注 意 若 s=0， 则 s乘 任 何 数 都 会 为 0， 所 以 此 时 s=1。for n=100 to 999 a=int(n/100)b=int(n/10)%10 c=n%10 if a3+b3+c3=n s=s*n endif endfor?s 124 把 一 张 一 元 钞 票 ,换 成 一 分 、 二 分 和 五 分 硬 币 ,每 种 至 少 8枚 ,问有 多 少 种 方 案 ? 80 clears=0 for a=8 to 100 for b=8 to 50 for c=8 to 20 if a+2*b+5*c=100 s=s+1 endif endfor endfornext ?s 129 一 个 14*14方 阵 A(i,j),其 每 个 元 素 的 值 为 该 元 素 下 标 的 立 方 和 ,求 出 该 矩 阵 所 有 元 素 的 累 加 和 (注 ： i,j从 1到 14). 308700 clear s=0for n=1 to 14 for m=1 to 14s=s+n3+m3 endfornext ?s130 求 100,200之 间 最 大 的 有 奇 数 个 不 同 因 子 的 整 数 。 196 clears=0 for n=100 to 200 m=0 for j=1 to n if n%j=0 m=m+1 endif next if m%2=1 s=n endif endfor?s 131 一 个 数 如 果 恰 好 等 于 它 的 所 有 真 因 子 之 和 ， 这 个 数 就 称 为 “ 完数 ” 。 例 如 ， 6的 真 因 子 为 1， 2， 3， 而 6=1+2+3， 因 此 ， 6是 “ 完 数 ” 。 求 1000以 内 的 所 有 完 数 之 和 。 530clear s=0for n=1 to 1000 m=0 for j=1 to n/2 if n%j=0 m=m+j endif next if m=n s=s+n endif endfor ?s 135 求 数 学 式 1-1/2+1/3-1/4+1/5-1/6+ +1/99-1/100的 值 （ 按四 舍 五 入 方 式 精 确 到 小 数 点 后 4位 ） 0.6882 cleardime f(50) f(1)=1-1/2f(2)=1/3-1/4 f(3)=1/5-1/6s=0 for n=1 to 50 f(n)=1/(2*n-1)-1/(2*n) s=s+f(n) endfor ?round(s,4)142 求 满 足 A*B=718368， 使 A+B最 小 ， 且 A,B（ AB） 为 正 整 数 的 A的 值 。 672clear s=100000for a=1 to 10000 for b=1 to 10000if a*b=718368 and ab k=a+bif ks s=kj=a endifendif endforendfor ?j 147 计 算 y=1+2/3+3/5+4/7+ +n/(2*n-1)(n=50), 要 求 ： 按 四 舍 五入 的 方 式 精 确 到 小 数 点 后 第 二 位 。 26.47 cleardime f(50) f(1)=1f(2)=2/3 f(3)=3/5s=0 for n=1 to 50 f(n)=n/(2*n-1) s=s+f(n) endfor ?round(s,2)151当 m的 值 为 50时 ， 计 算 下 列 公 式 之 值 ： t=1-1/(2*2)-1/(3*3)- -1/(m*m) 要 求 ： 按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 四位 。 0.3749 cleardime f(50) f(2)=-1/4f(3)=-1/9 f(4)=-1/16s=1 for n=2 to 50 f(n)=-1/(n*n) s=s+f(n)endfor ?round(s,4)153求 出 10,1000以 内 同 时 满 足 除 以 7余 5,除 以 5余 3,除 以 3余 1的 所 有 整 数 的 个 数 。 9clear s=0for n=10 to 1000 if n%3=1 and n%5=3 and n%7=5 s=s+1 endifendfor ?s 154 (12/(1*3)+(42/(3*5)+(62/(5*7)+ +(2k)2/(2k-1)*(2k+1) （ 按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 三 位 ） 20.488 cleardime f(20) f(1)=4/3f(2)=16/15 f(3)=36/35s=0 for n=1 to 20f(n)=(2*n)2/(2*n-1)*(2*n+1) s=s+f(n)endfor ?round(s,3)155求 级 数 1/(1*2)+1/(2*3)+.+1/(N*(N+1)的 和 的 近 似 值 ,直 到 级 数 中 有 一 项 的 值 小 于 1E 4为 止 . 要 求 ： 按 四 舍 五 入 的 方 式 精 确 到 小数 点 后 第 二 位 。 0.99 clears=0 for n=1 to 100000k=1/(n*(n+1) &一 定 要 记 得 分 母 是 多 项 相 乘 时 ， 分 母 要 加 括 号 ！ ！s=s+k if k1/10000exit endifendfor ?round(s,2)157 已 知 S1=1, S2=1+2, S3=1+2+4, S4=1+2+4+8,S5=1+2+4+8+16， ， 编 制 一 个 程 序 求 S=S1+S2+S3+S4+S5+ +S20的 值 。 2097130clear s=0q=0 for n=0 to 19w=2n q=q+ws=s+q endfor ?s158 求 Y=1-1/2+1/3-1/4+.-1/2*n 前 30项 之 和 。 要 求 ： 按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 二 位 。 0.68clear dime f(15)f(1)=1/2 f(2)=1/12f(3)=1/30 s=0for n=1 to 15 f(n)=1/(2*n-1)-1/(2*n)s=s+f(n) endfor?round(s,2) 159 已 知 S1=1, S2=1+3, S3=1+3+5, S4=1+3+5+7,S5=1+3+5+7+9， ， 编 制 一 个 程 序 求 S=S1+S2+S3+S4+S5+ +S20的 值 . 2870 cleardime f(20) f(1)=1f(2)=4 f(3)=9s=14 for n=4 to 20f(n)=f(n-1)+(2*n-1) s=s+f(n)endfor ?s161 当 n=100时 ， 计 算 输 出 下 列 多 项 式 的 值 S=(1-1/2)+(1/3- 1/4)+ +(1/(2*n-1)-1/(2*n) 按 四 舍 五 入 的 方 式 精 确 到 小 数 点后 第 三 位 。 0.691 cleardime f(100) f(1)=1/2f(2)=1/12 f(3)=1/30s=0 for n=1 to 100 f(n)=1/(2*n-1)-1/(2*n)s=s+f(n) endfor?round(s,3) 162当 n的 值 为 25时 ， 计 算 下 列 公 式 的 值 s=1+1/1!+1/2!+1/3!+1/n! 要 求 ： 按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 四 位 。 2.7183 cleardime f(25) f(1)=1f(2)=1/2 f(3)=1/6s=1 for n=1 to 25p=1 for j=1 to n p=p*j f(n)=1/p endfor s=s+f(n) & s的 初 值 在 第 一 个 for的 前 面 ， 绝 对 不 要 进 入 第 二 个 for循 环 endfor?round(s,4) 163 当 n的 值 为 50时 ， 求 S的 值 。 S=1+1/(1+2)+1/(1+2+3)+1/(1+2+3+ +N) 要 求 ： 按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 四 位 。 1.9608clear dime f(50)f(1)=1 f(2)=3f(3)=6 s=0k=0 for n=1 to 50k=k+n f(n)=1/ks=s+f(n) endfor ?round(s,4)164当 m的 值 为 50时 ， 计 算 下 列 公 式 之 值 : t=1+1/(22)+1/(32)+ +1/(m2) (按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 四 位 )。 1.6251clear dime f(50)f(1)=1 f(2)=4f(3)=9 s=0for n=1 to 50 f(n)=1/n2s=s+f(n) endfor?round(s,4) 165当 m的 值 为 50时 ， 计 算 下 列 公 式 的 值 ： T=1-1/2-1/3-1/4- -1/m 要 求 ： 按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 四 位 。 -2.4992clear dime f(49)f(1)=-2 f(2)=-3f(3)=-4 s=1for n=1 to 49 f(n)=-(n+1)s=s+1/f(n) endfor?round(s,4) 172一 只 猴 子 一 天 从 山 上 摘 来 一 袋 桃 子 ， 从 这 天 开 始 ， 它 每 天 都 要 把 袋中 的 桃 子 平 分 为 二 堆 ， 吃 掉 其 中 的 一 堆 ， 然 后 再 从 剩 下 的 桃 中 拿 出 一 个 解 谗 ， 等 到 第 10天 ， 它 发 现 袋 中 只 有 一 只 桃 可 吃 啦 ， 问 猴 子 总 共 摘了 多 少 桃 。 1534 cleardime f(10) f(1)=1f(2)=4 f(3)=10 s=0for n=4 to 10 f(n)=2*f(n-1)+2s=f(n) endfor?s 178利 用 格 里 高 利 公 式 ： /4=1-1/3+1/5-1/7+1/9-1/11+ -1/99， 求 的 值 。 要 求 ： 按 四 舍 五 入 的 方 式 精 确 到 小 数 点 后 第 二 位 。 3.13 cleardime f(50) f(1)=1-1/3f(2)=1/5-1/7 f(3)=1/7-1/11 a=0 for n=1 to 50 f(n)=1/(4*n-3)-1/(4*n-1) a=a+f(n) endfor ?round(4*a,2)179 已 知 正 整 数 A,B(假 定 AB)， 满 足 A*B=5432， 求 S=A+B的 最 小 值 。 153clear s=5432for a=1 to 5432 for b=1 to 5432 if a*b=5432 and a60 and (a+b+60)%3=0 s=s+1 endif endforendfor ?s277 把 一 张 一 元 钞 票 ,换 成 一 分 、 二 分 和 五 分 硬 币 ,每 种 至 少 11枚 ,问 有 多 少 种 方 案 ? 13clear s=0for a=11 to 100 for b=11 to 50 for c=11 to 20 if a+2*b+5*c=100 s=s+1 endif endfor endfor next?s