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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/26 21:31:22
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求和

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