【正文】 顯示內(nèi)存變量 A1 Pub N 4 A2 Pub C 3 A3 Priv N 4 主程序中內(nèi)存變量有 : A1 Pub N 4 A2 Pub C 3 程序填空 ? * ? *【 程序填空 】 ? * ? *功能 : 下面程序是計(jì)算 1+3+5+…+99 之和的程序。 ? * 請(qǐng)?jiān)?【】 處添上適當(dāng)?shù)膬?nèi)容，使程序完整。 ? * ? SET TALK OFF ? ***********SPACE********** ? 【 ?】 ? ***********SPACE********** ? FOR I=1 TO 99 【 ?】 ? S=S+I ? ENDFOR ? ***********SPACE********** ? ?結(jié)果 =,【 ?】 ? SET TALK ON ? RETURN 答案： =======(答案 1)======= s=0 =======(答案 2)======= step 2 =======(答案 3)======= s =========或 ========= str(s) =========或 ========= str(s,4) ? * ? *【 程序填空 】 ? * ? *功能 :依次顯示 。請(qǐng)?jiān)?【】 處添上適當(dāng) ? * 的內(nèi)容，使程序完整。 ? * ? SET TALK OFF ? ***********SPACE********** ? 【 ?】 ? ***********SPACE********** ? DO WHILE【 ?】 ? DISP ? ***********SPACE********** ? 【 ?】 ? ENDDO ? USE ? SET TALK ON ? RETURN 答案： =======(答案 1)======= use xsdb =======(答案 2)======= .not. eof() =========或 ========= !eof() =========或 ========= not eof() =========或 ========= Eof() != .T. =======(答案 3)======= SKIP ? * ? *【 程序填空 】 ? * ? *功能 : 現(xiàn)有職工工資庫文件 。 ? * 要求對(duì)職工工資庫文件中的“基本工資”、“應(yīng)發(fā)工資” ? * 、“扣款工資”和“實(shí)發(fā)工資”的字段進(jìn)行賦值。 ? * 請(qǐng)?jiān)?【】 處添上適當(dāng)?shù)膬?nèi)容，使程序完整。 ? * ? SET TALK OFF ? CLEAR ? SELE A ? USE GZ ? INDEX ON 編號(hào) TO GZBHSY ? SELE B ? USE DA ? ***********SPACE********** ? INDE ON 【 ?】 TO DABHSY ? SELE A ? ***********SPACE********** ? UPDA ON 編號(hào) FROM DA REPL 基本工資 WITH 【 ?】 ? ***********SPACE********** ? 【 ?】 應(yīng)發(fā)工資 WITH 基本工資 +獎(jiǎng)金 ,扣款合計(jì) WITH 水費(fèi) +電費(fèi) +房租費(fèi) ,實(shí)發(fā)工資 WITH 實(shí)發(fā)工資 扣款合計(jì) ? LIST ? CLOSE DATABASE ? SET TALK ON ? RETURN 答案： =======(答案 1)======= 編號(hào) =======(答案 2)======= =========或 ========= B基本工資 =======(答案 3)======= REPL ALL 程序改錯(cuò) ? * ? *【 程序改錯(cuò) 】 ? * ? *題目：表 ：學(xué)號(hào)（ C， 6），姓名（ C， 6）， 性別（ C， 2），入學(xué)成績(jī)（ N， 6， 2）。 本程序?qū)崿F(xiàn)按學(xué)號(hào)查找記錄，直到輸入 為止。 ? * ? *注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。 ? * ? SET TALK OFF ? USE XSDA ? **********FOUND********** ? ACCEPT 請(qǐng)輸入要查找的學(xué)號(hào) ON XH ? DO WHILE XH!= ? **********FOUND********** ? LOCATE FOR 學(xué)號(hào) =CJ ? IF FOUND() ? ?學(xué)號(hào) ,姓名 ,入學(xué)成績(jī) ? ELSE ? ? 無此學(xué)號(hào) ? ENDIF ? ACCEPT 請(qǐng)繼續(xù)輸入要查找的學(xué)號(hào) TO XH ? **********FOUND********** ? ENDFOR ? ?謝謝使用本查找系統(tǒng) ? USE ? SET TALK ON ? RETU 答案： =======(答案 1)======= ACCEPT 請(qǐng)輸入要查找的學(xué)號(hào) TO XH =======(答案 2)======= LOCATE FOR 學(xué)號(hào) =XH =======(答案 3)======= ENDDO =========或 ========= ENDD ? * ? *【 程序改錯(cuò) 】 ? * ? *題目：計(jì)算出 150以內(nèi)（包含 50）能被 3和 5整除的數(shù)之和。 ? * ? *注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。 ? * ? SET TALK OFF ? CLEAR ? X=0 ? **********FOUND********** ? Y=1 ? **********FOUND********** ? DO WHIL NOT EOF() ? X=X+1 ? DO CASE ? CASE MOD(X,5)=0 AND MOD(X,3)=0 ? Y=Y+X ? CASE X=50 ? LOOP ? CASE X50 ? EXIT ? ENDCASE ? ENDDO ? **********FOUND********** ? ?X ? SET TALK ON ? RETU 答案： =======(答案 1)======= Y=0 =======(答案 2)======= DO WHIL .T. =======(答案 3)======= ?Y ? *【 程序改錯(cuò) 】 * ? *題目 :已有員工數(shù)據(jù)庫 。 給定 的崗位查詢相應(yīng) 的崗位工資、教學(xué)津貼和科研津貼，并顯示聘任為該崗位 的人員情況。 ? * ? *注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。 * ? SET TALK OFF ? AN=Y ? SELECT 0 ? USE GZ ? INDEX ON 雇員號(hào) TO GZ1 ? SELECT 0 ? USE YG ? ***********FOUND********** ? SET RELATION ON 雇員號(hào) TO GZ ? DO WHILE UPPER(AN)=Y ? CLEAR ? GW=教授 ? ? 請(qǐng)輸入崗位： , GW ? ***********FOUND********** ? SEEK 崗位 ? IF !FOUND() ? ? 沒有此崗位 ! ? ELSE ? ? 崗位 ,GZ崗位工資 ,GZ科研津貼 ? LIST OFF 姓名 ,性別 ,職稱 ,崗位 FOR 崗位 =GW ? ENDIF ? ***********FOUND********** ? INPUT 是否繼續(xù) ? TO UPPER(AN) ? ENDDO ? ? 再見 ! ? SET TALK ON 答案： =======(答案 1)======= SET★ RELA★ TO★ 雇員號(hào)★ INTO★ GZ =========或 ========= SET★ RELA★ TO★ 雇員號(hào)★ INTO★ A =======(答案 2)======= LOCA★ FOR★ 崗位 =GW =======(答案 3)======= WAIT★ 是否繼續(xù) ?★ TO★ AN =========或 ========= ACCE★ 是否繼續(xù) ?★ TO★ AN 程序設(shè)計(jì) ? * ? *【 程序設(shè)計(jì) 】 ? * ? *題目：設(shè)表 ：學(xué)號(hào)（ C， 5），姓名（ C， 6）， ? * 職稱（ C， 6）統(tǒng)計(jì)出 工程師 的 ? * 人數(shù)。（利用 DO WHILE……ENDDO 循環(huán)語句實(shí)現(xiàn)）。 ? * 將人數(shù)存入變量 Y中 ? * 請(qǐng)按照題目要求，在下面編寫程序代碼。 ? * ? SET TALK OFF ? Y=1 ? **********Program********** ? ********** End ********** ? DO YZJ9 WITH Y ? SET TALK OFF ? RETURN 答案： use rsda store 0 to s locate for 職稱 =工程師 do while not eof() s=s+1 continue enddo ?共有工程師 +str(s,3)+名 use Y=S ? * ? *【 程序設(shè)計(jì) 】 ? * ? *題目：計(jì)算機(jī)等級(jí)考試數(shù)據(jù)表為 ,凡筆試和上機(jī)成績(jī) ? * 均達(dá)到 80分以上者 ,應(yīng)在等級(jí)字段中填入 優(yōu)秀 字樣。 ? * 請(qǐng)用 DO WHILE ...ENDDO語句編寫。 ? * 請(qǐng)按照題目要求，在下面編寫程序代碼。 ? * ? SET TALK ON ? CLEAR ? **********Program********** ? ********** End ********** ? CLOSE DATA ? SET TALK OFF 答案： USE STUDENT DO WHILE .NOT. EOF() IF 筆試 =80 .AND. 上機(jī) =80 REPL 等級(jí) WITH 優(yōu)秀 ENDIF SKIP ENDD LIST ? * ? *【 程序設(shè)計(jì) 】 ? * ? *題目：學(xué)生劉一的信息存在數(shù)據(jù)表 。 ? * 編程以物理連接方法生成一名為 ，用于保存劉一的全部信息，并顯示。 ? * 請(qǐng)按照題目要求，在下面編寫程序代碼。 ? * ? SET TALK ON ? **********Program********** ? ********** End ********** ? CLOSE DATA ? SET TALK OFF 答案： SELE 1 USE STUDENT SELE 2 USE STUDY SELE 1 JOIN WITH STUDY TO SG； FOR 學(xué)號(hào) = .AND. 姓名 =“劉一 ” ； FIELDS 學(xué)號(hào) ,姓名 , , SELE 3 USE SG LIST