vf程序设计实例
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
（一）输入n的值，求1+1/2!+1/3!+1/4!+….+1/n! （阶乘n!=1*2*3*4....*(n-1)*n ）
CLEAR
SUM=0
MUL=1
INPUT "请输入n的值： " TO N
FOR i=1 TO N
FOR j=1 TO i
MUL=MUL*J
ENDFOR
SUM= SUM+1/MUL
ENDFOR
?'求得的总和为: ',SUM
（二）输入10 个数，将它们按照从大到小的顺序排列。
clear
dime a(10)
?'输入10个数: '
for i=1 to 10
input "请输入: " to a(i)
endfor
for i=1 to 9
for j=1 to i
if a(j)>a(i+1)
t=a(i+1)
a(i+1)=a(j)
a(j)=t
endif
endfor
endfor
list memo like a
（三）随机出10道100以内的整数加减法算数题
clear
ts=1
do whie ts<=10
czf=iif(rand()>0.5,"+","-")
num1=rand()*100
num2=rand()*100
if =czf="+"
if num1+num2>100
loop
else
if num1<num2
loop
endif
endif
?"("+str (ts,2)+")"+”“+str (num1,2)+czf+str(nu m2,2)+"=”
ts=ts+1
enddo
（四）计算1，1/2，1/3...1/n之和,当<0.001时停止
set decimal +0 2
n=1
nsum=0
do while .t.
if 1/n <0.001
exit
endif
nsum=nsum+2
n=n+1
enddo
wait windows "该系统之和为"+
[NextPage]
（五）计算生肖自定义函数sx()
function sx
arameters nyear
local n,csx
csx="羊猴鸡狗猪鼠牛虎兔龙蛇马"
if parameters()=0
nyear =year(date())
endif
n=mod(nyear,12) return substr (ncsx,2+&qu ot;N"+1,2)
endfunc
（六）计算 S=1!+2!+3!+4!+5!+6!+7!+8!+9!
s=0
for i=1 to 9
s=s+fjc(i)
endfor
?s
function fjc
parameters x
p=1
for n=1 to x
p=p*x
endfor
return p
endfunc