vfp教程安徽大学出版社课后答案_第1页
vfp教程安徽大学出版社课后答案_第2页
vfp教程安徽大学出版社课后答案_第3页
已阅读5页,还剩4页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论