Visual Foxpro 实用教程课本及辅导教材参考答案第三版.docx

Visual Foxpro 实用教程课本及辅导教材参考答案第三版.docx

《Visual Foxpro 实用教程课本及辅导教材参考答案第三版.docx》由会员分享，可在线阅读，更多相关《Visual Foxpro 实用教程课本及辅导教材参考答案第三版.docx（22页珍藏版）》请在冰豆网上搜索。

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

VisualFoxpro实用教程课本（第三版）及实验教材部分课后题答案

说明：

1。

本材料仅供学习参考，不代表任何考试题目意向；

2。

所给定的题目答案只是常规解法，不一定是最佳答案。

第一章：

课本习题一P10

一.单选题1.B2.A3.C4.D5.C6.B7.A

实验教程补充习题P1

1.选择题

（1）A

（2）B（3）B（4）D（5）C（6）D（7）D（8）C（9）B（10）B（11）D（12）B

2.填空题

（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）age<15.and.height>=1.8

（2）zhch=”教授”.and.age<40.or.age<35.and.zhch=”副教授”

3.

（1）.T.

（2）.F.（3）353.00（4）.F.（5）.F.（6）223.2232

4.

（1）2000.01.18

（2）D（3）3（4）C（5）8（6）8（7）71（8）52

5.

（1）.F.

（2）.T.（3）.F.（4）7（5）_管理_87计算中心管理

实验教程补充习题P3

1.选择题

（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）D

2.填空题

（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

实验教程补充习题P21

1.选择题

（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）D

2.填空题

（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）GO8

DELETENEXT8

PACK

（14）数据表名（15）主索引（16）LISTFOR婚否=.T.

（17）数据库（18）CONTINUE（19）默认值（20）.dbf

第四章：

课本习题四P129

二.选择题1.D2.A3.C4.A

三．填空题1union2.NULL.3逻辑AVG、SUM5INTOCURSOR

实验教程补充习题P36

1.选择题

（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）B

2.填空题

（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实现：

SETTALKOFF

CLEAALL

CLEA

INPUT“INPUTANUMBERTOX:

”TOX

INPUT“INPUTANUMBERTOY:

”TOY

INPUT“INPUTANUMBERTOZ:

”TOZ

IFX>Y

IFY>Z

?

X,Y,Z

ELSE

IFX>Z

?

X,Z,Y

ELSE

?

Z,X,Y

ENDIF

ENDIF

ELSE&&X

IFY

?

Z,Y,X

ELSE

IFX>Z

?

Y,X,Z

ELSE

?

Y,Z,X

ENDIF

ENDIF

ENDIF

SETTALKON

RETU

●用CASE实现（此种要求有若干种实现方式，只给出一种）：

SETTALKOFF

CLEAALL&&清自定义变量，关闭和本程序不相关的其他文件

CLEA&&清屏

INPUT“INPUTANUMBERTOX:

”TOX

INPUT“INPUTANUMBERTOY:

”TOY

INPUT“INPUTANUMBERTOZ:

”TOZ

DOCASE

CASEX>Y

DOCASE

CASEY>Z

?

X,Y,Z

CASEX>Z

?

X,Z,Y

OTHER

?

Z,X,Y

ENDCASE

OTHER&&X

DOCASE

CASEX>Z

?

Y,X,Z

CASEY>Z

?

Y,Z,X

OTHER

?

Z,Y,X

ENDCASE

ENDCASE

SETTALKON

RETU

2.求0-999的水仙花数

SETTALKOFF

CLEA

CLEAALL

FORI=0TO999

A=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

?

I

ENDIF

ENDFOR

SETTALKON

RETU

3.利用循环和CASE语句实现

SETTALKOFF

CLEA

CLEAALL

DOWHILE.T.

INPUT"INPUTANUMBERTOX:

"TOX

IFX=0

EXIT

ENDIF

DOCASE

CASEX=1

?

'壹'

CASEX=2

?

'贰'

CASEX=3

?

'叁'

CASEX=4

?

'肆'

CASEX=5

?

'五'

CASEX=6

?

'陆'

CASEX=7

?

'柒'

CASEX=8

?

'捌'

CASEX=9

?

'玖'

ENDCASE

ENDDO

SETTALKON

RETU

4.注意ASC码的判别

SETTALKOFF

CLEA

CLEAALL

ACCE'INPUTASERIALOFCHARACTERSTOS：

'TOS

NZM=0&&字母个数

NSZ=0&&数字个数

NKG=0&&空格个数

FORI=1TOLEN（S）

C=UPPER（SUBSTR（S,I,1））

IFASC（C）<91ANDASC（C）>64

NZM=NZM+1

ENDIF

IFASC（C）<58ANDASC（C）>47

NSZ=NSZ+1

ENDIF

IFASC（C）=32

NKG=NKG+1

ENDIF

ENDFOR

?

'字母个数为：

',NZM

?

'数字个数为：

',NSZ

?

'空格个数为：

',NKG

?

'其他字符个数为：

',LEN（S）-NZM-NSZ-NKG

SETTALKON

RETU

5.本题使用依附自定义函数实现

依附自定义函数方式