VFP练习册练习题答案.docx
《VFP练习册练习题答案.docx》由会员分享,可在线阅读,更多相关《VFP练习册练习题答案.docx(14页珍藏版)》请在冰豆网上搜索。
VFP练习册练习题答案
VFP练习册答案:
2.1数据库系统基础知识
一、选择题
1.A2.C3.C4.A5.D6.C7.C 8.B 9.C10.C11.C
12.C13.C 14.C
二、判断题
1.X2.V3.V4.V5.X6.X7.V8.X
2.2VisualFoxPro操作基础
一、选择题
1.D2.C3.C4.C5.D
二、判断题(正确打√,错误打×)
1.×2.√
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.×2.×3.√4.×5.×6.√7.X8.V9.V10.X
11.X12.X13.√14.√15.√16.X17.√18.√19.X20.√
21.√22.×23.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.B17.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;②记录号=RECNO();③ENDSCAN;④STR(成绩,5,1)或STR(成绩)
2.①UBSTR(T,1,2)(或SUBS(T,1,2));②ENDDO(或ENDD)
3.①学号=A.学号或学号=A->学号;②USESCJ1;③N=N+1
4.①X1>学分;②SKIP
5.①TS=0;②WITHR1,R2,TS;③ABS(R11-R21)
6.①USEXB;②TO编号INTOXA;③XB.标志=.T.④ENDIF
7.①WITHSHGZ,TAX;②SKIP;③ENDCASE
8.①0;②>=35
9.①I<=10;②X>MAX;③X四、读程序
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
3.
CLOSEALL
USEXSCJ
INDEXON学号TAGXH
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
6、
*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学号TAGXH
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