VFP练习册练习题答案

VFP练习册答案:

2.1数据库系统基础知识

一、选择题

1.A2.C3.C4.A5.D6.C7.C8.B9.C10.C11.C

12.C13.C14.C

二、判断题

1.X2.V3.V4.V5.X6.X7.V8.X

2.2VisualFoxPro操作基础

选择题

1.D2.C3.C4.C5.D

判断题（正确打J,错误打X）

1.X2.

2.3VisualFoxPro的数据及其运算

一、选择题

1.B2.B3.C4.B5.D6.B7.A8.C9.A10.B

11.A12.B13.D14.B15.D16.C17.A18.C19.C20.B

21.C22.D23.B24.D25.D26.D27.D28.A29.B30.B

31.A32.A33.C34.B35.A36.D37.A38.B39.B40.D

41.C42.A43.B44.D45.C46.D47.A48.A49.A50.C

51.A52.A

二、判断题

1.X2.X3.J4.X5.X6.7.X8.V9.V10.X

11.X12.X13.J14.J15.V16.X17.18.V19.X20.

21.J22.X23.X

2.4表的基本操作

选择题

1.A2.A3.C4.D5.D6.B7.C8.B9.B10.D

11.B12.C13.A14.C15.D16.B17.D18.D19.B20.A

21.C22.B23.A24.C25.B26.B27.C28.C29.D30.C

31.C32.B33.C34.C35.B36.A37.A38.C39.A40.B

41.B42.B43.D44.A45.B46.B47.A48.C49.A50.C

51.B52.B53.A54.D55.C

判断题

1.V2.X3.X4.V5.V6.X7.X8.V9.V10.X

11.V12.V13.X14.X15.V16.V17.X18.V

2.5数据库的基本操作

一、选择题

1.C2.A3.B4.A5.C6.B7.A8.C9.A

10.C11.A12.D13.A14.B15.A16.A17.A

2.6SQL语言的应用

一、选择题

1.A2.B3.A4.B5A6.D7,A8.A9.B10.B

11.B12.C13.D14.C15.C16.A17.D18.D19.A20.D

21.D22.B23.A24.B25.B26.C27.B28.D29.A30.B

31.B32.A33.B34.B35.B

2.7查询与视图设计

一、选择题

1.D2,A3.A4.D5.C6,D7.C8.C9.A10.B

11.D12.D13.B14.C15.D16.17.D18.D19.C

2.8VisualFoxPro项目管理器

一、选择题

1.A2.D3.C4.D5.C6.B7.A8.B9.C10.D

11.D12.A13.B14.D15.D

2.9结构化程序设计

一、选择题

1.C2.A3.A4.B5.B

二、判断题

1.X2.V3.V4.V5.V

三、程序填空

1.①成绩＞mx;②记录号二RECNOO;③ENDSCAN;④STR(成绩,5,1)或STR(成绩)

2.①UBSTR(T,1,2)(或SUBS(T,1,2));②ENDD0(或ENDD)

3.①学号二A.学号或学号二A-＞学号；②USESCJ1;③N=N+1

4.①XI〉学分；②SKIP

5.①TS=0;②WITHRI,R2,TS;③ABS(R1-R21)

6.①USEXB;②TO编号INTOXA;③XB.标志二.T.④ENDIF

7.①WITHSHGZ,TAX;②SKIP;③ENDCASE

8.①0;②>=35

9.①1〈=10;②X>MAX;③XVMIN

四、读程序

1.522

220

2.11

23

58

1321

3.姓名性别班级总分

李萧女1班515

4.1+1+2+1+2+3+1+2+3+4+1+2+3+4+5+=35

5.19

288

3777

46666

6.2009王子李72

1002李小锋65

7.19

299

3999

49999

8.45.F.

.F..F.7

9.153

10.我爱我的祖国

美丽的重庆在前进

11.输出：1

输出：6

输出：11

五、程序设计

1、

S=0

FORN=1TO100

IFN%7=0

S=S+N

