VB求和:1/(1*2)-1/(2*3)+1/(3*4)…… 直到最后一项绝对值小于0.006为止

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 04:47:47
VB求和:1/(1*2)-1/(2*3)+1/(3*4)…… 直到最后一项绝对值小于0.006为止

VB求和:1/(1*2)-1/(2*3)+1/(3*4)…… 直到最后一项绝对值小于0.006为止
VB求和:1/(1*2)-1/(2*3)+1/(3*4)…… 直到最后一项绝对值小于0.006为止

VB求和:1/(1*2)-1/(2*3)+1/(3*4)…… 直到最后一项绝对值小于0.006为止
'试一下
Private Sub Command1_Click()
Dim sum,i,t
Do
i = i + 1
t = 1 / (i * (i + 1))
If t < 0.06 Then Exit Do
sum = sum + (-1) ^ (i + 1) * t
Loop
Print sum
End Sub