文档库

最新最全的文档下载
当前位置:文档库 > VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

第二章Visual FoxPro 语言基础

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

第3章结构化与面向对象程序设计

VFP练习册(第三版)参考答案

二、填空题

1.MOD(N,7)=0,n=n+1

2.mi<>0,str(ma,2)

3.!=,n=n+1

4.substr(编号,2,1)=”1”,skip

5.i=2,i=i+1,A

6.num=0,for 存款金额>250000,endscan

7.Month(生日)=7 or Month(生日)=9,endscan

8.mn(6),scatter to mn ,skip

9.thisform.text1.value,y=””,right(x,2)

10.i=1 to j ,alltr(str(j*i))+space(2)

11.pdtime(time()),T,otherwise

三、读程序写结果

1、242

2、张海东 总分 352 GOOD 李妍 总分 334 GOOD 3

4 5、

VFP练习册(第三版)参考答案

tHIS IS A cpu

6、13

21 7、 15 5 8、赵维 季石雨 9、 10、 N=24

12、

200

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

18、计算机等级二级VISUAL FOX PRO 19、良好 20、不是 秋 21、黄英 女 532.00

22、王丽娜 李霞 23、6 24、西部开发在重庆 25、113952574998111121 36

26、m=10 n=2 27、dk1913 881088.56 28、

四、编程题,略

第4章 数据库与表的基本操作 答案

一、选择题

1、A

2、 B

3、 C

4、B

5、B

6、B

7、A

8、A

9、B 10、B 11、C 12、C 13、C 14、D 15、B 16、D 17、D 18、D 19、A 20、B

21、B 22、D 23、C 24、B 25、C 26、A 27、B 28、C 29、B 30、C 31、D 588

1024

VFP练习册(第三版)参考答案

第5章数据表的维护答案

一选择题

BCBBB DCABC CACBD BCDBB DCDCB DCBBC DACBD DDCBB ABCDD BBDCBB

第六章查询和统计

1、选择题

(1)-(10) ACADD DBACD

(11)-(20) DACBC ADBDD

(21)-(30) DCAAC DABAA

(31)-(40) AADBD BCABA

(41)-(47) ACCDA AC

2、填空题

(1)最高

(2)HA VING

(3)A VG(成绩)

(4)INTO CURSOR

(5)TO

(6)LIKE

(7)AGE IS NULL

(8)IS NULL

(9)GROUP BY

(10)DISTINCT

(11)DESC

(12)NULL

(13)UNION

(14)查询或数据查询

(15)SUM(工资)

(16)E.学号=S.班长

(17)>= 或>=ANY

(18)连接

(19)TO FILE

(20)COUNT(*)>1

(21)成绩DESC

(22)IN

(23)IN

(24)升序排列和降序排列

(25)GROUP BY

(26)GROUP BY

(27)全部

(28)UPDATE

(29)INSERT INTO

(30)WHERE

(31)FROM

(32)INSERT INTO

(33)SET AGE=AGE+1

(34)DELETE FROM

(35)年龄N(3)

(36)DROP COLUMN

(37)RENAME

(38)ALTER

3、程序填空题

(1)[1]NOT 性别 [2]T=T+1

(2)[5]年龄>=40 [6]NOT EOF() 或FOUND() [7]CONTINUE

(3)[11]NUM=0 [12] FOR 存款金额>250000 [13] ENDSCAN

(4)[14] MONTH(生日)=7 OR MONTH(生日)=9 [15]ENDSCAN

4、读程序写结果

(1)0058 计算机基础高等教育

(2)女89

(3)学号姓名平均成绩

765526 李小林84

5、程序设计

(1)text1的valid事件代码:

x=alltrim(thisform.text1.value)

locate for 学号=x

if found()

thisform.text2.value=姓名

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel4.caption=str(高等数学)

else

messagebox("没有该学生")

endif

(2)kc=http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbo1.value

select max(kc) from xscj into array a

select min(kc) from xscj into array b

select avg(kc) from xscj into array c

thisform.text1.value=a(1)

thisform.text2.value=b(1)

thisform.text3.value=c(1)

(3)【查询】按钮的click事件代码:

set talk off

xh=alltrim(http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbox1.value)

select 姓名from xscj where 学号=xh into array bs

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel3.caption=bs(1)

select xscj.学号,高等数学+计算机+英语as 总分,家庭通讯地址from xscj,txl where xscj.学号=txl.学号and xscj.学号=xh into cursor lsb

thisform.grid1.recordsource="lsb"

