数据库课后题答案

1、 填空 在学生表中查找并输出指定学生的所有信息 INDEX ON 学号 TO IXH !FOUND() DISPLAY 2. 判断给定的正整数表达式的值是否为素数，并能反复判断 FOR I=2 TO X-1 I=X IF UPPER(YN)= ”丫”或者 IF LOWER(YN)= ” 3. 输入边长，如果能构成三角形，则计算三角形面积 DO WHILE LOOP M=SQRT(U*(U-X)*(U-Y)*(U-Z) 4. 在屏幕上显示输出一个九九乘法表 X=1 ?STR(X,1)+ ” ”+STR(Y,1)+ ”+STR(X*Y ,2)+ ” ? 5. 根据输入的数据，计算不大于该数的所有奇

2、数累加和 UPPER(YN)= ”丫 ” INT(X/2)X/2 WAIT 或者 ACCEPT 或者 INPUT 6. 根据输入的数据，判断该数是否为偶数，可以反复判断. DO WHILE UPPER(YN)= ”丫 ” N%2!=0 或者 N/2!=INT(N/2)或者 MOD(N，2)!=O WAIT 7. 显示指定表中的全部字段名，并由用户输入显示表信息的条件，最后列表显示满足条件的 记录. USE(TBN)或者 USE (TIME(),2)+ ”秒” Thisform.Refresh 17：显示时钟和日期的表单，命令按钮及文本框的字体、颜色和大小设置为自己喜欢的形式。 (1) Form

3、的 in it 事件 thisform.text1.value=00:00:00 thisform.timer1.E nabled=.F. (2) comma nd 的 click 事件 thisform.timer1.E nabled=.T. thisform.text1.Value=TIME() thisform.Refresh (3) comma nd的 click 事件 thisform.timer1.E nabled=.F. y=ALLTRIM(STR(YEAR(DATE() m=ALLTRIM(STR(m on th(DATE() d=ALLTRIM(STR(day(DATE()

4、thisform.text1.Value=y+年+m+月+d+日+CHR(13)+cdow(DATE() thisform.Refresh (4) comma nd的 click 事件 thisform.Release (5) timer 事件 thisform.text1.Value=TIME() thisform.Refresh 18.建立一个表单，通过每次单击“开始”按钮，都能实现表单的标签信息从顶行向下平移, 移到底边即停止。标签高度为30像素，字体颜色为蓝色。 (1 )命令按钮 Forml的In it事件 Thisform.Timerl.E nabled=.F. 命令按钮 Comma

5、nd1的Click事件 Thisform.Timerl.E nabled=.T. Thisform.Label1.Top=0 (3) 命令按钮 Command2的Click事件 Thisform.Release (4) .计时器Timer的Timer事件 IF Thisform.Label1.TopN Thisform.text2.value=是素数！ ” Else Thisform.text2.value=不是素数！ ” Endif Thisform.text1.setfocus Thisform.refresh (3) command 的 click 事件 Thisform.release

6、 22、有一个狐狸头 (1)form1 的 in it 事件 Thisform.f=0 Thisform.caption= ”动画” (2) timerl 的 timer 事件 If thisform.f=0 Thisform.image1.left=thisform.image1.left+1 If thisform.image1.left=thisform.width-thisform.image1.width Thisform.f=1 Endif Endif If thisform.f=1 Thisform.image1.left=thisform.image1.left-1 If th

7、isform.image1.left=0 Thisform.f=0 Endif Endif 23. 学生学籍信息浏览，2秒自动刷新，到第三页后自动回到第一页 时钟 INTERVAL 2000 TIMER事件 DO case CASE thisform.pageframe1.ActivePage=1 thisform.pageframe1.ActivePage=2 CASE thisform.pageframe1.ActivePage=2 thisform.pageframe1.ActivePage=3 CASE thisform.pageframe1.ActivePage=3 thisform

8、.pageframe1.ActivePage=1 ENDCASE thisform.Refresh 24根据学生表，课程表和成绩表，用SOL-SELECT语句实现以下查询。学号前三位为 “ 081 COMMAND1 的 CLICK SETECT学生学号，姓名，出生年月 課程名，成绩FROM学生，成绩课程； WHERE学生.学号=成绩.学号AND课程.课程号=成绩.课程号AND YEAR（;出生年 月）=1990 COMMAND2 的 CLICK SETECT学生学号，姓名课程名，成绩FROM学生，成绩课程； WHERE学生学号=成绩.学号AND课程.课程号=成绩课程号AND成绩=60 COMM

9、AND3 的 CLICK SETECT学生学号，姓名课程名，成绩FROM学生，成绩课程； WHERE学生.学号=成绩.学号AND课程课程号=成绩课程号AND LEFT（;学生.学 号,3）=081 COMMAND4 的 CLICK THISFORM.RELEASE 25学生表信息查询界面，只读方式 FORM1 INIT 事件 THISFORM.LABEL1.CAPTION= 请选择学生姓名” THISFORM.LABEL2.CAPTION= 学号” THISFORM.LABEL3.CAPTION= 姓名” THISFORM.LABEL4.CAPTION= 性别 THISFORM.LABEL5.

10、CAPTION= 出生年月” THISFORM.LABEL6.CAPTION= 奖学金 THISFORM.CHECK1.CAPTION= 选中为男,否则为女 THISFORM.CAPTION=学生表信息查询” THISFORM.SETALL(READONL Y,.T.,TEXTBOX) THISFORM.CHECK1.READONLY=.T. LIST1 INTERACTIVECHANGE 事件 THISFORM.SETALL(VISIBLE,.T.) THISFORM.REFRESH 1.设计一个统计车票总金额的表单，要求是：在给出的各种车票中选择你需要的, 3个复选框 textl read

11、only 为 T 计算总额”按钮 default为T Command1 的 CLICK s=0 IF thisform.check1.value=1 s=s+580 ENDIF IF thisform.check2.value=1 s=s+50 ENDIF IF thisform.check3.value=1 s=s+280 ENDIF thisform.text1.value=s thisform.Refresh Command2 的 CLICK thisform.Release 2.设计一个“职工销售额分档查询”表单 FORM的 INIT 事件 SET SAFETY OFF SET DEL

12、ETED ON SELECT姓名，商品名称，数量*单价as金额FROM职工，销售，商品WHERE销售.职工号=职 工.职工号； AND销售.商品号=商品.商品号INTO TABLE商品销售 ORDER BY销售.职工号 WITH thisform. grid1 .recordsourcetype=1 .recordsource=商品销售 .reado nly=.T. .visible=.F. .allowadd new=.F. .deletemark=.F. ENDWITH FORM的 DESTRC事件 CLOSE ALL OPTIONGROUP1INTERACTIVECHA事件 DELETE

13、 ALL DO case CASE this.Value=1 RECALL ALL FOR 金额 =6000 CASE this.Value=2 RECALL ALL FOR 金额 =4000 AND 金额 =2000 AND 金额 =1000 AND 金额 2000 CASE this.Value=5 RECALL ALL FOR 金额 1000 ENDCASE GO TOP THISFORM.GRID1.Visible=.T. THISFORM.Refresh Whe n you are old and grey and full of sleep, And no ddi ng by th

14、e fire, take dow n this book, And slowly read, and dream of the soft look Your eyes had once, and of their shadows deep; How many loved your mome nts of glad grace, And loved your beauty with love false or true, But one man loved the pilgrim soul in you, And loved the sorrows of your cha nging face;

15、 And bending dow n beside the glow ing bars, Murmur, a little sadly, how love fled And paced upon the mountains overhead And hid his face amid a crowd of stars. The furthest dista nee in the world Is not betwee n life and death But whe n I sta nd in front of you Yet you dont know that I love you. The furthest dista nee in the world Is not whe n I sta nd in front of you Yet you cant see my love But whe n un doubtedly knowing the love from both Yet cannot be together. The furthest dista nee in the world Is not being apart while being in love But whe n I pla