作业帮 > 数学 > 作业

VB:求1/2+3/4+4/5+^前50项之和(保留2位小数)

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/16 09:40:14
VB:求1/2+3/4+4/5+^前50项之和(保留2位小数)
没搞懂到底是1/2+3/4+...,还是1/2+2/3+3/4+...,前者的话
Private Sub Command1_Click()
Dim i%,s!,k%
i = 1
Do
If k > 50 Then Exit Do
s = s + i / (i + 1)
i = i + 2
k = k + 1
Loop
Print Format(s,"0.00")
End Su