
第6章程序设计 ※1.选择题 (1)下面命令中,()命令是可以不将输入的数据存入某个内存变量。 A)WAITB)ACCEPTC)INPUTD)STORE (2)在数据库系统中应用程序源文件是一种ASCII文本文件,其扩展名为()。 A)TXTB)FMTC)IDXD)PRG (3)赋值语句Y=Y+1的正确含义是()。 A)变量Y的值等于变量Y+1的值 B)将变量Y的值存入变量Y+1中去 C)将变量Y的当前值加1后,赋给变量Y D)将变量Y+1的值存入变量Y中去 (4)循环语句有3种结构,分别为()。 A)当型循环、步长型循环和数据库表扫描型循环 B)独立循环、交叉循环和混合循环 C)内部循环、分支循环和外部循环 D)FOR循环、WHERE循环和SCAN循环 (⑤)下列给变量赋值命令()是合法的。 A)ACCEPT"输入数值:"XB)STORE5*4TOX C)INPUT2*3TOYD)WAIT"输入T/F:"T0.T. (6)下列程序的运行结果是()。 clear a=1 dowhile.t. b=a*3+2 c=b*a ifc>30 exit else ?2b
第 6 章 程序设计 ※1.选择题 ⑴下面命令中,()命令是可以不将输入的数据存入某个内存变量。 A)WAITB)ACCEPTC)INPUTD)STORE ⑵在数据库系统中应用程序源文件是一种 ASCII 文本文件,其扩展名为()。 A)TXTB)FMTC)IDXD)PRG ⑶赋值语句 Y=Y+1 的正确含义是()。 A)变量 Y 的值等于变量 Y+1 的值 B)将变量 Y 的值存入变量 Y+1 中去 C)将变量 Y 的当前值加 1 后,赋给变量 Y D)将变量 Y+1 的值存入变量 Y 中去 ⑷循环语句有 3 种结构,分别为()。 A)当型循环、步长型循环和数据库表扫描型循环 B)独立循环、交叉循环和混合循环 C)内部循环、分支循环和外部循环 D)FOR 循环、WHERE 循环和 SCAN 循环 ⑸下列给变量赋值命令()是合法的。 A)ACCEPT"输入数值:"XB)STORE5*4TOX C)INPUT2*3TOYD)WAIT"输入 T/F:"TO.T. ⑹下列程序的运行结果是()。 clear a=1 dowhile.t. b=a*3+2 c=b*a ifc>30 exit else ??b

endif a=a+1 enddo return A)1,2,3B)A*3+2C)5,8D)5,8,11 (7)学生.dbf中有性别字段(字段名为sex,C型),下面程序显示所有性别为"男"的记录, 请在横线处选择答案: use学生 dowhile.not.eof() () skip loop endif display wait"按任意键继续.,."window skip enddo use A)ifsex="男"B)ifsex="女"C)ifsex=男D)ifsex=女 (8)下列程序的运行结果是()。 settalkoff x="1 ifx="12" x=x+"12 else x=x-"34" endif ?x settalkon A)112B)134C)22D)-33
endif a=a+1 enddo return A)1,2,3B)A*3+2C)5,8D)5,8,11 ⑺学生.dbf 中有性别字段(字段名为 sex,C 型),下面程序显示所有性别为"男"的记录, 请在横线处选择答案: use 学生 dowhile.not.eof() () skip loop endif display wait"按任意键继续..."window skip enddo use A)ifsex="男"B)ifsex="女"C)ifsex=男 D)ifsex=女 ⑻下列程序的运行结果是()。 settalkoff x="1" ifx="12" x=x+"12" else x=x-"34" endif ?x settalkon A)112B)134C)22D)–33

