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

　　程序設(shè)計(jì)題 (共20分，第1小題8分，第2小題12分)

　　1、編寫一個(gè)循環(huán)結(jié)構(gòu)程序計(jì)算100以內(nèi)的奇數(shù)和

　　2、已知兩個(gè)數(shù)據(jù)表：學(xué)生檔案表XSDA.dbf，有學(xué)號、姓名、專業(yè)班級(均為字符型)等字段和學(xué)生成績表XSCJ.dbf，有學(xué)號(有重復(fù)值)、課程名、成績(數(shù)值型)等字段。

　　編寫一程序，通過反復(fù)輸入學(xué)生的學(xué)號(輸入回車鍵退出)，查詢學(xué)生的姓名，專業(yè)班級，課程名以及成績情況。

　　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 學(xué)號 TAG XH

　　SELECT 2

　　USE KC

　　INDEX ON 課程號 TAG KCH

　　SELECT 3

　　USE CJ

　　SET RELATION TO 學(xué)號 INTO XS

　　SET RELATION TO 課程號 INTO KC ADDITIVE

　　ACCEPT "輸入課程號：" TO KCH

　　LOCATE FOR 課程號=KCH

　　?"選修的課程號："+KCH+" 課程號"+KC.課程名

　　?"學(xué)生姓名 成績"

　　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