编写程序，实现以下功能：计算s=1+2/5+3/10+……i/i^2+1 的值，n由键盘输入，计算结果s保留3位小数。

Private Sub Command1_Click()

Dim n as integer, i as integer,s as double

n=val(inputbox("请输入n的值"))

s=0:i=1

do while       ①       

         ②         

  i=i+1

Loop

s=        ③         

Print s

End Sub