VFP6編程問題求解

所有的程序都已經上機驗證過了。

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

1.設S=1*2*3*4*....N，求s不大於10000時的N

CLEAR

S=1

N=0

DO WHILE S<=10000

N=N+1

S=S*N

?S

ENDDO

"N=",N-1

RETURN

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

試編程顯示如下圖形：

1) 1

2) 2 4

3) 3 6 9

4) 4 8 12 16

5) 5 10 15 20 25

程序如下：

clear

for i=1 to 5

for j=1 to i

?alltrim(str(i*j))+space(2)

endfor

?

endfor

return

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

編程：求100之內的偶數和，要求使用loop命令。

clear

s=0

i=1

do while i<=100

if i%2<>0

i=i+1

loop

else

s=s+i

i=i+1

endif

enddo

"100以內的偶數和是：",s

return

endif

endfor

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

已知有數據表xscj.dbf,其結構為:學號(C,8),姓名(C,8),成績1(N,3),成績2(N,3),成績3(N,3),總平均成績(N,3),其中總平均成績和名次為空，要求編程將總平均成績自動填入並將班級前十名顯示出來。

clear

use xscj

repl all 總平均成績 with （成績1+成績2+成績3）/3

index on 總平均成績 tag 總平均成績 desc

go top

list next 10

use

return

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

要求顯示如下乘法表，試編程序。

4*4=16

3*3=9 3*4=12

2*2=4 2*3=6 2*4=8

1*1=1 1*2=2 1*3=3 1*4=4

clear

for i=4 to 1 step -1

for j=1 to 5-i

?str(i,1)+"*"+str(5-j,1)+"="+alltrim(str(i*j))+space(2)

endfor

endfor

return

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

已知：有自由表gz.dbf，其數據內容為單位發放工資情況表，

試編程將其中基本工資字段按字段工齡5年以下的長30元，

10年以下的長50元，15年以下的長80元，20年以下長120元，20年以上長200元。

clear

use gz

scan

do case

case 工齡<5

replace 基本工資 with 基本工資+30

case 工齡<10

replace 基本工資 with 基本工資+50

case 工齡<15

replace 基本工資 with 基本工資+80

case 工齡<20

replace 基本工資 with 基本工資+120

otherwise

replace 基本工資 with 基本工資+200

endcase

endscan

use

return

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

有自由表xs.dbf，字段為姓名（C，8）成績1（N，4）成績2（N，4）成績3（N，4），

試編程將各門課均在85分以上的顯示出來。要求用當型循環。

程序如下：

clear

use xs

do while not eof()

if 成績1>=85 and 成績2>=85 and 成績3>=85

disp

endif

skip

enddo

use

return

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

SET TALK OFF

a=4

b=5

do pp with a,2*b

a,b

set talk on

RETURN

*這是子程序，文件名是pp.prg

PARAMETERS x,y

y=x*y

"s="+STR(y,3)

RETURN

運行結果為：s=40

4 5

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

上一篇:如何用Twain.dll調用掃描儀

下一篇:事業單位個人簡歷