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

　　讀程序寫出運行結果 (每小題4分，共20分)

　　1. 有一程序如下，寫出運行結果：

　　SET TALK OFF

　　CLEAR

　　STORE 1 to f1,f2

　　FOR k=1 to 4

　　?f1,f2

　　f1=f1+f2

　　f2=f2+f1

　　ENDFOR

　　RETURN

　　2. 設有一學生成績數(shù)據(jù)表XSCJ.DBF如下，寫出下面程序的運行結果。

　　學號 課程號 學期 考試成績 補考成績

　　1999013001 01601 6 86.0

　　2000100723 10312 4 91.0

　　1998205134 20734 8 70.0

　　1999120815 12915 6 89.0

　　1999013001 60623 6 55.0 78.0

　　1999013001 60101 8 75.0

　　2000221005 22510 4 53.0 80.0

　　SET TALK OFF

　　CLEAR

　　USE XSCJ

　　k=0

　　DO WHILE .NOT. EOF()

　　IF 學號="1999013001"

　　If k=0

　　? 學號,課程號,iif(考試成績<60,補考成績，考試成績),“—”

　　k=k+1

　　else

　　?? 課程號, iif(考試成績<60,補考成績，考試成績),“—”

　　endif

　　endif

　　SKIP

　　ENDDO

　　USE

　　Return

　　3. 已知cTest=”hello2008,Luck5688PIG”,寫出以下程序的運行結果：

　　SET TALK OFF

　　CLEAR

　　cNumOnly = "" &&空串

　　FOR nCnt = 1 TO LEN(cTest)

　　cCharacter = SUBSTR(cTest, nCnt, 1)

　　IF ISDIGIT(cCharacter)

　　cNumOnly = cNumOnly + cCharacter

　　ENDIF

　　ENDFOR

　　? cNumOnly

　　return

　　4. 寫出以下程序運行的結果：

　　SET TALK OFF

　　Local i PROCEDURE M2

　　i=8 Parameters j

　　C1="計算機等級考試" do while j>=i

　　DO M1 ?? substr(cd , j , 2)

　　? 1998+i, right(C1,i ) j=j-2

　　RETURN enddo

　　?? C1

　　PROCEDURE M1 i=4

　　PUBLIC cd RETURN

　　i=1

　　cd="校高市慶重"

　　do M2 with 9

　　RETURN

　　5. 有兩個數(shù)據(jù)表文件，其內容如下：

　　學生成績表CJ.DBF： 學生學號、姓名對照表XM.DBF：

　　學號 科目 成績 學號 姓名

　　99011 馬列原理 70 99011 張三

　　99013 馬列原理 85 99012 李四

　　99012 馬列原理 65 99013 王五

　　99012 英語 70

　　99011 英語 85

　　99013 英語 70

　　執(zhí)行以下程序段，寫出運行結果：

　　set talk off

　　sele a

　　use xm

　　inde on 學號 to xh

　　sele b

　　use cj

　　inde on 學號to cj1

　　set rela to 學號 into a

　　list off 學號,a->姓名,科目,成績 for right (學號,2)=”12”

　　close data

　　return

　　1. 1 1

　　2 3

　　5 8

　　13 21

　　2. 1999013001 01601 86.0 – 60623 78.0 – 60101 75.0 --

　　3. 20085688

　　4. 重慶市高校計算機等級考試

　　2006 等級考試

　　5. 學號 姓名 科目 成績

　　99012 李四 馬列原理 65

　　99012 李四 英語 70