(9)执行下程序后, publica(10) a(1)=1 a(2)="a(1)“ a(3)=&a(2) a(4)=a(a(3)》 ?a(4) 显示内容是()。 A).f.B)"A(1)"C)"&A(1)"D)1 0执行下列程序的结果是()。 settalkoff clear s="87654321" =1 dowhilei1 c2=c2+right (c1,1) cl=left(c1,len(c1)-1) enddo ?c2 运行时输入ABCDE,则输出的结果为()。 A)ABCDEB)CDEBAC)BCDED)EDCB ②有如下程序段:
⑼执行下程序后, publica(10) a(1)=1 a(2)="a(1)" a(3)=&a(2) a(4)=a(a(3)) ?a(4) 显示内容是()。 A).f.B)"A(1)"C)"&A(1)"D)1 ⑽执行下列程序的结果是()。 settalkoff clear s="87654321" i=1 dowhilei1 c2=c2+right(c1,1) c1=left(c1,len(c1)-1) enddo ?c2 运行时输入 ABCDE,则输出的结果为()。 A)ABCDEB)CDEBAC)BCDED)EDCB ⑿有如下程序段:

publicnl n1=95 n2=int (n1/10) n3=mod(n1,10) dosubl … ?nl,n2,n3&()① return proceduresubl privatenl,n3 ?nl,n2,n3&&()② endproc 则在①、②处的N1、N2、N3的变量关系为(). A)两处的N1、N2是完全相同的变量,但两处的N3是不同的变量 B)两处的N1是完全相同的变量,但两处的N2、N3是不同的变量 C)两处的N2、N3是完全相同的变量,但两处的N1是不同的变量 D)两处的N2是完全相同的变量,但两处的N1、N3是不同的变量 ③下列程序执行后,变量X1和X2的值分别是()。 (有关模块调用和变量作用域) clear x1=100 x2=58 dosub ?x1,x2&&结果:()① return proceduresub localxl x1=110 x2=60
publicn1 n1=95 n2=int(n1/10) n3=mod(n1,10) dosub1 …… ?n1,n2,n3&&()① return proceduresub1 privaten1,n3 …… ?n1,n2,n3&&()② endproc 则在①、②处的 N1、N2、N3 的变量关系为()。 A)两处的 N1、N2 是完全相同的变量,但两处的 N3 是不同的变量 B)两处的 N1 是完全相同的变量,但两处的 N2、N3 是不同的变量 C)两处的 N2、N3 是完全相同的变量,但两处的 N1 是不同的变量 D)两处的 N2 是完全相同的变量,但两处的 N1、N3 是不同的变量 ⒀下列程序执行后,变量 X1 和 X2 的值分别是()。 (有关模块调用和变量作用域) clear x1=100 x2=58 dosub ?x1,x2&&结果:()① return proceduresub localx1 x1=110 x2=60

?x1,x2&结果:()② endproc 结果①的答案是:()。 A)10060B)11060C)10058D)11058 结果②的答案是:()。 A)10060B)11060C)10058D)11058 ④在VisualFoxPro中有如下程序: *程序名:test.prg *调用方法:dotest settalkoff closeall clearall mx="VisualFoxPro" y=”二级” dosublwithmx ?my+mx return *子程序:subl.prg proceduresubl parametersmx1 localmx mx="VisualFoxProDBMS考试 my="计算机等级”+my return 执行命令DOTEST后,屏幕的显示结果为()。 A)二级VisualFoxPro B)计算机等级二级VisualFoxProDBMS考试 C)二级VisualFoxProDBMS考试 D)计算机等级二级VisualFoxPro 5
?x1,x2&&结果:()② endproc 结果①的答案是:()。 A)10060B)11060C)10058D)11058 结果②的答案是:()。 A)10060B)11060C)10058D)11058 ⒁在 VisualFoxPro 中有如下程序: *程序名:test.prg *调用方法:dotest settalkoff closeall clearall mx="VisualFoxPro" my="二级" dosub1withmx ?my+mx return *子程序:sub1.prg proceduresub1 parametersmx1 localmx mx="VisualFoxProDBMS 考试" my="计算机等级"+my return 执行命令 DOTEST 后,屏幕的显示结果为()。 A)二级 VisualFoxPro B)计算机等级二级 VisualFoxProDBMS 考试 C)二级 VisualFoxProDBMS 考试 D)计算机等级二级 VisualFoxPro 5

