計(jì)算機(jī)等級(jí)考試二級(jí)VFP上機(jī)試題及解題思路(7)

　　4、從鍵盤(pán)輸入A、B、C三個(gè)數(shù)值，將它們從小到大排列后輸出。

　　程序代碼：

　　SET TALK Off

　　CLEAR

　　INPUT "A=" TO A

　　INPUT "B=" TO B

　　INPUT "C=" TO C

　　if b

　　d=a

　　a=b

　　b=d

　　endif

　　if c

　　d=a

　　a=c

　　c=d

　　endif

　　if c

　　d=b

　　b=c

　　c=d

　　endif

　　?a,b,c

　　SET TALK ON

　　5、從鍵盤(pán)輸入一個(gè)數(shù)值(0~9)，要求輸出其對(duì)應(yīng)的中文大寫(xiě)數(shù)字(零~玖)。

　　程序代碼：

　　SET TALK Off

　　CLEAR

　　C="零壹貳叁肆伍陸柒捌玖"

　　INPUT "N=" TO N

　　?N,"--->"+SUBSTR(C,2*N+1,2)

　　SET TALK ON

　　6、將前面的1到5題，加上循環(huán)，使之被調(diào)用執(zhí)行一次，并可以重復(fù)對(duì)不同的輸入值完成相同的操作。

　　提示：只要在需要重復(fù)執(zhí)行的語(yǔ)句序列外加上循環(huán)控制結(jié)構(gòu)即可。下面以第2小題循環(huán)3次，第5小題循環(huán)任意次為例說(shuō)明。

　　(6.2)循環(huán)3次

　　程序代碼：

　　SET TALK Off

　　CLEAR

　　FOR I=1 TO 3

　　INPUT "Year=" TO Year

　　if (year%4=0 and year%100!=0) or (year%100=0 and year%400=0)

　　?year,"是閏年"

　　else

　　?year,"不是閏年"

　　endif

　　ENDFOR

　　SET TALK ON

　　(6.5)循環(huán)任意次

　　程序代碼：

　　SET TALK Off

　　CLEAR

　　?"PRESS ESC TO EXIT---"

　　C="零壹貳叁肆伍陸柒捌玖"

　　DO WHILE .T.

　　INPUT "N=" TO N

　　?N,"--->"+SUBSTR(C,2*N+1,2)

　　IF INKEY(0)=27

　　EXIT

　　ENDIF

　　ENDDO

　　SET TALK ON