跪求vfp编程实例

一定要实例，不要网站。有的话直接发到我邮箱里，谢谢了。

QQ：247564085

*题目:求当1!+3!+5!+...+N!的值不超过10的20次幂时的临界值及N的值

*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SET TALK OFF
CLEAR
***********FOUND**********
S=0
STORE 1 TO T,N
DO WHILE S<=1E+20
T=T*(N+1)*(N+2)
S=S+T
***********FOUND**********
N=N+1
ENDDO
***********FOUND**********
?"S=",S-T
?"N=",N-2
SET TALK ON

例子二

1000之内能被3和7整除的数的个数

SET TALK OFF
CLEAR
N=1
S=0
DO WHILE N<=1000
IF INT(N/3)=N/3 AND INT(N/7)=N/7
S=S+1
??N
ENDIF
N=N+1
ENDDO
?"1000之内能被3和7整除的数的个数和为："+ alltrim (STR(S,5))
SET TALK ON
例子三

若干数中最大最小数

set talk off
clear

input "m=" to m
store m to d,x

do while .t.
input "n=" to n
if d<n
d=n
endif
if x>n
x=n
endif

wait "是否继续输入:" to YN
if upper(YN)="Y"
loop
else
exit
endif
enddo
?"最大数是:",d

?"最小数是:",X

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息