姚明与叶莉结婚十周年:我这儿有段foxpro的程序,大家帮忙看一下。

来源:百度文库 编辑:中科新闻网 时间:2024/05/13 08:49:25
set talk off
use student
list
clear
input "请输入系别号:" to xbh
do while .not.eof()
do case
case 系别号="02"
repla 入学成绩 with 入学成绩*(1+10%)
case 系别号="04"
repla 入学成绩 with 入学成绩*(1+8%)
other
repla 入学成绩 with 入学成绩*(1+5%)
endcase
enddo
sort on 入学成绩/d to xih
use xih
retu

endcase 和 enddo 之间需要下移一条记录

set talk off
use student
list
clear
input "请输入系别号:" to xbh
do while .not.eof()
do case
case 系别号="02"
repla 入学成绩 with 入学成绩*(1+10%)
case 系别号="04"
repla 入学成绩 with 入学成绩*(1+8%)
other
repla 入学成绩 with 入学成绩*(1+5%)
endcase
skip ********************
enddo
sort on 入学成绩/d to xih
use xih
retu

注意后面带*的那一句