visual_foxpro_實用教程課本及輔導教材參考答案第三版(新)-資料下載頁
2025-06-28 09:03本頁面
【正文】 EXIT ENDIF ENDIFENDFORSET TALK ONRETU9. 數(shù)據(jù)表中有”成績”和”評估”字段，根據(jù)成績決定評估等第。 小于60分不及格； 60分到70分及格；70分到80分中等；80分到90分良好；90分以上優(yōu)秀。利用CASE語句實現(xiàn)SET TALK OFFCLEACLEA ALLUSE COMPUTERDO WHILE NOT EOF()DO CASE CASE成績60REPLACE 評估 WITH ‘不及格’CASE成績70REPLACE 評估 WITH ‘及格’CASE成績80REPLACE 評估 WITH ‘中等’CASE成績90REPLACE 評估 WITH ‘良好’CASE成績=100REPLACE 評估 WITH ‘優(yōu)秀’ENDCASESKIPENDDOCLSOE ALLSET TALK ON RETU10. 某中學招收高中一年級新生12個班，,表中含姓名(C型，已輸入數(shù)據(jù))、總分（N型，已輸入數(shù)據(jù)）、班級（N型，未輸入數(shù)據(jù)）字段。編程，根據(jù)總分將學生均勻搭配到12個班中，并把該學生的班級字段填寫其班級序號， ,…… ,。 分配班級時，按照巡回折轉的順序進行（如， 總分第一名給1班，第二名給2班，…………， 第12名給12班，第13名給12班，第14名給11班，…………….依次類推）。SET TALK OFFCLEA CLEA ALLUSE STUDENTSINDEX ON －總分 TAG 總分（或 INDEX ON 總分 TAG 總分 DESC）GO TOP DO WHILE NOT EOF()FOR I=1 TO 12REPL 班級 WITH ISKIPIF EOF() EXITENDIFENDFORFOR I=1 TO 12 STEP —1REPL 班級 WITH ISKIPIF EOF() EXITENDIFENDFORENDDOFOR I=1 TO 12T=ALLTRIM(STR(I,2))COPY TO CLASSamp。T FOR 班級=IENDFORCLEA ALLSET TALK ONRETU11. ，表中包括的字段為：工號，姓名，實發(fā)工資（N,7,2）， 一百元（N,2）, 五十元（N,2），二十元（N,2），十元（N,2）， 五元（N,2）， 二元（N,2）， 一元（N,2）等。并假設工號、姓名和實發(fā)工資字段都已經輸入了數(shù)據(jù)，且實發(fā)工資中不含角分值。 編程工資分票程序，計算并顯示該單位發(fā)放工資時所需要的各種票面張數(shù)(也就是計算實際發(fā)放工資時每人需要的各種面額人名幣張數(shù))。利用自程序實現(xiàn)(本程序票面優(yōu)先發(fā)大額票面，如60元分成一個50和一個10元，而不是三個20元或6個10)SET TALK OFFCLEA CLEA ALLUSE GZPMDO WHILE NOT EOF()F100=INT(實發(fā)工資/100) amp。amp。100的票面張數(shù)B=實發(fā)工資%10 amp。amp。工資中個位數(shù)的值C=INT((實發(fā)工資F100*100B)/10) amp。amp。工資中十位數(shù)的值F50=0 amp。amp。50的票面張數(shù)F20=0 amp。amp。20的票面張數(shù)F10=0 amp。amp。10的票面張數(shù)F5=0 amp。amp。5的票面張數(shù)F2=0 amp。amp。2的票面張數(shù)F1=0 amp。amp。1的票面張數(shù)DO P WITH C,F50,F20,F10DO P WITH B,F5,F2,F1REPL 壹百元 WITH F100,伍拾元 WITH F50, 貳拾元 WITH F20, 拾元 WITH F10, 伍元 WITH F5,貳元 WITH F2, 壹元 WITH F1SKIPENDDOCLOSE ALLSET TALK ON RETUPROCEDURE PPARA K,X,Y,ZX=INT(K/5)Y=INT((KX*5)/2)Z=KX*5Y*2ENDPROC第五章 實驗教程補充習題（1）C （2）B （3）D （4）A （5）A （6）C （7）C （8）D （9）A （10）A （11）B （12）C （13）D （14）A （15）A （16）D （17）D （18）B （19）C （20）D2. 填空題（1）試考級等機算計 （2）EXIT （3）循環(huán)（4）PROCEDURE或FUNCTION （5）P=P*I， S=S=9 （6）NOT EOF()、 SKIP （7）0, 1, j, 1/mul（8） 子程序中輸出的結果: i= 2 j= 3 k= 4 主程序的輸出結果: i= 2 j= 1 k= 1（9）對象 （10）封裝、繼承、多
環(huán)評公示相關推薦
鄂ICP備17016276號-1