VisualFoxpro实用教程课本及辅导教材参考答案第三版

VisualFoxpro实用教程课本（第三版）及实验教材部分课后题答案说明：1。本材料仅供学习参考，不代表任何考试题目意向；2。所给定的题目答案只是常规解法，不一定是最佳答案。第一章：课本习题一P10一.单选题1.B2.A3.C4.D5.C6.B7.A实验教程补充习题P11.选择题（1）A（2）B（3）B（4）D（5）C（6）D（7）D（8）C（9）B（10）B（11）D（12）B2.填空题（1）数据内容数据形式（2）人工管理阶段文件系统管理阶段数据库系统管理阶段（3）计算机系统数据库数据库管理系统有关人员（4）实体型（5）事物之间的联系（6）关系模型（7）属性记录（8）关系（9）选择投影连接（10）多对多第二章：课本习题二P42单选题1.B2.D3.B4.D5.B6.D7.D8.C9.B10.B11.A12.C13.B14.A二.计算题1．(1).T.(2).F.(3).T.2．(1)age15.and.height=1.8(2)zhch=”教授”.and.age40.or.age35.and.zhch=”副教授”3.(1).T.(2).F.(3)353.00(4).F.(5).F.(6)223.22324.(1)2000.01.18(2)D(3)3(4)C(5)8(6)8(7)71(8)525.(1).F.(2).T.(3).F.(4)7(5)_管理_87计算中心管理实验教程补充习题P31.选择题（1）B（2）C（3）D（4）A（5）A（6）C（7）A（8）D（9）B（10）D（11）C（12）A（13）C（14）A（15）D2.填空题（1）32（2）Enter（3）选项（4）菜单命令程序（5）;（6）.pjx（7）代码（8）从项目管理器中移去从磁盘上删除（9）函数算术运算关系运算逻辑运算（10）N（11）.T.（12）337.201（13）15（14）字符型（15）-1第三章：课本习题三P88：二.单选题1.B2.无答案3.C4.B5.D6.C7.C8.D9.C10.C11.B实验教程补充习题P211.选择题（1）C（2）A（3）A（4）B（5）C（6）B（7）B（8）B（9）A（10）D（11）D（12）C（13）B（14）B（15）A（16）D（17）C（18）C（19）C（20）D（21）D（22）B（23）B（24）D（25）B（26）C（27）A（28）C（29）C（30）D2.填空题（1）LIST连续不分屏显示信息DISPLAY采用分屏显示信息（2）各字段宽度存放逻辑删除标记（3）已经打开并且正在使用的数据表（4）第5条记录最后一条记录后面（此时EOF()函数的值为.T.）（5）DELETEPACK（6）单入口索引文件结构化复合索引文件非结构化（独立）复合索引文件（7）自由表数据库表（8）新数据表（9）Memo（10）6位（11）按索引顺序排列（12）DELETEFORSUBSTR(分类号,1,1)=I（13）GO8DELETENEXT8PACK（14）数据表名（15）主索引（16）LISTFOR婚否=.T.（17）数据库（18）CONTINUE（19）默认值（20）.dbf第四章：课本习题四P129二.选择题1.D2.A3.C4.A三．填空题1union2.NULL.3逻辑AVG、SUM5INTOCURSOR实验教程补充习题P361.选择题（1）B（2）B（3）B（4）C（5）B（6）D（7）D（8）A（9）C（10）B（11）D（12）B（13）C（14）B（15）C（16）C（17）B（18）B（19）D（20）B（21）A（22）B（23）D（24）A（25）C（26）A（27）C（28）B（29）D（30）C（31）B（32）B（33）C（34）B（35）B（36）A（37）C（38）D（39）C（40）D（41）A（42）B（43）B（44）C（45）A（46）D（47）C（48）D（49）A（50）B（51）D（52）D（53）B2.填空题（1）条件（2）视图（3）符合条件（4）INSERTSELECTUPDATEALTERTABLE（5）降序升序（6）UPDATEGZBSET补贴=补贴+800WHERE职称=副教授（7）SELECT*FROMRSGLINNERJOINRSGZONRSGL.编号=RSGZ.编号（8）AVG(工资)GROUPBY职称（9）UNION（10）NULL（11）逻辑（12）AVGSUM（13）INTOARRAY14.ORDERBY15.更新（16）本地视图远程视图17.字段筛选（18）①SELECT*FROMSTUD1WHERE获奖次数5AND性别=男②SET获奖次数=5③INTOSTUD2VALUES（991201，VFP程序设计）④SELECT学号,姓名,总成绩FROMstud1WHERE总成绩=(SELECTMAX(总成绩)FROMstud1)⑤SELECT学号,姓名,总成绩FROMstud1WHERE学号IN(SELECT学号FROMstud2WHERE选课=操作系统)⑥SELECT*TOP3FROMSTUD1ORDERBY总成绩DESC（19）OrderBy（20）职称ISNULL（21）WHERE实发工资BETWEEN800AND1000或者WHERE实发工资＞=800AND实发工资＜=1000（22）%（23）GROUPBY（24）DISTINCT（25）数据查询第五章课本习题五P171注意：171页最后一行中，DOa.prg改为DOmain.prg二.单选题1.A2.A3.A4.D5.A三.填空1.1101C或字符型2.上海市南京市济南市青岛市四．填空“0”,ssubstr(s,1,n-1)+substr(s,n+1)五．根据要求设计程序1.用两种语句格式实现用IF实现：SETTALKOFFCLEAALLCLEAINPUT“INPUTANUMBERTOX:”TOXINPUT“INPUTANUMBERTOY:”TOYINPUT“INPUTANUMBERTOZ:”TOZIFXYIFYZ?X,Y,ZELSEIFXZ?X,Z,YELSE?Z,X,YENDIFENDIFELSE&&XYIFYZ?Z,Y,XELSEIFXZ?Y,X,ZELSE?Y,Z,XENDIFENDIFENDIFSETTALKONRETU用CASE实现(此种要求有若干种实现方式，只给出一种)：SETTALKOFFCLEAALL&&清自定义变量，关闭和本程序不相关的其他文件CLEA&&清屏INPUT“INPUTANUMBERTOX:”TOXINPUT“INPUTANUMBERTOY:”TOYINPUT“INPUTANUMBERTOZ:”TOZDOCASECASEXYDOCASECASEYZ?X,Y,ZCASEXZ?X,Z,YOTHER?Z,X,YENDCASEOTHER&&XYDOCASECASEXZ?Y,X,ZCASEYZ?Y,Z,XOTHER?Z,Y,XENDCASEENDCASESETTALKONRETU2.求0-999的水仙花数SETTALKOFFCLEACLEAALLFORI=0TO999A=VAL(LEFT(STR(I,3),1))B=VAL(SUBSTR(STR(I,3),2,1))C=VAL(RIGHT(STR(I,3),1))IFA^3+B^3+C^3=I?IENDIFENDFORSETTALKONRETU3.利用循环和CASE语句实现SETTALKOFFCLEACLEAALLDOWHILE.T.INPUTINPUTANUMBERTOX:TOXIFX=0EXITENDIFDOCASECASEX=1?'壹'CASEX=2?'贰'CASEX=3?'叁'CASEX=4?'肆'CASEX=5?'五'CASEX=6?'陆'CASEX=7?'柒'CASEX=8?'捌'CASEX=9?'玖'ENDCASEENDDOSETTALKONRETU4.注意ASC码的判别SETTALKOFFCLEACLEAALLACCE'INPUTASERIALOFCHARACTERSTOS：'TOSNZM=0&&字母个数NSZ=0&&数字个数NKG=0&&空格个数FORI=1TOLEN(S)C=UPPER(SUBSTR(S,I,1))IFASC(C)91ANDASC(C)64NZM=NZM+1ENDIFIFASC(C)58ANDASC(C)47NSZ=NSZ+1ENDIFIFASC(C)=32NKG=NKG+1ENDIFENDFOR?'字母个数为：',NZM?'数字个数为：',NSZ?'空格个数为：',NKG?'其他字符个数为：',LEN(S)-NZM-NSZ-NKGSETTALKONRETU5.本题使用依附自定义函数实现依附自定义函数方式SETTALKOFFCLEACLEAALLINPUT'INPUTANUMBERTOTOR:'TOXINPUT'INPUTANUMBERTOTOr:'TOy?AREA(X)-AREA(Y)SETTALKONRETUFUNCTIONAREAPARARRETUPI()*R*RENDFUNC子程序方式*主程序MAIN.PRGSETTALKOFFCLEACLEAALLINPUT'INPUTANUMBERTOTOR:'TOXINPUT'INPUTANUMBERTOTOr:'TOy?AREA(X)-AREA(Y)SETTALKONRETU*子程序AREA.PRGPARARRETUPI()*R*RRETU6平行四边形打印（本程序有若干种不同的实现方式，行列数可以自己改动）SETTALKOFFCLEACLEAALL?SPACE(7)FORI=1TO12??*ENDFORFORI=1TO6?SPACE(7-I)+*+SPACE(10)+*ENDFOR?FORI=1TO11??*ENDFORSETTALKONRETU7.假设表已经存在。SETTALKOFFCLEACLEAALLUSEN_LISTFORI=1TO20INPUT'ANUMBERTOX:'TOXAPPEBLANREPLDATAWITHXENDFORINDEXONDATATAGDATADESCGOTOP?'TheMAXNUMBERIS:',DATAGOBOTT?'TheMINNUMBERIS:',DATAUSESETTALKONRETU程序部分课外补充题目：1.已知数列前两项分别为1，1，从第三项起，每项的值为其紧邻前两项的和，求第40项的值。此题实际是求非波纳契数列的第40项。方法一：数组实现SETTALKOFFCLEACLEAALLDIMEA(40)A(1)=1A(2)=1FORI=3TO40A(I)=A(I-1)+A(I-2)ENDFOR?A(40)SETTALKONRETU方法二：变量倒换法SETTALKOFFCLEACLEAALLS1=1S2=1FORI=3TO40S3=S1+S2S1=S2S2=S3ENDFOR?S3SETTALKONRETU2.求1！+2！+3！+。。。+10！基本方法SETTALKOFFCLEACLEAALLS=0FORI=1TO10JC=1FORJ=1TOIJC=JC*JENDFORS=S+JCENDFOR?SSETTALKONRETU改进方法SETTALKOFFCLEACLEAALLS=0JC=1FORI=1TO10JC=JC*IS=S+JCENDFOR?SSETTALKONRETU3.从键盘任意输入正数负数或零，分别求出所有正数个数，负数个数，全部数的和，输入0则结束。利用循环实现。SETTALKOFFCLEACLEAALLNZS=0NFS=0L_SUM=0DOWHILE.T.INPUT'INPUTANUMBERTOX:'TOXIFX=0EXITENDIFL_SUM=L_SUM+XIFX0NZS=NZS+1ELSENFS=NFS+1ENDIFENDDO?L_SUM,NZS,NFSSETTALKONRETU4.从键盘输入一个正数，求小于