急求VFP程序填空题答案
【程序填空】*-------------------------------------------------------*题目1:显示输出图形:**********请...
【程序填空】
*-------------------------------------------------------
* 题目1:显示输出图形:
*****
***
*
*请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
CLEAR
I=1
***********SPACE**********
DO WHILE 【?】
J=1
DO WHILE J<=7-2*I
***********SPACE**********
【?】
j=j+1
ENDDO
***********SPACE**********
【?】
?
ENDDO
*题目2:找出XSDB.DBF中奖学金最高的学生记录并输出。请在【】
* 处添上适当的内容,使程序完整。
*-------------------------------------------------------
***********SPACE**********
【USE XSDB】
MAX=0
***********SPACE**********
DO WHILE 【?】
IF MAX<奖学金
***********SPACE**********
【?】
JLH=RECN()
ENDIF
SKIP
ENDDO
?MAX
DISP FOR RECN()=JLH
USE
题目3:查找XSDB表中计算机成绩最高分的学生,将其姓名和计算
* 机字段的内容显示出来,如:王迪 98。请在【】处添上适
* 当的内容,使程序完整。
*-------------------------------------------------------
USE XSDB
MAX=计算机
***********SPACE**********
【?】
do while .NOT.EOF()
IF MAX<计算机
MAX=计算机
***********SPACE**********
【?】
ENDIF
***********SPACE**********
【?】
enddo
?XM,MAX
USE 展开
*-------------------------------------------------------
* 题目1:显示输出图形:
*****
***
*
*请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
CLEAR
I=1
***********SPACE**********
DO WHILE 【?】
J=1
DO WHILE J<=7-2*I
***********SPACE**********
【?】
j=j+1
ENDDO
***********SPACE**********
【?】
?
ENDDO
*题目2:找出XSDB.DBF中奖学金最高的学生记录并输出。请在【】
* 处添上适当的内容,使程序完整。
*-------------------------------------------------------
***********SPACE**********
【USE XSDB】
MAX=0
***********SPACE**********
DO WHILE 【?】
IF MAX<奖学金
***********SPACE**********
【?】
JLH=RECN()
ENDIF
SKIP
ENDDO
?MAX
DISP FOR RECN()=JLH
USE
题目3:查找XSDB表中计算机成绩最高分的学生,将其姓名和计算
* 机字段的内容显示出来,如:王迪 98。请在【】处添上适
* 当的内容,使程序完整。
*-------------------------------------------------------
USE XSDB
MAX=计算机
***********SPACE**********
【?】
do while .NOT.EOF()
IF MAX<计算机
MAX=计算机
***********SPACE**********
【?】
ENDIF
***********SPACE**********
【?】
enddo
?XM,MAX
USE 展开
展开全部
PROCEDURE PRG_01
CLEAR
I=1
***********SPACE**********
*DO WHILE 【?】
DO WHILE I <= 5 &&& 此处填: I <= 5
J=1
DO WHILE J<=7-2*I
***********SPACE**********
*【?】
??"*" &&& 此处填: ??"*"
j=j+1
ENDDO
***********SPACE**********
*【?】
I = I + 1 &&& 此处填: I = I + 1
?
ENDDO
RETURN
PROCEDURE PRG_02
***********SPACE**********
*【USE XSDB】
USE XSDB
MAX=0
***********SPACE**********
*DO WHILE 【?】
DO WHILE .NOT. EOF() &&& 此处填:.NOT. EOF()
IF MAX<奖学金
***********SPACE**********
* 【?】
MAX = 奖学金 &&& 此处填:MAX = 奖学金
JLH=RECN()
ENDIF
SKIP
ENDDO
?MAX
DISP FOR RECN()=JLH
USE
RETURN
PROCEDURE PRG_03
USE XSDB
MAX=计算机
***********SPACE**********
*【?】
XM = "" &&& 此处填:XM = ""
do while .NOT.EOF()
IF MAX<计算机
MAX=计算机
***********SPACE**********
*【?】
XM = 姓名 &&& 此处填:XM = 姓名
ENDIF
***********SPACE**********
*【?】
SKIP &&& 此处填:SKIP
enddo
?XM,MAX
USE
CLEAR
I=1
***********SPACE**********
*DO WHILE 【?】
DO WHILE I <= 5 &&& 此处填: I <= 5
J=1
DO WHILE J<=7-2*I
***********SPACE**********
*【?】
??"*" &&& 此处填: ??"*"
j=j+1
ENDDO
***********SPACE**********
*【?】
I = I + 1 &&& 此处填: I = I + 1
?
ENDDO
RETURN
PROCEDURE PRG_02
***********SPACE**********
*【USE XSDB】
USE XSDB
MAX=0
***********SPACE**********
*DO WHILE 【?】
DO WHILE .NOT. EOF() &&& 此处填:.NOT. EOF()
IF MAX<奖学金
***********SPACE**********
* 【?】
MAX = 奖学金 &&& 此处填:MAX = 奖学金
JLH=RECN()
ENDIF
SKIP
ENDDO
?MAX
DISP FOR RECN()=JLH
USE
RETURN
PROCEDURE PRG_03
USE XSDB
MAX=计算机
***********SPACE**********
*【?】
XM = "" &&& 此处填:XM = ""
do while .NOT.EOF()
IF MAX<计算机
MAX=计算机
***********SPACE**********
*【?】
XM = 姓名 &&& 此处填:XM = 姓名
ENDIF
***********SPACE**********
*【?】
SKIP &&& 此处填:SKIP
enddo
?XM,MAX
USE
上海华然企业咨询
2024-10-28 广告
2024-10-28 广告
上海华然企业咨询有限公司专注于AI与数据合规咨询服务。我们的核心团队来自头部互联网企业、红圈律所和专业安全服务机构。凭借深刻的AI产品理解、上百个AI产品的合规咨询和算法备案经验,为客户提供专业的算法备案、AI安全评估、数据出境等合规服务,...
点击进入详情页
本回答由上海华然企业咨询提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询