VF课本第6章节答案

.3.5 程序设计题

1.“计算”按钮的Click事件代码如下：

thisform.text3.value=thisform.text1.value*thisform.text2.value

2.“平均数”按钮的Click事件代码如下：

thisform.text3.value=(val(thisform.text1.value)+val(thisform.text2.value))/2

表单的DblClick事件代码如下：

thisform.release

3.命令按钮“交换”的“click”事件代码如下：

Store thisform.text1.value to t

thisform.text1.value=thisform.text2.value

thisform.text2.value=t

4.c=val(thisform.text1.value)

f=9/5*c+32

http://wendang.chazidian.combel3.caption=str(f,10,2)

6.3.3用SQL语句完成下列操作

1、（1）SELECT 职工号，工资 FROM 仓库表,职工表；

WHERE 仓库表.仓库号=职工表.仓库号 AND 仓库表.所在城市="广州"

（2）SELECT 仓库号，COUNT(*)，AVG(工资)FROM 职工表 GROUP BY 仓库号 HAVING COUNT(*)>=2

（3）CREATE VIEW ZG_view AS SELECT 职工号，姓名 FROM 职工表

2、SELECT COUNT (DISTINCT 借书证号) FROM 借阅 WHERE ；

IN (SELECT 借书证号 FROM 读者 WHERE 单位="CIE")

3、SELECT S.学号，姓名，AVG(成绩) 平均成绩 FROM S,SC WHERE S.学号=SC.学号; GROUP BY S.学号 HAVING COUNT（*）>=5 ORDER BY 3 DESC

4、（1）INSERT INTO STUDENT (学号，姓名，成绩，专业);

VALUES（"2000538","王力",587,"法律"）

（2）UPDATE STUDENT SET 成绩=成绩+20 WHERE 专业="法律"

（3）ALTER TABLE STUDENT ADD 性别 C(2)

（4）ALTER TABLE STUDENT ALTER 姓名 C(10)

（5）SELECT 姓名,专业,MAX(成绩) FROM STUDENT GROUP BY 专业

（6）SELECT 姓名，成绩 FROM STUDENT WHERE 成绩>=600 ORDER BY 成绩 DESC

（7）SELECT 专业,AVG(成绩) FROM STUDENT GROUP BY 专业

（8）ALTER TABLE STUDENT DROP 性别

5、（1）SELECT * FROM STOCK WHERE 交易所="深圳"

（2）SELECT * FROM STOCK WHERE 单价>10

（3）SELECT * FROM STOCK WHERE股票名称 LIKE "%电子%"

（4）SELECT * FROM STOCK ORDER BY 单价

（5）SELECT * FROM STOCK WHERE单价 BETWEEN 10 AND 15

6、（1）SELECT SUM(现钞买入价*持有数量) AS 人民币价值 FROM 持有者,兑换; WHERE 兑换.外币代码=持有者.外币代码 AND 姓名="刘剑"

（2）UPDATE 兑换SET 基准价=基准价*1.05 WHERE 外币名称="美元" OR外币名称="

英镑"

（3）DELETE FROM 持有者 WHERE 外币代码 IN;

(SELECT 外币代码 FROM 兑换 WHERE 外币名称="欧元")

（4）SELECT 姓名,COUNT(*) AS 外币种类 FROM 持有者;

GROUP BY 姓名 HAVING COUNT(*)>=3 ORDER BY 外币种类 ,姓名 DESC

7、（1） ALTER TABLE 运动员 ADD 得分 N(2,0)

（2） UPDATE 运动员 SET 得分=2*投中2分球+3*投中3分球+罚球

（3） SELECT MAX(得分) 得分 FROM 运动员 WHERE 投中3分球<=5

8、（1） SELECT书名，出版社FROM图书WHERE第一作者二"张三"

(2) SELECT图书编号, 借书日期FROM借阅WHERE还书日期IS NULL

（3） SELECT* FROM读者INTO CURSOR one

（4） SELECT借书证号, 姓名FROM读者WHERE单位LIKE "%北京%"

（5） SELECT图书编号, 借书日期FROM借阅WHERE year(借书日期)=2009

（6） SELECT图书编号FROM借阅WHERE借书证号IN ；

(SELECT借书证号FROM读者WHERE职称="工程师")

9、SELECT * FROM order WHERE YEAR(签订日期)=2007 ORDER BY 金额 DESC