(4)【查询】按钮的click事件代码:

update xscj set 平均分=(高等数学+计算机+英语)/3

x=val(thisform.text1.value)

y=val(thisform.text2.value)

select xscj.学号,姓名,平均分,家长姓名from xscj,txl where xscj.学号=txl.学号and 平均分>=x and 平均分<=y into cursor lsb

thisform.grid1.recordsource="lsb"

第七章报表设计

1、选择题

DCDB

2、填空题

一对多、MODIFY

等级考试样题参考答案

一、单选题

1~5 A C D C A 6~10 D B B C A

11~15 D D B A B 10~20 B A B B D

21~25 C D B B D 26~30 C C A C B

31~35 D A A B C 36~40 C A A A D

二、判断题

1~5 ×××√× 6~10 √××√×

三、填空题

①int(x/100)%10 ② x%10

③学号=xh ④ http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel3.caption=姓名

⑤ i=2 ⑥ i=i+1 ⑦alltrim(str(n))

⑧ zf(数学,语文) ⑨ skip ⑩ sx+yw

四、读程序

1、Text1: 李四 text2: 王五

2、label2: p(2)=4 p(3)=16 label3: b=22

3、s(0)= 0.00

S(10)= 50.00

S(20)= 250.00

4、第一次:节日已过去7天

第二次:距离节日还有-1天

五、程序设计

thisform.list1.clear

use xs

xh=alltrim(thisform.text1.value)

locate for 学号=xh

if found()

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel3.caption=姓名

sele 课程名,成绩from xs,xk where xs.学号=xk.学号and xs.学号=xh into dbf xx

use xx

scan

thisform.list1.additem(课程名)

thisform.list1.additem(str(成绩,5,1))

endscan

else

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel3.caption="查无此人!"

endif

close all

201201 二级VFP 笔试试题参考答案(A)

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

2012年第一次重庆计算机二级上机第一套答案

一,数据库及表操作(40)

二基于表的表单(30分)

(1)添加数据环境,combo1与stu的姓名字段绑定(5分)

Combo1的interactivechange事件代码:

a=this.value

select stu.学号,课程名,成绩 from stu,score where stu.学号=score.学号

and 姓名=a into cursor mm

thisform.grid1.recordsource="mm"

(2)添加数据环境,combo1与stu的电话字段绑定(5分)

Combo1的interactivechange事件代码:

a=left(this.value,3)

select 学号,姓名,寝室,电话 from stu where left(电话,3)=a into cursor mm thisform.grid1.recordsource="mm"

thisform.text1.value=a

(3)添加数据环境,list1 的Columncount属性改为2

与stu的学号和姓名字段绑定(5分)

List1的interactivechange事件代码:

a=this.value

select sum(成绩),count(*) from score where 学号=a into array t thisform.text1.value=allt(str(t(1)))

thisform.text2.value=allt(str(t(2)))

三、表单设计(30)

界面设计(5分)

Command1的click事件代码:

a=thisform.text1.value

if a=-1

thisform.release

endif

if mod(a,8)=0

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel2.caption=allt(str(a))+”是8的倍数!”

else

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel2.caption=allt(str(a))+”不是8的倍数!”

endif

2012年第一次重庆计算机二级上机第二套答案

二,数据库及表操作(40分)

二基于表的表单(30分)

(1)添加数据环境,combo1手工输入销售季度(5分)

Combo1的interactivechange事件代码:

a=this.value

select sale

locate for 销售季度=a

thisform.edit1.value=thisform.edit1.value+客户代表+chr(13)

do while not eof()

continue

thisform.edit1.value=thisform.edit1.value+客户代表+chr(13)

enddo

(2)添加数据环境,combo1与商品编号绑定(5分)

Combo1的interactivechange事件代码:

a=this.value

select 热销商品名称,规格,单价 from products where 商品编号=a;

into array t

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel1.caption=t(1)

thisform.text1.value=t(2)

thisform.text2.value=allt(str(t(3)))

(3)添加数据环境,(3分)

Command1的click事件代码:

select 热销商品名称,sum(销售数量*单价) from products,sale where products.商品编号=sale.商品编号 group by 商品编号 into cursor mm thisform.grid1.recordsource="mm"

三、表单设计(30)

界面设计(5分)

Text3的 gotfocus事件代码:

a=thisform.text1.value

b= thisform.text2.value

do case

case thisform.optiongroup1.value=1

c=a+b

case thisform.optiongroup1.value=2

c=a/b

case thisform.optiongroup1.value=3

c=a**b

