Y=1+1/2+1/3+……+1/30用FOX编程

FOX偶不会(学过早忘了)

不过你可以参照

Y=0
FOR X=1 TO 30
Y=Y+1/X
NEXT

a=1
n=0
do while a<=30
n=n+1/a
a=a+1
enddo
?"1+1/2+1/3+……+1/30="+n
用VB编的话也简单。
a=1
n=0
for a=1 to 30
n=n+1/a
next
print "1+1/2+1/3+……+1/30=",n