vb问题，急求代码??计算1+1/(1+2)+1/(1+2+3)+"..."+1/(1+2"..."+n)的值（n为1到10的随机数）

private sub command1_click()
Randomize
n=rnd()*10
for i=1 to n
S=S+i
a=a+1/S ''这里应该注意！！！！！
next
msgbox "n值为"+str(n)+",结果为"+str(a)
end sub

private sub command1_click()
Randomize
n=rnd()*10
for i=1 to n
S=S+i
a=1/S
next
print "n值为"+str(n)+",结果为"+str(a)
end sub

非常理想