case thisform.optiongroup1.value=4

c=a%b

endcase

thisform.text3.value=round(c,1)

201202 二级VFP 笔试试题参考答案(B)

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

VFP练习册(第三版)参考答案

n=this.value

k=0

do while n<>1

if n%2=0

thisform.edit1.value= thisform.edit1.value+str(n)+”/2=”+str(n/2)+chr(13) n=n/2

else

thisform.edit1.value=

thisform.edit1.value+str(n)+”*3+1=”+str(n*3+1)+chr(13)

n=n*3+1

endif

k=k+1

enddo

thisform.text2.value=k

201202 Visual Foxpro 上机考试题(参考答案)

第一套

一、(40分)

二、(注意:只有界面正确不给分)

(1)(10分)参考答案:

update jsgz set 实发工资=round(基本工资+各种补贴-住房公积金-其他扣款合计,1)

thisform.grid1.recordsourcetype=0

thisform.grid1.recordsource="jsgz"

(2)(10分)参考答案:

gh=thisform.list1.value

locate for 教师工号=gh

thisform.text1.value=姓名

thisform.text2.valu e=职称

thi http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel4.caption="出生年月:"+str(year(出生日期),4)+"年"+str(month(出生日期),2)+"月"

if 婚否

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel5.caption="婚姻状况:已婚"

else

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel5.caption="婚姻状况:未婚"

endif

(3)(10分)参考答案:

thisform.grid1.recordsourcetype=4

thisform.grid1.recordsource="select 姓名as 教师姓名,职称,基本工资,实发工资from jsb,jsgz where jsb.教师工号=jsgz.教师工号 into cursor xx"

三、(30分)参考答案:

1.界面及环境设计(5分)

Form1的Load事件代码:

public s,n

s=0

n=0

2. Text1的Lostfocus事件代码:(20分)

x=val(thisform.text1.value)

if x<>0

s=s+x

n=n+1

thisform.text1.value=""

else

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel3.caption=alltr(str(n))

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel5.caption=alltr(str(s/n,10,2))

endif

3.Form1的dblclick事件代码(5分)

Thisform.release

第二套

一、(40分)

二、(注意:只有界面正确不给分)

(1)(10分)参考答案:

select 1

use 服装清单表

index on 服装代码tag dm

select 2

use 客户消费表

set relation to 服装代码into a

replace all 实价with a.现价*数量

thisform.grid1.recordsourcetype=4

thisform.grid1.recordsource="select 客户代码,品名as 服装品名,现价,数量,实价from 服装清单表a,客户消费表b where a.服装代码=b.服装代码into cursor xx" (2)(10分)参考答案:

locate for 服装代码=alltrim(http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbo1.value)

thisform.grid1.recordsourcetype=4

thisform.grid1.recordsource="select 支付方式,count(*) as 销售笔数,sum(实价) as 总实价from 客户消费表where 服装代码=alltrim(http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbo1.value) group by 支付方式 into cursor xx" thisform.refresh

(3)(10分)参考答案:

delete from 客户消费表 where 客户代码=alltrim(http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbo1.value) and 购买时间

三、(30分)参考答案:

1.界面设计(5分)

2.“计算”按钮的click事件代码 (20分)

x=thisform.text1.value

x1=int(x/100)

x2=int(mod(x,100)/10)

x3=mod(x,10)

if thisform.optiongroup1.value=1

y=x1^2+x2^2+x3^2

else

y=x1^3+x2^3+x3^3

endif

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel3.caption=alltrim(str(y))

3.Form1的dblclick事件代码 (5分)

Thisform.release

2013年四月笔试(A)参考答案

VFP练习册(第三版)参考答案

第一套

一、建立数据库、数据表和表间的永久关系(共40分)

1、建立数据库(5分)

2、2个数据表的索引和表间的永久关系(15分)。

2、2个数据表的建立正确、数据正确(20分)。

二、基于表的表单设计(共30分)

(1)界面正确及手工绑定正确(5分)

(2)组合框combo1的InteractiveChange事件代码:

* 编辑框输出(10分)

* 文本框输出(10分)

zy=alltrim(this.value)

select cj.学号,姓名,成绩 from xs,cj ;

where xs.学号=cj.学号 and 专业=zy into dbf zycj thisform.edit1.value=""

thisform.edit1.value=thisform.edit1.value+;

"学号 "+space(2)+"姓名 "+space(2)+"成绩"+chr(13) select zycj

scan

thisform.edit1.value=thisform.edit1.value+学号+space(2)+姓名+space(2)+str(成绩,3)+chr(13)

