vfp教程安徽大学出版社课后答案

1、习题一、选择题1B2A3A4C5C6D7A8D9C10B11B12C、填空题1结构、共享2数据库3 1:1， 1:n， m:n4层次，网状，关系5关系习题单选题1B2C3B4A5C6A7A8A9B10B11C12D13B14D15A16C、填空题1交互操作方式，程序执行方式212738，14 (-b+sqrt(b*b-4*a*c)/(2*a)54，964758.F.9字符型( C)10单日习题 3单选题1B2C3A4B5D6A7B8C9A10A11A12B13C14D15D16C17B18B19B20B21A22C23A24B25C26D27B28C29C30B31D二、填空题1自由表，数据库

2、表2结构，记录364备注型，通用型5 Replace all 总分 with 数学+英语+语文,平均分 with (数学 +英语+语文)/3 6单索引文件，复合索引文件7各字段长度之和 +18 COUNT ，TOTAL9 Replace all 评价 with “优秀” for 数学=85 and 语文=8510 FOUND()习题四一、单选题1C，B2C3C4C5D6B7A8B，A9C10B二、填空题1主索引、候选索引、普通索引、惟一索引2字段有效性规则、记录有效性规则3同一条记录相关字段4索引字段、一条连线5唯一、一 、多习题 5一、选择题1B2A3B4B5D6B7C8D9C10D二、填空

3、题1. * ， distinct2. group by ，、 order by3. alter ， add4. 降序，升序5.like ， %， -6. 浏览窗口7. avg() ，sum()8. between and， in三、应用题使用以下命令将实发工资填充：Replace all 实发工资 with 基本工资 +职务工资 +津贴- 房租- 水电1. 用 SQL语句实现以下操作： update zg set婚否 =.t. where 姓名="李刚 "insert into zg（职工号,姓名,性别,年龄,工作时间 ,婚否） ;values（"10050&qu

4、ot;," 张燕燕 "," 女 ",; year（date（）-year（1978/7/1）,2007/9/1,.f.） delete from zg where 姓名 =" 张燕燕 "Pack update gz set 职务工资 =500 where 职务工资 <5002. 用 SELECT-SQL语句实现以下查询： select 职工号 , 实发工资 from gz select * from zg where职称="讲师" order by 职工号 select * from zg where职称&l

5、t;>"教授" and 职称 <>"副教授 " into dbf b1Use b1 list select 姓名 , 性别 , 工作时间 from zg where year（ 工作时间 ）>1990 ; order by 工作时间 select 姓名 ,年龄 ,婚否 from zg where 性别="男" into dbf b2Use b2List select 姓名 ,职称 ,实发工资 from zg,gz ;where zg. 职工号 =gz. 职工号 and 实发工资 >1000 select

6、职称 ,count（*） as 人数 from zg group by职称 select max（ 年龄）as 最大, min（ 年龄） as 最小 from zg select 姓名 ,性别,职称, 婚否, 实发工资 from zg,gz ;where zg. 职工号 =gz. 职工号 and 性别="男" and 婚否=.t. into dbf b3 use b3 listselect 姓名 ,职称,基本工资 ,职务工资 ,津贴,房租 ,水电 ,实发工资 ;from zg,gz where zg.职工号 =gz. 职工号 and 职称 =" 副教授 "

7、; ;order by zg. 职工号 select 职称 ,avg（ 职务工资 ） as 平均值 from zg,gz;where zg. 职工号 =gz. 职工号 group by 职称 having avg（ 职务工资 ）>550 select * from gz where职工号 in （select 职工号 from zg where 性别=" 女"） select * from gz where职工号 in ;（select 职工号 from zg where 职称 #" 副教授 "）习题 6、选择题1D2D3C4A5D6A7C8C二、

8、填空题1. 通用型、备注型（该题答案顺序可调）2. 左连接、右连接、内部连接、完全连接（该题答案顺序可调）3. 浏览、临时表、表、图形、屏幕、报表、标签（该题答案顺序可调）4. 连接5. create sql view6. 一个表、多个表、其他视图（该题答案顺序可调）7. 更新条件习题七、选择题1A2C3B4A5D6B7C8AC9D10A二、运行结果1.F.2103144 A=05 4，3，8，5三、填空题1 EXIT2XM ，DELETE ，"Y"3 WITH SHFGZ ，TAXSKIP4 SKIP -15SKIP， PJZ=ZF/(N-1)6 COPY TO A3 ，

9、 X=Y ，SKIP7&AB ，GET TJ,&TJ ，NOT FOUND() ，DISP，LOOP四 . 编程题：1 set talk offs=0for n=3 to 100i=2m=int(sqrt(n)do while i<=m if mod(n,i)=0 exit endif i=i+1 enddo if i>m s=s+n endif endfor?"s=",s return 2 set talk off use jsda scan do case case 职称 =" 教授 " repl 基本工资 with 基本

10、工资 +200 case 职称 =" 副教授 "repl 基本工资 with 基本工资 +150 case 职称 =" 讲师 "repl 基本工资 with 基本工资 +120 case 职称 =" 助教 "repl 基本工资 with 基本工资 +100 endcase endscan use return3 main.prg set talk off input " 请输入一个正整数 n： " to n s=0for t=1 to n step 2 s=s+1/jc(t) endfor ?"s=&qu

11、ot;,s return jc.prg parameters mj=1for i=1 to mj=j*i endfor jc=j return jc 4 set talk off clear i=0 accept " 请输入密码： " to m do while i<=2if m="12345678" messagebox("身份确认，欢迎使用本软件！ ") exitelseif i=2 messagebox("你是非法用户，你无缘使用本软件！ ") exitelseaccept " 请输入密码：

12、" to mi=i+1loopendifendifenddoreturn5 main.prgset talk offclearinput " 请输入上底长： " to l1input " 请输入下底长： " to l2input " 请输入高： " to h?" 该梯形的面积为： "+str(area(l1,l2,h),10,2) returnarea.prgpara x1,x2,x3 s=(x1+x2)*x3/2 retu s 6 set talk offuse df1do whil .not.eof（

13、）max =max（ 得分 1,得分 2,得分 3,得分 4,得分 5,得分 6,得分 7） min=min（ 得分 1,得分 2,得分 3,得分 4,得分 5,得分 6,得分 7） df=（ 得分 1+得分 2+得分 3+得分 4+得分 5+得分 6+得分 7-max-min）/5 repl 平均分 with dfskipenddosort on 平均分 /d to df2clos allset talk onreturn7 open data stscsele stud.学号 ,stud.姓名 ,avg（成绩 ） as 平均成绩 ,stud.院系 from stud,score,cours

14、e where stud.学号 =score.学号 .and.score.课程编号 =course.课程编号 group by stud.学号 orde by 平 均成绩 desc into dbf test1clos data8 sele month（销售日期 ） as 月份,sum（售价-进价）*销售数量 *0.17） as 税款 from 价 格,销售 where 价格.货号=销售.货号 group by 月份 order by 月份 into dbf 税务习题 8 答案、单选题1A2 B3 B4D5A6D7C8A9C10B11C12D13C14D15A16C17A18D19B20A21

15、C22B23B24D25B二、填空题1多态性，继承性，封装性2属性窗口中3 Thisform.label1.caption=time()thisform.refresh 4数据环境窗口中 5 ReadOnly, PasswordChar 6下拉组合框，下拉列表框 7 Interval, timer 8 PageCount 9 Image, Picture 10字符型，数值型，日期型，逻辑性，Value三、简答题略四、设计题第 1 题操作步骤如下：打开表单设计器，在表单上建立如下表所示的控件并设置它们的属性。对象名属性属性值Label1Caption(无)Optiongroup1buttonco

16、unt2Value0Option1Caption显示日期Option2Caption显示时间Timer1Enabled.F.Interval100编写控件代码 Optiongroup1 控件的 Click 事件代码do casecase thisform. Optiongroup1.value=1 thisform.label1.caption=dtoc(date() case thisform. Optiongroup1.value=2 thisform.label1.caption=time() thisform.timer1.enabled=.t.endcasethisform.refr

17、esh timer1 控件的 timer 事件代码 thisform.label1.caption=time() thisform.refresh第 2 题操作步骤如下： 打开表单设计器，在表单上建立如下表所示的控件并设置它们的属性。对象名属性属性值Form1Caption求素数之和Label1Caption100200 之间的素数之和Text1Value0Command1Caption计算编写控件代码 Command1 控件的 Click 事件代码 sum=0for i=100 to 200for j=2 to i-1if mod(i,j)=0exitendifendfor if j=i s

18、um=sum+i endif endfor thisform.text1.value=sum thisform.refresh第 3 题操作步骤如下：打开表单设计器，在表单上建立如下表所示的控件并设置它们的属性。对象名属性属性值Label1Caption姓名Label2Caption成绩Command1Caption确定Command2Caption清除Text1Text2List1编写控件代码 Command1 控件的 Click 事件代码 i=1cj=val(thisform.text2.value) do casecase cj>100 or cj <0 dj=" 非法数据 " case cj>=90 dj=" 优 " case cj>=80 dj=" 良 " case cj>=70 dj=" 中 " case cj>=60 dj="及格 " otherwisedj=&qu