1. (2020高一下·浦东月考) 编写程序，实现以下功能：计算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

1. （1） 实现该程序功能的主体算法结构是。
3. （2） 现有如下VB程序，请完善划线处①、②内容，完成上述功能。

   ①        ②

5. （3） 划线处③能使变量s的值四舍五入精确到小数点后第3位小数，以下可以实现的语句是（  ）。

   A . Int(s * 100) / 100 B . Int(s * 1000) / 1000  C . Int(s * 100 + 0.5) / 100 D . Int((s * 1000 + 0.5)) / 1000