第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