VF第6章习题练习

1、.visual foxpro练习6一、 单项选择题1. 在程序中定义局部变量的命令动词是（ ）。apublic bprivate clocal ddeclare 2. vfp 6.0程序设计的三种基本结构是（ ）。a顺序，选择，循环 b顺序，选择，逻辑 c模块，转移，循环 d网状，选择，逻辑3. 在do while / enddo循环中,若循环条件设置为.t.，则下列说法中正确的是（ ）。a程序无法跳出循环 b程序不会出现死循环 c用loop可跳出循环 d用exit可跳出循环4. scan循环语句是( )扫描式循环。a数组 b数据表 c内存变量 d程序5. 在 do while enddo循环

2、结构中，loop命令的作用是（ ）。a退出过程，返回程序开始处 b转移到do while语句行，开始下一个判断和循环 c终止循环，将控制转移到本循环结构enddo后面的第一条语句继续执行d终止程序执行 6. 下列程序段执行时在屏幕上显示的结果是（ ）。dime a(6)a(1)=1a(2)=1 for j=3 to 6 a(j)=a(j-1)+a(j-2)next?a(6)a5 b6 c8 d77. 执行如下程序 set talk off s=0 i=1精品. input n= to n do while s=n s=s+i i=i+1 enddo ?s set talk on 如果输入n值为

3、5，则最后s的显示值是（ ）。a1 b3 c5 d68. 下列程序段执行时在屏幕上显示的结果是（ ）。x1=20x2=30do test with x1,x2?x1,x2procedure testparameters a,bx=aa=bb=xendproa30 30 b30 20 c20 20 d20 309. 有程序如下 use cjm.zf=0 scan m.zf=m.zf+zfendscan?m.zfreturn精品.其中数据库文件cj.dbf中有2条记录，内容如下 xm zf 1 李四 500.00 2 张三 600.00运行该程序的结果应当是（ ）。a1100.00 b1000.0

4、0 c1600.00 d1200.0010. 如下程序段的输出结果是（ ）。declare b(6)for i=1 to 6 b(i)=i*10nextfor i=1 to 6 ?b(6)next a60 b50 c40 d3011. 下列程序段的输出结果是（ ）。accept “请输入任意一个字符串：” to aif a=123 s=0endifs=1?sa0b1c123d由a的值决定12-14题基于如下程序：设zgk.dbf为职工数据库文件，“职称”为该库中一字符型字段名。本程序的功能是显示库中职称为教授的所有记录。set talk offclear all ( 12 ) do while

5、 精品.not eof()if ( 13 ) skiploopendifdisplay ( 14 ) enddouseset talk on12. ause zgk buse clocate for 教授$职称 dset talk off13. a职称= 教授 b职称 教授 c职称=60 if cj =80 ?优良！ else ?及格！ endifelse ?不及格！endifreturn a优良 精品. b及格 c不及格 d空白16. 表示应用程序文件的扩展名为_。二、 编程题1. 求数n的阶乘2. 求两个数中较小值3. 编程实现下列分段函数1 （x0）0 （x=0）1 （x0）y= y=4

6、. 求前100个自然数的和：s=1+2+3+4+1005. 计算1100的奇数和6. 计算自然对数e的近似值（n为20） e=1+1/1!+1/2!+1/n!7. 编程求自然数11000中所有能被7整除的数的累加和。参考答案：一、选择题1-5 cadbb 6-10 cdbaa 11-15babcb 16 .prg二、编程题1、方法1：clearset talk off input 请输入数n: to n if n 1 ? 输入的数:, n, 太小！ cancel精品. endif store 1 to i,s do while i = n s=s*i i=i+1 enddo ? n,的阶乘是:

7、, s set talk on return方法2：clearset talk off input “请输入n的值：” to nt=1for i=1 to n t=t*inext? n, ?的阶乘=“,tset talk on return2、clearset talk off 精品.input x= to xinput y= to yif x0y=1elseif x=0y=0elsey=-1endifendif精品.? yset talk on return方法2：clearset talk off input 请输入一个数： to xdo casecase x0y=1case x=0y=0

8、otherwise y=-1endcase? yset talk on return4、方法1：clearset talk off s=0 n=1 精品.do while n=100 s=s+nn=n+1enddo? 1+2+3+100=, s set talk on return方法2：clearset talk off s=0for n=1 to 100 s=s+nendfor ? 1+2+3+98+99+100=,sset talk on return5、方法1：clearset talk off store 0 to i, tdo while i100精品. i=i+1 if int(

9、i/2)=i/2 loop endif t=t+ienddo? 1100奇数和为： , tset talk on return方法2：clearset talk off store 0 to i, tdo while i100 i=i+1 if mod(i,2)=0 loop endif t=t+ienddo? 1100奇数和为： , tset talk on return精品.6、方法1：clearset talk off e=0store 1 to t,n (或t=1 n=1)for n=1 to 10 step 1t=t*ne=e+1/tendfor|next?”所求的e值为:”,eset talk onreturn方法2：clearset talk off e=0store 1 to t,ndo while t=10 t=t*ne=e+1/tn=n+1enddo精品.?”所求的e值为:”,eset talk onreturn7、方法1：clearset talk off n=1sum=0do while n=1000if mod(n,7)=0sum=sum+nendifn=n+1enddo?”1到1000中能被7整除的数的累加和是：”,sumset talk on return方法