2022年VF程序题 .pdf

《2022年VF程序题 .pdf》由会员分享，可在线阅读，更多相关《2022年VF程序题 .pdf（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、练习 1 在 xs.dbf 的数据表中，增加字段level(C,6).要求：编写程序，根据 it 的值划分相应的级别，并填入level 字段中。当：it=135 级别为“优秀”it=120 级别为“良好”it=105 级别为“中等”it=90 级别为“及格”it=135 repl level with 优秀 case it=120 repl level with 良好 case it=105 repl level with 中等 case it=90 repl level with 及格 otherwise repl level with 不及格 endcase skip enddo use

2、set talk on return 练习 1 将练习 1 的程序改成SCAN的形式。set talk off clear usexs scan do case case it=135 repl level with 优秀 case it=120 repl level with 良好 case it=105 repl level with 中等 case it=90 repl level with 及格 otherwise repl level with 不及格 endcase endscan use set talk on return 练习 2 逆序输出一个字符串。*方法 1 set ta

3、lk off clear s=space(0)accept 输入一个字符串：tostr fori=1 to len(str)s1=subs(str,i,1)s=s1+s endfor?逆序输出为：,s set talk on return set talk off clear s=space(0)accept 输入一个字符串：tostr fori=len(str)to 1 step-1?subs(str,i,1)endfor set talk on return 练习 3 P172 三（1）INPUT 请输入任意一个正整数：TO n c=SPACE(0)DO WHILE.T.d=MOD(n,2

4、)c=STR(d,1)+c n=INT(n/2)IF n=0 EXIT ENDIF ENDDO?c 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 11 页 -程序运行时，若输入一个正整数11，则变量 c 的值是1011，其类型是C。练习4 P172 三（2）写出下列程序段输出结果。程序段如下：city=上海市南京市济南市青岛市 s=1 DO WHILE s=0 and s1=8 exit endif if x%2=1 x=x+2 loop endif x=x-3 next?i,x 练习 19 程序的输出x 的值是15。x=0 fori=0 to 2 x=x+1 名师资料总结-精

5、品资料欢迎下载-名师精心整理-第 5 页，共 11 页 -for j=0 to 2 if j%2#0 loop else x=x+1 endif next x=x+2 endfor?x 练习 20 自定义函数调用：输入半径值，求圆的面积。set talk off clear input“请输入圆的半径：”to r?“面积为：”,mj(r)set talk on return functionmj(k)s=pi()*k2 return s endfunc 练习 21 input 请输入任意一个正整数：to n c=space(0)do while.t.d=mod(n,8)c=str(d,1)+c

6、 n=int(n/8)if n=0 exit endif enddo?c 程序运行时，若输入一个正整数50，则输出的结果是62。练习 22*main 主程序m=9 n=8 do sub?m,n,s return*sub 子程序private m public s m=7 n=6 s=5 return 执行主程序后，屏幕显示的结果为9 6 5。练习 23 下面程序输出的结果是：10。x=235 s=0 do while x!=0 s=s+mod（x,10）x=int(x/10)enddo?s 练习 24 domension s(5)s(1)=15 s(2)=23 s(3)=43 s(4)=19

7、s(5)=-8 i=1 do while i5 j=i+1 do while js(j)t=s(i)s(i)=s(j)s(j)=t endif j=j+1 enddo i=i+1 enddo fori=1 to 5?s(i)nexti 练习 25 if s100 do p1.prg else 名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 11 页 -if s1 do p2.prg else do p3.prg endif endif 如果 s=-10(负 10),则执行哪个程序(c):a)p1.prg b）p2.prg c）p3.prg d）不执行任何程序练习 26 clear

8、 a=5 b=6 doabcd with a,b?a,b return procedureabcd parameterc,d c=3 d=5 Endproc 该程序执行后，a 的值为3，b 的值为5 练习 27 下面程序计算一个整数的各位数字之和。在下划线处应填写合适的语句。set talk off input x=to x s=0 do while x！=0 s=s+mod（x,10）x=int(x/10)enddo?s set talk on 练习 28 运行 JJB.PRG 程序，在屏幕上输出如下的乘法表：1）1 2）2 4 3）3 6 9 4）4 8 12 16 5）5 10 15 2

9、0 25 6）6 12 18 24 30 36 7）7 14 21 28 35 42 49 8）8 16 24 32 40 48 56 64 9)9 18 27 36 45 54 63 72 81 练习 29 学生表中有字段：姓名、计算机和班级号，下列程序是查询并显示所有班级号为“1002”的学生记录，完成程序填空。use 学生表do while _not eof()if 班级号=1002 display endif skip enddo use 练习 30 input 请输入 a:to a input 请输入 b:to b if ab t=a a=b b=t endif do while b

10、0 t=mod(a,b)a=b b=t enddo?a set talk on Return 运 行 时 输 入：8,12。输 出 结 果 为：4(求最大公约数)练习 31*此程序要区分内存变量与字段变量重名时，如何区分它们。set talk off use cj zf=0&内存变量赋值dowhile.not.eof()m.zf=m.zf+zf skip 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 11 页 -enddo?m.zf return 其中数据库文件cj.dbf 中有 2 条记录，内容如下：xm zf 1 李四500.00 2 张三600.00 运行该程序的结果应当

