UC知道visual foxpro6.0的一个程序运行问题
来源：百度知道 编辑：UC知道 时间：2024/06/01 01:29:00
下面这段程序运行后显示：xh不是一个对象
请问是什么问题？我发现每次用accept到现在没一次能成功，郁闷ing
OPEN DATABASE 成绩管理
SET TALK OFF
use 成绩
ACCEPT "请输入要查找的学号：" TO XH
ACCEPT "请输入要查找的课程号：" TO KCHH
DO WHILE .NOT. EOF()
IF 学号=XH .ADN. 课程号=KCHH
DO CASE
CASE 成绩>=90
? "优秀"
CASE 成绩>=80
? "良好"
CASE 成绩>=70
? "中等"
CASE 成绩>=60
? "及格"
CASE 成绩<60
? "不及格"
ENDCASE
ENDIF
SKIP
ENDDO
? "再见"
USE
RETURN
谢谢第三楼，明显这样更复杂了 唉。。。
请问是什么问题？我发现每次用accept到现在没一次能成功，郁闷ing
OPEN DATABASE 成绩管理
SET TALK OFF
use 成绩
ACCEPT "请输入要查找的学号：" TO XH
ACCEPT "请输入要查找的课程号：" TO KCHH
DO WHILE .NOT. EOF()
IF 学号=XH .ADN. 课程号=KCHH
DO CASE
CASE 成绩>=90
? "优秀"
CASE 成绩>=80
? "良好"
CASE 成绩>=70
? "中等"
CASE 成绩>=60
? "及格"
CASE 成绩<60
? "不及格"
ENDCASE
ENDIF
SKIP
ENDDO
? "再见"
USE
RETURN
谢谢第三楼，明显这样更复杂了 唉。。。
OPEN DATABASE 成绩管理
SET TALK OFF
use 成绩
ACCEPT "请输入要查找的学号：" TO XH
ACCEPT "请输入要查找的课程号：" TO KCHH
DO WHILE .NOT. EOF()
IF 学号=XH .ADN. 课程号=KCHH
DO CASE
CASE 成绩>=90 and 成绩<=100
? "优秀"
CASE 成绩>=80 and 成绩<90
? "良好"
CASE 成绩>=70 and 成绩<80
? "中等"
CASE 成绩>=60 and 成绩<70
? "及格"
CASE 成绩<60
? "不及格"
ENDCASE
ENDIF
SKIP
ENDDO
? "再见"
USE
RETURN
成绩>90
成绩>80
这样成绩>80重复了成绩>90大于90的一段
SET TALK OFF
OPEN DATABASE 成绩管理
PUBLIC xh,kchh
use 成绩
ACCEPT "请输入要查找的学号" TO m.XH
ACCEPT "请输入要查找的课程号：" TO m.KCHH
set filt to 学号=m.XH .ADN. 课程号=m.KCHH
go top
DO WHILE .NOT. EOF()
DO CASE
CASE 成绩>=90
? "优秀"
CASE 成绩>=80
? "良好"