ENDIF

NEXT

?S

2、

CLEAR

USEJBQK

DOWHILE.T.

ACCEPT〃请输入编号：〃TOBH

LOCATEFOR编号=BH

IFNOTEOF()

?”姓名：”+姓名

?”文化程度：”+文化程度

??”基本工资："，基本工资

ELSE

?"查无此人”

ENDIF

WAIT”继续查找吗？(Y/N)"TOYN

IFUPPER(YN)<>"Y"

EXIT

ENDIF

ENDDO

USE

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■a

3.

CLOSEALL

USEXSCJ

INDEXON学号TAGXII

SELE0

USEXSDA

SETRELATIONTO学号INTOA

SETSKIPTOA

DOWHILE.T.

ACCEPT〃请输入查询学生的学号〃TON

IFN二〃〃

EXIT

ENDIF

LOCATEFOR学号二N

IFFOUND()

SELE1

SCANFOR学号二N

?B.姓名,B,专业班级，课程名，成绩

ENDSCAN

ELSE

?〃查无此人〃

ENDIF

ENDDO

解法2

CLOSEALL

SETEXACTON

OPENDATABASEXS

DOWHILE.T.

ACCEPT〃请输入查询学生的学号〃TON

IFN二〃〃

EXIT

ENDIF

SELEXSDA.姓名，XSDA.专业,XSCJ.课程名，XSCJ.成绩；

FROMXSDA,XSCJ;

WHEREXSDA.学号二XSCJ.学号ANDXSCJ.学号二N;

ENDDO

4.

CLEAR

SELECT1

USEDA

INDEXON准考证号TAGZK

SELECT2

USECJ

SETRELATIONTO准考证号INTODA

SCAN

REPLACE总分WITH语文+数学+外语+其他

IF总分＞二320

REPLACEDA.录取否WITH.T.

ENDIF

ENDSCAN

?〃录取考生情况表〃

?〃准考证号姓名总分毕业学校录取学校”

GOTOP

SCANFORCJ.录取否

?准考证号,CJ.姓名，总分,CJ.毕业学校,CJ.志愿

ENDSCAN

5、

CLEAR

Settalkoff

Setsafetyoff

SELECT1

USESTUDENT

INDEON学号TAGXH

SELECT2

USESCORE

SETRELATIONTO学号INTOSTUDENT

REPLACE成绩WITH成绩+5,加分否WITH.T.FOR民族◊〃汉〃

CALCULATECNT(),MAX(成绩)TORS,CJFOR成绩＞=450AND加分否

?”加过分且成绩在450分及其以上的考生人数和最高成绩分别为：”,RS,CJ

?”学号姓名成绩〃

SCANFOR成绩＞=600

?学号，STUDENT.姓名，成绩

ENDSCAN

Settalkon

Setsafetyon

CLOSEALL

RETURN

*1.解法1

CLOSEALL

OPENDATABASExs

USEXSDA

INDEXON学号TAGXH

SELE0

USEXSKC

INDEXON课程号TAGKCH

SELE0

USEXSCJ

SETRELATIONTO学号INTOXSDA

SETRELATIONTO课程号INTOXSKCADDI

SCAN

?学号,XSDA.姓学XSKC.课程名,成绩

ENDSCAN

*1解法2

OPENDATABASExs

SELEXSDA.学号，XSDA.姓名，XSKC.课程名，XSCJ.成绩；

FROMXSDA,XSCJ,XSKC;

WHEREXSDA.学号=XSCJ.学号ANDXSCJ.课程号=XSKC.课程号

*2

CLOSEALL

SETEXACTON

SETTALKOFF

OPENDATABASExs

USEXSDA

INDEXON学号TAGXII

SELE0

USEXSCJ

SETRELATIONTO学号INTOXSDA

INDEXON课程号TAGKCH

SELE0

USEXSKC

SETRELATIONTO课程号INTOXSCJ

SETSKIPTOXSCJ

DOWHILE.T.

SELE3