11、是a a.1100 b.1000 c.1600 d.1200 练习 32*sub.prg paraa,b,c,d d=b*b-4*a*c do case case d0 d=2 case d=0 d=1 endcase 在主程序中执行如下命令,输出：1 store 1 to a,c store 2 to b,d do sub with a,b,c,d?d 练习 33*主程序：main.prg set talk off clear s=0 do sub with 10，s？s retu*子程序 sub.prg parameters d1，d2 d1=d1+d1 d2=d1*2 return 执行

12、主程序后s 的值是 _40_。练习 34 store 0 to n,s do while.t.n=n+1 s=s+n if n=10 exit endif enddo?s=+str(s,2)输出：s=55 练习 35 x=0 y=0 do while x15 store.f.to x endif enddo 输出为:(B)a.5 10 15 b.5 10 15 20 c.5 10 d.5 10 15 20 25 练习 37 某城市机动车驾驶员登记表(JDCJS)中含有名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 11 页 -驾驶证号(jzh)等字段。但由于录入人员的差错，包含了

13、一些重复的记录（jzh 字段的值有重复），影响了统计结果。完善下列程序，使其可以物理删除该表中的重复数据。USE JDCJS INDEX ON jzh TAG jzh GO TOP last_jzh=jzh SKIP DO WHILE!EOF()IF jzh=last_jzh DELETE ELSE last_jzh=jzhENDIF SKIP ENDDO PACK 练习 38 下列自定义函数NTOC（）的功能是：当传递一个 17 之间的数值型参数时，返回一个中文形式的“星期日 星期六”。例如，执行命令？NTOC（4），显示“星期三”。FUNCTION NTOC PARAMETERS n LO

14、CAL ch ch=日一二三四五六 mch=星期+SUBSTR(CH,n*2-1,2)RETURN mch ENDFUC 练习 39 完善下列程序，以显示71000 以内能被7整除、且含有数字5的所有整数（例如 35、56、105 等）。for n=7 to 1000 if mod(n,7)=0 ch=allt(str(n)if 5$ch?n endif endif endfor 练习 40 对 xs.dbf：编写程序：可多次输入学号查询其姓名、班级。如果没有此学号，则提示“无此学号”；如果输入学号为“0000”，则退出查询。clear set talk off usexs do while.

15、t.accept 输入学号:toxh ifxh=0000 exit endif locate for xuehao=xh if found()?xingming,banji else?无此学号 endif enddo use set talk on return 练习 40 对 xs.dbf：编写程序：可多次输入班级名称，该班级所有的同学的学号、姓名。如果没有此班级，则提示“无此班级”；如果输入班级为“0000”，则退出查询。clear set talk off usexs do while.t.accept 输入班级名称:tobj ifbj=0000 exit endif locate fo

16、r banji=bj if found()scan for banji=bj?xuehao,xingming endscan else?无此班级 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 11 页 -endif enddo use set talk on return 练习 40 对 xs.dbf：编写程序：可多次输入班级名称，按照 it 的降序显示该班级所有的同学的学号、姓名、班级、it。如果没有此班级，则提示“无此班级”；如果输入班级为“0000”，则退出查询。clear set talk off usexs do while.t.accept“输入班级名称:tobj

17、ifbj=0000 exit endif locate for banji=bj if found()inde on it tag it_indexdesc scan for banji=bj?xuehao,xingming,banji,it endscan else?no!endif enddo use set talk on return 练习 41 已知数据表N_LIST.DBF只有一个数值型字段DATA，且目前数据表中无记录，试编写程序，从键盘上接受20 个数据存放到该数据表中，按照从大到小的顺序输出。set talk off set safety off clear usen_lis

18、t zap&删除表中原有的所有记录，以保证仅排序刚刚输入的20个数据fori=1 to 20 input 输入第+str(i)+数据:tonum append blank replace data with num endfor index on data tag data_indexdesc&降序才可为后面的输出做准备?从大到小的顺序输出为：scan?data endscan use set safety on set talk on return 练习 42 从键盘上输入任意一个中文字符串（字符串只包括汉字，不包括其他类字符），将这个字符串中的汉字逆序后输出。（例如输入一个字符串”程序设计

19、”,输出字符串”计设序程”）*要注意每个中文字占2 个字符。与练习2对比一下。set talk off clear s=space(0)accept 输入一个全中文的字符串：tostr fori=1 to len(str)step 2 s1=subs(str,i,2)s=s1+s endfor?逆序输出为：,s set talk on return 练习 43 输出显示一段英文中的各个单词。假设单词之间仅以单个的空格或”.”来分隔。*方法 1 set talk off clear accept 输入：tostr 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 11 页 -s=s

20、pac(0)&为第 1 个单词重新赋初值fori=1 to len(str)s1=subs(str,i,1)if s1=.or s1=space(1)&判断为“.”或空格?s&则显示该单词s=space(0)&下一个单词重新赋初值else s=s+s1&将单个的字符逐步形成一个单词endif endfor set talk on return*方法 2 Set talk off clear accept 输入：tostr n=1&为了后面循环，n 可以赋值任意一个非0 的初值do while n#0 n1=at(,str)n2=at(.,str)if n1=0&当前字符串中没有空格，即只有“.

21、”,表示只有一个单词和“.”n=n2 else n=min(n1,n2)endif?subs(str,1,n-1)str=subs(str,n+1)enddo Set talk on return 练习 44 判断一个字符串是否是回文。如：符合要求的字符串：“1234321”,“abcddcba”clear set talk off acce“输入一个字符串：to s fori=1 to len(s)/2 if subs(s,i,1)#subs(s,len(s)-i+1,1)?否 exit endif endfor ifi=len(s)/2?“是 endif Set talk on return 名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 11 页 -