SET TALK OFF
CLEAR
USE course IN 0
USE grade IN 0
DO WHILE .t.
ACCEPT "请输入课程号(Q-退出):" TO kch
IF ALLTRIM(UPPER(kch))='Q'
EXIT
ENDIF
SELECT course
LOCATE FOR ALLTRIM(UPPER(课程号))==ALLTRIM(UPPER(kch))
IF FOUND()
?'课程号',课程号
?'课程名',课程名
?'课时',课时
?'学分',学分
?'**********************************'
ELSE
WAIT 'course表中不存在此课程号' WINDOW
ENDIF
SELECT grade
LOCATE FOR ALLTRIM(UPPER(课程号))==ALLTRIM(UPPER(kch))
IF FOUND()
?'学号','成绩'
DO WHILE .not. EOF()
?学号,成绩
CONTINUE
ENDDO
SUM 成绩 TO _zcj FOR ALLTRIM(UPPER(课程号))==ALLTRIM(UPPER(kch))
COUNT TO _zrs FOR ALLTRIM(UPPER(课程号))==ALLTRIM(UPPER(kch))
?'总平均成绩',ROUND(_zcj/_zrs,2)
?
ELSE
WAIT 'grade表中不存在此课程号' WINDOW
ENDIF
ENDDO
CLEAR ALL
SET TALK ON
RETURN
以上为百科题库网整理的关于"某个DNA分子中有腺嘌呤22%,在此DNA分子中胞嘧啶占"试题答案及解析,如想学习更多生物类竞赛题,欢迎访问www.baiketk.com查看搜索更多相关信息。
转载请注明:百科题库网https://www.baiketk.com/q_i606ea15ea6492.html
相关题目推荐