endscan

select avg(成绩) from zycj into array x

select count(*) from zycj where 成绩<60 into array y

thisform.text1.value=x(1)

thisform.text2.value=y(1)

(4)“退出”命令按钮的click事件代码:(5分)

thisform.release

三、表单设计(共30分)

(1)界面正确及已给代码录入正确(6分)

(2)命令按钮组的click事件代码(8分/空):

①this.value=1

②asc(x1)>=asc("0") and asc(x1)<=asc("9")

③for i=len(x) to 1 step -1

第二套

一、建立数据库、数据表和表间的永久关系(共40分)

1、建立数据库(5分)

2、2个数据表的索引和表间的永久关系(15分)。

2、2个数据表的建立正确、数据正确(20分)。

二、基于表的表单设计(共30分)

1.“计算并显示”按钮的click事件代码:(10分)

select 1

use skc

index on 商品编号 tag bh

select 2

use sxs

set relation to 商品编号 into skc

update sxs set 销售金额=销售数量*skc.单价

thisform.grid1.recordsource="SXS"

2.(1)界面正确及数据绑定正确(5分)

(2) Combo1的InteractiveChange 事件代码:(10分)

sm=alltrim(http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbo1.value)

select 订单号,销售数量,销售金额 from SKC,SXS where SKC.商品编号=SXS.商品编号 ;

AND 商品名称=sm into CURSOR TEMP

thisform.edit1.value="订单号销售数量销售金额 "+chr(13)

scan

thisform.edit1.value= thisform.edit1.value+订单号+" "+;

str(销售数量,3)+" "+str(销售金额,6,2)+chr(13) endscan

(2)form1的DbClick事件代码:(5分)

thisform.release

三、表单设计(共30分)

(1)界面正确及已给代码录入正确(6分)

(2)命令按钮组的click事件代码(8分/空):

① x=100 to 999

② x2=int(mod(x,100)/10)

③ thisform.list1.additem(str(x,5))

2013年11月笔试(B)参考答案

一、单选20分

BCCCB CCCDB BCDAC ACDAB

二、判断10分

√ √√ √

三、填空20分

1、①B ②C

2、③C ④B

3、⑤C ⑥A

4、⑦D ⑧C

5、⑨B ⑩A

四、读程序写结果30分

1、D

2、D

3、A

4、A

5、B

6、B

五、写程序20分

1、参考程序

S=0

N=0

FOR i=1 to 100

If i%8=0

S=s+i

N=n+1

Endif

Endfor

Thisform.text1.value=s

Thisform.text2.value=s/n

2、参考答案

Bh=alltrim(http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbol1.value)

Select 姓名,研究方向 from dsb where 导师编号=bh into array x http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel3.caption=x(1)

http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel5.caption=x(2)

Select 学号,姓名AS 学生姓名,性别,所在院系 from xsb where 导师编号http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbel3.caption=x(1)

=bh into cursor temp

Thisform.grod1.recordsource=”temp”

2013年11月上机考试题参考答案及评分标准

第一套

一、建立数据库、数据表和表间的永久关系(共40分)

1、建立数据库(5分)

2、2个数据表的建立正确、数据正确(20分)

3、2个数据表的索引和表间的永久关系(15分)

二、基于表的表单设计(共30分)

1.(1)“计算并显示”按钮的click事件代码:(10分)

sele 订购单位,商品名称,销售量,销售量*单价 as 销售金额 from products,sale where alltrim(products.商品编号)=alltrim(sale.商品编号) into cursor xs

thisform.grid1.recordsource="xs"

(2)form1的DbClick事件代码:(5分)

thisform.release

2.(1)两个数据表添加到表单的数据环境及数据绑定正确(5分)

(2)组合框的InteractiveChange 事件参考代码:(10分)

thisform.list1.clear

sm=alltrim(http://www.wendangku.net/doc/996bc8766edb6f1aff001fbb.htmlbo1.value)

thisform.list1.additem("订购单位销售量")

sele 商品编号 from products where 商品名称=sm into array sh

sele sale

scan for alltrim(商品编号)=sh(1)

thisform.list1.additem(订购单位+" "+str(销售量))

endscan

三、表单设计(共30分)

(1)界面正确、文本框text1的初值设置正确及已给代码录入正确(6分)(2)在文本框text1的lostfocus或valid事件中输入代码(6分)

(3)文本框text1的lostfocus或valid事件代码(6分/空):

①int(n)=n

②1/x

③round(s,1)