编写程序：（我认为是要用do case 来完成，但我编写的程序不知哪里出错，结果运行不正确，请帮我检查一下好吗？谢谢各位！） 计算每一个学生的总学分并存入对应的学分字段。学分的计算方法是：物理60分以上(包括60分)2学分，否则0分；语文60分以上(包括60分)3学分，否则0分；英语60分以上(包括60分)4学分，否则0分。 我的程序如下： set talk off clea use schook do while .t. do case case 物理>=60 .and.语文>=60.and.英语>=60 repl 学分 with 9 case 物理< 60 .and.语文>=60.and.英语>=60 repl 学分 with 7 case 物理< 60 .and.语文< 60.and.英语>=60 repl 学分 with 4 case 物理< 60 .and.语文< 60.and.英语<60 repl 学分 with 0 endcase enddo return

条件不够呢!组合的不全!例如:物理及格，其它不及格的2学分没统计进去呢!

set talk off
clea
use schook
do while not eof()
case 物理>=60 .and.语文>=60.and.英语>=60
repl 学分 with 9
case 物理< 60 .and.语文>=60.and.英语>=60
repl 学分 with 7
case 物理< 60 .and.语文< 60.and.英语>=60
repl 学分 with 4
case 物理>= 60 .and.语文< 60.and.英语<60
repl 学分 with 2
case 物理< 60 .and.语文>= 60.and.英语<60
repl 学分 with 3
case 物理< 60 .and.语文< 60.and.英语<60
repl 学分 with 0
endcase
skip
enddo
return

[此贴子已经被作者于2006-6-10 12:04:48编辑过]

set talk off
clea
use schook
REPLACE ALL 学分 WITH IIF(物理>=60,2,0)+IIF(语文>=60,3,0)+IIF(英语>=60,4,0)
return

非常感谢！

如果指定使用DO CASE 语句的话，则有如下的程序
SET TALK OFF
CLEAR
SELECT schook
GO TOP
DO WHILE !EOF()
DO CASE
CASE 物理>=60 .AND. 语文>=60 .AND. 英语>=60 &&三门都及格
REPLACE 学分 WITH 9
CASE 物理< 60 .AND. 语文>=60 .AND. 英语>=60 &&二门及格(物理不及格)
REPLACE 学分 WITH 7
CASE 物理>=60 .AND. 语文< 60 .AND. 英语>=60 &&二门及格(语文不及格)
REPLACE 学分 WITH 6
CASE 物理>=60 .AND. 语文>=60 .AND. 英语< 60 &&二门及格(英语不及格)
REPLACE 学分 WITH 5
CASE 物理< 60 .AND. 语文< 60 .AND. 英语>=60 &&一门及格(英语及格)
REPLACE 学分 WITH 4
CASE 物理< 60 .AND. 语文>=60 .AND. 英语< 60 &&一门及格(语文及格)
REPLACE 学分 WITH 3
CASE 物理>=60 .AND. 语文< 60 .AND. 英语< 60 &&一门及格(物理及格)
REPLACE 学分 WITH 2
CASE 物理< 60 .AND. 语文< 60 .AND. 英语< 60 &&没有及格的课程
REPLACE 学分 WITH 0
ENDCASE
SKIP
ENDDO
RETURN