※2.填空题 ()当一条语句很长时,在代码编辑窗口中分两行或多行输入,可以使用符号续行。 (2)在程序设计中,为了增加程序的可读性,常使用注释,其中单独成行的注释行以开 头,在命令行中也可以添加注释,它以开头。 (3)程序段如下: x=1 s=0 dowhilex<=100 S=s+x X=x+2 enddo ?"s=”,s 这个程序是计算 ,执行后的结果是 (4)要显示数据表文件中年龄字段值小于30岁和超过50岁的全部女职工记录,应当使用 命令 (⑤)有如下一段程序: input"请输入当前日期:"torg ?rq+29 在执行本程序时,用户应当输入,显示结果才是:12/27/04 (6)已经建立了工资数据库文件GZB.DBF,要修改其中基本工资字段值,使其为O,请填 空。 settalkoff clear usegzb accept"清除基本工资数据吗?(y/n)"tox ifx= replaceall基本工资with0 endif gotop
※2.填空题 ⑴当一条语句很长时,在代码编辑窗口中分两行或多行输入,可以使用 符号续行。 ⑵在程序设计中,为了增加程序的可读性,常使用注释,其中单独成行的注释行以 开 头,在命令行中也可以添加注释,它以 开头。 ⑶程序段如下: x=1 s=0 dowhilex<=100 s=s+x x=x+2 enddo ?"s=",s 这个程序是计算 ,执行后的结果是 。 ⑷要显示数据表文件中年龄字段值小于 30 岁和超过 50 岁的全部女职工记录,应当使用 命令 。 ⑸有如下一段程序: input"请输入当前日期:"torq ?rq+29 在执行本程序时,用户应当输入 ,显示结果才是:12/27/04 ⑹已经建立了工资数据库文件 GZB.DBF,要修改其中基本工资字段值,使其为 0,请填 空。 settalkoff clear usegzb accept"清除基本工资数据吗?(y/n)"tox ifx= replaceall 基本工资 with0 endif gotop

1ist姓名,基本工资 use return (T)下列给定程序MODI1.PRG的功能是:求两个日期之间有多少个星期日。在横线处填上 适当的内容使程序完整。 settalkoff clear input"请输入任意日期:"todl d2=date() forn=0tod2-dl ifdow(d1+n)与DOWHILE有何区别?
list 姓名,基本工资 use return ⑺下列给定程序 MODI1.PRG 的功能是:求两个日期之间有多少个星期日。在横线处填上 适当的内容使程序完整。 settalkoff clear input"请输入任意日期:"tod1 d2=date() forn=0tod2-d1 ifdow(d1+n)<>1&&指定的日期是星期几 endif endfor ?d settalkon return 5 ※3.上机题 ⑴编写程序,计算 1*2+3*4+5*6+……+19*20 的值。 ⑵试编写程序,实现从键盘输入两个数,求出他们的最大公约数和最小公倍数。 ⑶编写程序,其功能是使用带参数的子程序调用方式计算三角形面积(要求:三角形的 边长从键盘输入)。 5 ※4.思考题 ⑴循环结构中,用 FOR与 DOWHILE有何区别?

(2)下列程序运行的结果是多少?如果将循环体中的EXIT改为L0OP可以吗?为什么? clear x=1 dowhile.t. y=X*X ify>20 else 92y endif 1 enddo return
⑵下列程序运行的结果是多少?如果将循环体中的 EXIT 改为 LOOP 可以吗?为什么? clear x=1 dowhile.t. y=x*x ify>20 exit else ??y endif x=x+1 enddo return