VFP参考答案Word文件下载.docx
《VFP参考答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《VFP参考答案Word文件下载.docx（14页珍藏版）》请在冰豆网上搜索。
7．5
8．.F.
9．字符型（C）
10．单日
习题3
2．C
4．B
5．D
7．B
8．C
9．A
10．A
11．A
12．B
13．C
14．D
15．B
17．C
18．B
19．B
20．B
21．A
22．C
23．A
24．B
25．C
26．D
27．B
28．C
29．C
30．B
31．D
1．自由表，数据库表
2．结构，记录
3．6
4．备注型，通用型
5．Replaceall总分with数学+英语+语文,平均分with（数学+英语+语文）/3
6．单索引文件，复合索引文件
7．各字段长度之和+1
8．COUNT，TOTAL
9．Replaceall评价with“优秀”for数学>
=85and语文>
=85
10．FOUND（）
习题四
一、单选题
1．C，B
3．C
4．C
6．B
8．B，A
1．主索引、候选索引、普通索引、惟一索引
2．字段有效性规则、记录有效性规则
3．同一条字段记录相关字段
4．索引字段、一条连线
5．唯一、一、多
习题5
2．A
7．C
10．D
1.*，distinct
2.groupby，、orderby
3.alter，add
4.降序，升序
5.like，%，-
6.浏览窗口
7.avg（），sum（）
8.between…and…，in
三、应用题
使用以下命令将实发工资填充：
Replaceall实发工资with基本工资+职务工资+津贴-房租-水电
1.用SQL语句实现以下操作：
⑴updatezgset婚否=.t.where姓名="
李刚"
⑵insertintozg（职工号,姓名,性别,年龄,参加工作时间,婚否）;
values（"
10050"
"
张燕燕"
女"
;
year（date（））-year（{^1978/7/1}）,{^2007/9/1},.f.）
⑶deletefromzgwhere姓名="
Pack
⑷updategzset职务工资=500where职务工资<
500
2.用SELECT-SQL语句实现以下查询：
⑴select职工号,实发工资fromgz
⑵select*fromzgwhere职称=“讲师”orderby职工号
⑶select*fromzgwhere职称<
>
"
教授"
and职称<
副教授"
intodbfb1
Useb1
list
⑷select姓名,性别,参工作时间fromzgwhereyear（参工作时间）>
1990;
orderby参工作时间
⑸select姓名,年龄,婚否fromzgwhere性别="
男"
intodbfb2
Useb2
List
⑹select姓名,职称,实发工资fromzg,gz;
wherezg.职工号=gz.职工号and实发工资>
1000
⑺select职称,count（*）as人数fromzggroupby职称
⑻selectmax（年龄）as最大,min（年龄）as最小fromzg
⑼select姓名,性别,职称,婚否,实发工资fromzg,gz;
wherezg.职工号=gz.职工号and性别="
and婚否=.t.intodbfb3
useb3
list
⑽select姓名,职称,基本工资,职务工资,津贴,房租,水电,实发工资;
fromzg,gzwherezg.职工号=gz.职工号and职称="
;
orderbyzg.职工号
⑾select职称,avg（职务工资）as平均值fromzg,gz;
wherezg.职工号=gz.职工号groupby职称havingavg（职务工资）>
550
⑿select*fromgzwhere职工号in（select职工号fromzgwhere性别="
）
⒀select*fromgzwhere职工号in;
（select职工号fromzgwhere职称#"
习题6
1．D
2．D
1.通用型、备注型（该题答案顺序可调）
2.左连接、右连接、内部连接、完全连接（该题答案顺序可调）
3.浏览、临时表、表、图形、屏幕、报表、标签（该题答案顺序可调）
4.连接
5.createsqlview
6.一个表、多个表、其他视图（该题答案顺序可调）
7.更新条件
习题七
1．A
8．AC
9．D
二、运行结果
1．.F.
2．10
3．14
4．A=0
5．4，3，8，5
三、填空题
1．EXIT
2．XM，DELETE，”Y”
3．WITHSHFGZ，SKIP
4．SKIP
5．GON，PJZ=ZF/N
6．COPYTOA3，X=Y，SKIP
7．&
AB，GETTJ,&
TJ，NOTFOUND（），DISP，LOOP
四.编程题：
1．settalkoff
s=0
forn=3to100
i=2
m=int（sqrt（n））
dowhilei<
=m
ifmod（n,i）=0
exit
endif
i=i+1
enddo
ifi>
m
s=s+n
endfor
?
s="
s
return
2．settalkoff
usejsda
scan
docase
case职称="
repl基本工资with基本工资+200
case职称="
repl基本工资with基本工资+150
讲师"
repl基本工资with基本工资+120
助教"
repl基本工资with基本工资+100
endcase
endscan
use
3．main.prg
settalkoff
input"
请输入一个正整数n：
ton
fort=1tonstep2
s=s+1/jc（t）
endfor
?
jc.prg
parametersm
j=1
fori=1tom
j=j*i
jc=j
returnjc
4．settalkoff
clear
i=0
accept"
请输入密码：
tom
=2
ifm="
12345678"
messagebox（"
身份确认，欢迎使用本软件！
）
else
ifi=2
你是非法用户，你无缘使用本软件！
accept"
loop
enddo
5．main.prg
请输入上底长：
tol1
请输入下底长：
tol2
请输入高：
toh
该梯形的面积为：
+str（area（l1,l2,h）,10,2）
area.prg
parax1,x2,x3
s=（x1+x2）*x3/2
retus
6．settalkoff
usedf1
dowhil.not.eof（）
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平均分withdf
skip
sorton平均分/dtodf2
closall
settalkon
7．opendatastsc
selestud.学号,stud.姓名,avg（成绩）as平均成绩,stud.院系fromstud,score,coursewherestud.学号=score.学号.and.score.课程编号=course.课程编号groupbystud.学号ordeby平均成绩descintodbftest1
closdata
8．selemonth（销售日期）as月份,sum（（售价-进价）*销售数量*0.17）as税款from价格,销售where价格.货号=销售.货号groupby月份orderby月份intodbf税务
习题8答案
2．B
3．B
5．A
10．C
15．C
17．A
18．D
20．A
21．C
22．B
24．D
25．B
26．B
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题操作步骤如下：
⑴打开表单设计器，在表单上建立如下表所示的控件并设置它们的属性。
对象名
属性
属性值
Label1
Caption
（无）
Optiongroup1
buttoncount
2
Value
Option1
显示日期
Option2
显示时间
Timer1
Enabled
.F.
Interval
100
⑵编写控件代码
①Optiongroup1控件的Click事件代码
casethisform.Optiongroup1.value=1
thisform.label1.caption=dtoc（date（））
casethisform.Optiongroup1.value=2
thisform.label1.caption=time（）
thisform.timer1.enabled=.t.
②timer1控件的timer事件代码
第2题操作步骤如下：
Form1
求素数之和
100~200之间的素数之和
Text1
Command1
计算
①Command1控件的Click事件代码
sum=0
fori=100to200
forj=2toi-1
ifmod（i,j）=0
endfor
ifj==i
sum=sum+i
thisform.text1.value=sum
thisform.refresh
第3题操作步骤如下：
姓名
Label2
成绩
确定
Command2
清除
Text2
List1
i=1
cj=val（thisform.text2.value）
casecj>
100orcj<
dj="
非法数据"
=90
优"
=80
良"
=70
中"
=60
及格"
otherwise
不及格"
thisform.list1.additem（"
姓名：
+thisform.text1.value,i,1）
成绩：
+dj,i+1,1）
mand2.enabled=.t.
②Command2控件的Click事件代码
thisform.text1.value="
thisform.text2.value="
thisform.list1.clear
mand2.enabled=.f.
第九章课后习题答案
3．A
5．B
6．C
1．菜单，命令
2．\-
3．RightClick
4．mpr
5．常规选项，ShowWindows，Init
第十章课后习题答案
5．C
1．标题区，页标头区，细节区
2．bmp,ico
3．组标头，组注脚
4．页面设置
5．格式，字体
6．报表的数据源，布局
7．报表设计器
8．分组表达式
习题十一
1．C
2．B
1．代码
2．.EXE
3．主文件
４．系统总体设计、系统详细设计
5．需求分析
6．READENENTS
7．．ＡPP、．EXE
8．大小、位置
升级会员 