程序填空(改錯)題：

在考生文件夾的paper 子文件夾中，已有文件Modify.prg，請自己打開文件，在標記&&之前填寫所缺代碼、調試、保存，并完成以下功能

1、顯示指定表中的全部字段名，并由用戶輸入顯示表信息的條件，最后列表顯示滿足條件的記錄

SET TALK OFF

CLEAR

INPUT "M=" TO M

N=M

DO WHILE INT(N)！=N &&______ 1

N=N*10

ENDDO

STORE MOD(N,10) TO D,X &&______ 2

DO WHILE N>0 &&_______ 3

R= MOD(N,10) &&______ 4

IF R>D

D=R

ENDIF

IF R

X=R

ENDIF

N= INT(N/10) &&_______ 5

ENDDO

?M,"中位值最大的數碼是："+STR(D,1)+",最小的數碼是："+STR(X,1)+" 。"

SET TALK ON

2．已知：在考生目錄的Paper子目錄中已有學生表(學生.dbf)

(學號，姓名，性別，出生年月，簡歷，獎學金，照片)

要求：

顯示“學生”表中的全部字段名。

SET TALK OFF

CLEAR

USE 學生

*****1*****

FOR N = 1 TO RECCOUNT() FCOUNT()

*****2*****

FOUND(N) ?FIELDS(N)

ENDFOR

USE

SET TALK ON

3．將給定的正整數數值表達式的值分解因子，并輸出各個質數因子。如24的因子有：2、2、2和3

SET TALK OFF

SET ESCAPE OFF

CLEAR

?"按ESC鍵結束操作"

DO WHILE .T.

INPUT "M=" TO M

IF INT(M)!=M OR ABS(M)!=M

?"輸入的數據不符合題目要求！"

LOOP

ENDIF

?ALLTRIM(STR(M,19))+"的質數因子有："

I=2

DO WHILE I<=M

IF M%I=0

??STR(I,6)

****************************

M=MOD(M,I) M=INT(M/I)

LOOP

ENDIF

I=I+1

ENDDO

IF INKEY(0)=27

EXIT

ENDIF

ENDDO

SET TALK ON

SET ESCAPE ON

4．要求：顯示輸出“學生”表中的1971年或以前出生的學生姓名和出生年月

SET TALK OFF

CLEAR

USE 學生

*****1*****

LOCATE FOR 出生年月<=1971 {^1971-12-31}

DO WHILE !EOF()

?姓名,出生年月

*****2*****

SKIP continue

ENDDO

USE

SET TALK ON

5．求當1！+3！+5！+…+n!的值不超過10的20次冪時的臨界值及n的值。

SET TALK OFF

CLEAR

*****1*****

S=0 S=1

STORE 1 TO T,N

DO WHILE S<=1E+20

T=T*(N+1)*(N+2)

S=S+T

*****2*****

N=N+1 N=N+2

ENDDO

?"S=",S-T

?"N=",N-2

SET TALK ON

6．1)設計一個顯示不同顏色和半徑的圓的表單

2)利用計時器時間產生半徑遞增的圓，其顏色是隨機產生的

3)在單擊“暫停”時停止畫圓，此時該命令按鈕變成“畫圓”，再次單擊“畫圓”時，繼續前面的畫圓過程。

******************LOCAL rad public rad

this.rad=2 rad=2

t

總結

以上是生活随笔為你收集整理的浙江省二级计算机vfp,浙江省计算机2级vfp程序调试真题集.doc的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。