《VisualFoxpro》综合复习

N8=N8+1

S8=S8+成绩 ENDCASE ENDSCAN

P2=S2/N2 P5=S5/N5 P8=S8/N8

“000002号课程选课人数”,N2, “000002号课程平均分”,P2 “000005号课程选课人数”,N5, “000005号课程平均分”,P5 “000008号课程选课人数”,N8, “000008号课程平均分”,P8 USE

SET TALK ON RETURN

8?设有一成绩表,它由以下字段组成:姓名(C,8)?平时成绩(N,?期末成绩(N,?总成绩(N,?等级(C,6)?其中前3项已有数据,用SCAN循环编写程序计算并填写每一记录的“总成绩”和“等级”字段,他们的计算方法分别为:

1)总成绩计算方法:总成绩=平时成绩×30%+期末成绩×70% 2)等级计算方法:

总成绩≥90 “等级”为“优秀”; 75≤总成绩<90 “等级”为“良好”; 60≤总成绩<75 “等级”为“合格”; 总成绩<60 “等级”为“不合格”? SET TALK OFF CLEAR USE SCORE SCAN REPLACE 总成绩 WITH 平时成绩*+期末成绩* IF 总成绩>=90 REPLACE 等级 WITH “优秀” ENDIF IF 总成绩>=75 AND 总成绩<90 REPLACE 等级 WITH “良好” ENDIF IF 总成绩>=60 AND 总成绩<75 REPLACE 等级 WITH “合格” ENDIF IF 总成绩<60 REPLACE 等级 WITH “不及格” ENDIF ENDSCAN SET TALK ON RETURN 9?从键盘输入任一小于10的自然数N,求N的阶乘? SET TALK OFF

CLEAR S=1

INPUT “N=” TO N FOR T=1 TO N S=S*T ENDFOR ”S=”,S

SET TALK ON RETURN

10?set talk off

clear

open database student use stud

accept “请输入学生的姓名:” to xm locate for 姓名=xm

“学生”+xm+”的基本情况如下:” “学号”+学号 “性别”+性别 “班级名”+班级名 “地址”+地址 Close database Set talk on return 11?set talk off

clear

open database student use stud

accept “请输入待查学生姓名:” to aaa locate for 姓名=aaa if found() “姓名:”+姓名 “性别:”+性别 “出生日期:”+dtoc(出生日期) Else “查无此人!” Endif

Close database Set talk on return 12?set talk off

clear

open database student use stud do while .()

if 性别=”男” display endif skip enddo

close database set talk on return