VFP程序填空题: 向大家求助.(有两道题) 括号内为所需填写的内容,括号后为小弟的“试填”1、若YG表中包含“编号”字段,并以“编号”建立普通索引(BH)且指定主控索引,下列程序实现
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/08 20:34:27
VFP程序填空题: 向大家求助.(有两道题) 括号内为所需填写的内容,括号后为小弟的“试填”1、若YG表中包含“编号”字段,并以“编号”建立普通索引(BH)且指定主控索引,下列程序实现
VFP程序填空题: 向大家求助.(有两道题) 括号内为所需填写的内容,括号后为小弟的“试填”
1、若YG表中包含“编号”字段,并以“编号”建立普通索引(BH)且指定主控索引,下列程序实现了编号相同记录的物理删除.
use YG
set order to tag bh
do while ( ) not eof()
BH=编号
skip
if ( ) BH=BH
delete
endif
enddo
( ) pack
2、编写程序实现对CORE(学号C(5), 姓名C(8), 班级C(10),成绩N(3,0)等级C(6))
表中每条记录根据“成绩”字段值(百分制)自动替换其“等级”字符型字段.判断依据是:若成绩大于等于90填入“优秀”,若成绩大于等于80小于90填入“良好”,若成绩大于等于60小于80填入“及格”,60一下填入“不及格”.
use score
do while ( ) not eof()
do case
case 成绩>=90
( ) replace 等级 with "优秀"
case 成绩>=80
( ) replace 等级 with "良好"
case 成绩>=60
( ) replace 等级 with "及格"
otherwise
( ) replace 等级 with "不及格"
endcase
( ) 没填
enddo
use
第二题我做完以后怎么成死循环了?
求高手帮助!
谢了!
VFP程序填空题: 向大家求助.(有两道题) 括号内为所需填写的内容,括号后为小弟的“试填”1、若YG表中包含“编号”字段,并以“编号”建立普通索引(BH)且指定主控索引,下列程序实现
use YG
set order to tag bh
do while ( ) not eof()
BH=编号
skip
if ( ) 编号=BH
delete
endif
enddo
( ) pack
use score
do while ( ) not eof()
do case
case 成绩>=90
( ) replace 等级 with "优秀"
case 成绩>=80
( ) replace 等级 with "良好"
case 成绩>=60
( ) replace 等级 with "及格"
otherwise
( ) replace 等级 with "不及格"
endcase
( ) SKIP
enddo