亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

1.
CLEAR
INPUT "請輸入N的值：" TO N
S=0
T=1
DO WHILE T<=N
   S=S+T
   T=T+1
ENDDO
?"1+2+3+……+N",S
2.
CLEAR
CLEAR ALL
SET SAFE OFF
SET TALK OFF
SELECT 1
USE XS
INDEX ON  學號 TAG XH
SELECT 2
USE KC
INDEX ON 課程號 TAG KCH
SELECT 3
USE CJ
SET RELATION TO 學號 INTO XS
SET RELATION TO 課程號 INTO KC ADDITIVE
ACCEPT "輸入課程號：" TO KCH
LOCATE FOR 課程號=KCH
?"選修的課程號："+KCH+"   課程號"+KC.課程名
?"學生姓名   成績"
DO WHILE NOT EOF()
   ?XS.姓名,考試成績
   CONTINUE
ENDDO
CALCULATE AVG(考試成績),MAX(考試成績),MIN(考試成績) TO PJF,ZGF,ZDF FOR 課程號=KCH
?"平均分：",STR(PJF,5,1),"最高分：",STR(ZGF,5,1),"最低分：",STR(ZDF,5,1)
CLOSE ALL
SET TALK ON
SET SAFE ON
RETURN