怎么样编1+1/2+2/3+3/4.....+n-1/n用for next和do loop

Question

各位帮帮忙了。

Answer 1

'1+1/2+2/3+3/4.....+n/n-1dim i as integer, n as integer, tmp as double, x as doublex = 1
n = 5
for i = 2 to n
tmp = i
tmp = tmp / (i+1)
x = x + tmp
next i

Answer 2

'1+1/2+2/3+3/4.....+n-1/ndim i as integer, n as integer, tmp as double, x as doublex = 1
n = 5
for i = 2 to n - 1
tmp = i
tmp = tmp / (i+1)
x = x + tmp
next i

Answer 3

dim i as integer, n as integer, tmp as double, x as double
i = 2
x = 1
n = 5
do until i = n
tmp = i
tmp = tmp / (i+1)
x = x + tmp
i = i + 1
loop

Answer 4

public function GetSum(byval N as Integer) as Double
   Dim Sum as Double
   Dim i as Integer
   if N<1 then Err.Raise -1,"GetSum","请给出一个自然数" 
   Sum=1
   for i=2 to N
      Sum=Sum+(i-1#)/i
   next i
   GetSum=Sum
end function
'=====================================================
public function GetSum(byval N as Integer) as Double
   Dim Sum as Double
   Dim i as Integer
   if N<1 then Err.Raise -1,"GetSum","请给出一个自然数" 
   Sum=1
   i=2
   do while i<= N
      Sum=Sum+(i-1#)/i
      i=i+1
   loop
   GetSum=Sum
end function