VFP程序填空题: 向大家求助.(有两道题) 括号内为所需填写的内容,括号后为小弟的“试填”1、若YG表中包含“编号”字段,并以“编号”建立普通索引(BH)且指定主控索引,下列程序实现
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 02:07:22
![VFP程序填空题: 向大家求助.(有两道题) 括号内为所需填写的内容,括号后为小弟的“试填”1、若YG表中包含“编号”字段,并以“编号”建立普通索引(BH)且指定主控索引,下列程序实现](/uploads/image/z/11562203-11-3.jpg?t=VFP%E7%A8%8B%E5%BA%8F%E5%A1%AB%E7%A9%BA%E9%A2%98%EF%BC%9A+%E5%90%91%E5%A4%A7%E5%AE%B6%E6%B1%82%E5%8A%A9.%EF%BC%88%E6%9C%89%E4%B8%A4%E9%81%93%E9%A2%98%EF%BC%89+%E6%8B%AC%E5%8F%B7%E5%86%85%E4%B8%BA%E6%89%80%E9%9C%80%E5%A1%AB%E5%86%99%E7%9A%84%E5%86%85%E5%AE%B9%2C%E6%8B%AC%E5%8F%B7%E5%90%8E%E4%B8%BA%E5%B0%8F%E5%BC%9F%E7%9A%84%E2%80%9C%E8%AF%95%E5%A1%AB%E2%80%9D1%E3%80%81%E8%8B%A5YG%E8%A1%A8%E4%B8%AD%E5%8C%85%E5%90%AB%E2%80%9C%E7%BC%96%E5%8F%B7%E2%80%9D%E5%AD%97%E6%AE%B5%2C%E5%B9%B6%E4%BB%A5%E2%80%9C%E7%BC%96%E5%8F%B7%E2%80%9D%E5%BB%BA%E7%AB%8B%E6%99%AE%E9%80%9A%E7%B4%A2%E5%BC%95%EF%BC%88BH%EF%BC%89%E4%B8%94%E6%8C%87%E5%AE%9A%E4%B8%BB%E6%8E%A7%E7%B4%A2%E5%BC%95%2C%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E5%AE%9E%E7%8E%B0)
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