10、DELETE FROM order WHERE 签订日期<{^2002-1-1}

11、（1）ALTER TABLE 歌手 ADD 最后得分 F(6,2)

（2）INSERT INTO 评分(歌手号，分数，评委号) VALUES(“1001”,9.9,”105”)

（3）SELECT 歌手号,(SUM(分数)-MAX(分数)-MIN(分数))/（COUNT(*)-2) 最后得分; FROM 评分 INTO DBF TEMP GROUP BY 歌手号 ORDER BY 最后得分 DESC

（4） CREATE VIEW myview AS SELECT * FROM 歌手 WHERE LEFT(歌手号,1)=”1”

7.3.4读程序，写结果

1.13 21

2.34

3.200

4.1 1 3 9 5 25 7 49

16

5.75

6.M=10 N=2

7.6

8. 7

9.tHIS IS A cpu

10. *

**

***

****

*****

11.第1次显示：28.90元

第2次显示：统计无效！

12.370

13.赵维 季石雨

14.010 女 89

15.0

16. 71 65

17. P(1)=2 P(2)=4 P(3)=8

b=15

18. 建国 F 1 60年大庆

19. 数据库系统

20. 3 5 8 13

21. 100 200 40 20 200 40 20 3 4

22.64 29 87 69 20 29 42 55

23.123654

24.环境 艺术

25．单击Command1时，显示学号为“1002”的记录；单击Command2时，显示所有3条记录。

7.3.5程序设计

1.p=1

For i=1 to thisform.text1.value

p=p*i

endfor

thisform.text2.value=p

“关闭”按钮的Click事件代码如下：

thisform.release

2.x=thisform.text1.text

n=len(x)

s=""

for i=1 to n

k=substr(x,i,1)

if k>="a" and k<="z" or k>="A" and k<="Z"

s=s+k

endif

endfor

http://wendang.chazidian.combel2.caption=s

3.x=val(thisform.text1.value)

s=0

for i=1 to 100

if i%x=0

s=s+i

endif

endfor

http://wendang.chazidian.combel2.caption=alltrim(str(s,10))

4.user=alltrim(thisform.text1.value)

password=alltrim(thisform.text2.value)

use pass

locate for 用户名==user

if found()

if 口令==password

messagebox("欢迎")

else

messagebox("口令错误")

endif

else

messagebox("用户名错误")

endif

5.n=thisform.text1.value &&因为Value属性的初始值为0，则其类型为数值型 s=0

for i=1 to n step 2

s=s+i^2

endfor

thisform.text2.value=s

6.x=val(thisform.text1.text)

y=val(thisform.text2.text)

do case

case thisform.optiongroup1.value=1

z=x+y

case thisform.optiongroup1.value=2

z=x-y

case thisform.optiongroup1.value=3

z=x*y

case thisform.optiongroup1.value=4

z=x/y

endcase

thisform.text3.value=alltrim(str(z,10,2))

7.a=val(thisform.text1.value)

b=val(thisform.text2.value)

c=val(thisform.text3.value)

delta=b^2-4*a*c

if delta>=0

x1=(-b+sqrt(delta))/(2*a)

x2=(-b-sqrt(delta))/(2*a)

thisform.text4.value=alltrim(str(x1,10,2))

thisform.text5.value=alltrim(str(x2,10,2))

else

messagebox("无解")

endif

8.x=thisform.text1.value

if x=0

thisform.release

endif

if x%2<>0 (或 mod(x,2)#0

http://wendang.chazidian.combel2.caption=" 该数是奇数！"

else

http://wendang.chazidian.combel2.caption=" 该数不是奇数！"

endif

9.

locate for 书号=http://wendang.chazidian.combo1.value

http://wendang.chazidian.combel2.caption="书名："+书名

http://wendang.chazidian.combel3.caption="库存量："+str(库存量,4)

10.x=allt(thisform.text1.value)

sele 档案号,姓名,工资 from js,kc where js.课程号=kc.课程号 and 课程名=x into cursor xx thisform.grid1.recordsource="xx"

11.SELECT 姓名 AS 学生姓名,家长姓名,邮编,家庭通信地址 FROM XSCJ,TXL;

WHERE XSCJ.学号=TXL.学号 AND MIN(JAVA程序设计,汇编语言,专业英语)<60 ; into cursor temp

thisform.grid1.recordsource="temp"

12.parameters x

t=1

for i=1 to x

t=t*i

endfor