ACCEPT〃请输入查询课程名称〃TOM

IFM二〃〃

EXIT

ENDIF

LOCATEFOR课程名二M

IFFOUND()

H二课程号

X=XSDA.姓名

SELE2

CALCULATEAVG(成绩)，MAX(成绩)，MIN(成绩)FOR课程号二HTOA,B,C

?M+〃平均成绩〃+STR(A,5,l)+〃最高成绩：〃+STR(B,5,l)+〃最低成

绩：〃+STR(C,5,1)

SCANFOR成绩(50

?〃补考通知单〃

?X+〃同学：〃

?〃第〃+XSCJ.学期+〃你的〃+XSKC.课程名+〃课程考试不及格，请利用假〃

?〃期看书复习，作好补考准备。〃

ENDSCAN

ELSE

?〃输入课程名无效〃

ENDIF

ENDDO

7、

CLEAR

CLOSEDATABASE

SELECT3

USETJ

ZAP

SELECT2

USEDZH

INDEXON借书证号TODZH

SELECT1

USEJY

DOWHILENOTEOF()

IFDATE()-借书日期＞60

SELECT2

SEEKA.借书证号

IFNOTEOF()

REPLACE停借否WITH.T.

SELECT3

APPENDBLANK

REPLACE借书证号WITHB.借书证号，姓名WITHB.姓名

ENDIF

ENDIF

SELECT1

SKIP

ENDDO

SELECT3

LIST

CLOSEALL

2.10面向对象程序设计基础

一、选择题

1.D2.C3.D4.A5.A6.B7.D8.A9.C10.B

11.D12.A13.C

2.11表单设计与应用

-、选择题

1.A2.D3.C4.D5.D6.C7.B8.B9.A10.B

11.D12.C13.C14.D15.D16.A17.B

二、填空题

1.(T)Val(thisform.text1.value)*0.8②label1.caption

2.①"*"②thisform.textl.value#thisform.text2.value

3.①for性别="0"ton②性别="0"AND职称="副教授"

4.①0②thisform.textl.value③thisform.text2.value=p©thisform.release

5.①x、y②x*y-x*y*0.06③this.value=z

6.①计算(\<C)②结束(\<E)③a2=(5/9)*(a1-32)

7.①countto②k=k+l③str(k/zs*100,5,1)

8.①min(工资)②职称="教授"or职称="副教授"③str(a,4)@str(d,4)

9.①〈>0②1=1+1③ALLT(STR(N))④Y=1

三、运行表单，写出结果

1.82.良好

3.不是

秋

4.65.西部开发在重庆

6.113952574998111121

36

7.M=10N=28.dkl907891088.56

9.99012李四高等数学65

99012李四计算机70

四、表单设计

1.表单的caption属性设置为：计算平均成绩；

文本框textl、text2、text3的Value属性值为0；

“计算”命令按钮的“CLICK”事件：

X=thisform.textl.value

Y=thisform.text2.value

Z=R0UND((X+Y)/2,1)

thisform.text2.value二Z

2.表单的caption属性设置为：计算圆的面积和周长；

文本框textl、text2>text3的Value属性值为0；

1)文本框text2的“gotfocus”事件：

R二thisform.textl.value

S=R0UND(3.14159*R^2,2)

thisform.text2.value=S

2)文本框text3的“gotfocus”事件:

R=thisform.textl.value

GROUND(2*3.14159*R,2)

thisform.Text3.value=C

3.表单的caption属性设置为：输出3个数中的最大数；

文本框textl、text2>text3的Value属性值为0,text4的Value属性值为"

“输出”命令按钮的“CLICK”事件:

X=MAX(thisform.textl.value,thisform.textl.value,thisform.textl.value)

thisform.text4.value=X

4.表单的caption属性设置为：数据累加及计数；

1)forml的load事件代码：

publicx,n

x=0

n=0

2)“累加”按钮的Click事件代码：

x=x+thisform.textl.value

n=n+l

thisform.Iabel4.visible=.t.

th