编写程序,实现以下功能:计算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)
实现该程序功能的主体算法结构是。
(2)
上面的VB程序,请完善划线处内容,完成上述功能。
① ②
(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
答案: 【1】循环结构
【1】i<=n【2】s=s+i/(i^2+1)
D