求教一道简单的VB题,直到最后一项的绝对值小于10-5为止.1-1/(1*2)+1/(2*3)-不知道哪里错了Private Sub Command1_Click()Dim a As Double,i As Integer,s As Singlef = -1i = 1Doa = 1 / (i * (i + 1))s = 1 + f * ai = i + 1f = -
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/22 00:55:13
![求教一道简单的VB题,直到最后一项的绝对值小于10-5为止.1-1/(1*2)+1/(2*3)-不知道哪里错了Private Sub Command1_Click()Dim a As Double,i As Integer,s As Singlef = -1i = 1Doa = 1 / (i * (i + 1))s = 1 + f * ai = i + 1f = -](/uploads/image/z/7036923-3-3.jpg?t=%E6%B1%82%E6%95%99%E4%B8%80%E9%81%93%E7%AE%80%E5%8D%95%E7%9A%84VB%E9%A2%98%2C%E7%9B%B4%E5%88%B0%E6%9C%80%E5%90%8E%E4%B8%80%E9%A1%B9%E7%9A%84%E7%BB%9D%E5%AF%B9%E5%80%BC%E5%B0%8F%E4%BA%8E10-5%E4%B8%BA%E6%AD%A2.1-1%2F%EF%BC%881%2A2%EF%BC%89%2B1%2F%EF%BC%882%2A3%EF%BC%89-%E4%B8%8D%E7%9F%A5%E9%81%93%E5%93%AA%E9%87%8C%E9%94%99%E4%BA%86Private+Sub+Command1_Click%28%29Dim+a+As+Double%2Ci+As+Integer%2Cs+As+Singlef+%3D+-1i+%3D+1Doa+%3D+1+%2F+%28i+%2A+%28i+%2B+1%29%29s+%3D+1+%2B+f+%2A+ai+%3D+i+%2B+1f+%3D+-)
求教一道简单的VB题,直到最后一项的绝对值小于10-5为止.1-1/(1*2)+1/(2*3)-不知道哪里错了Private Sub Command1_Click()Dim a As Double,i As Integer,s As Singlef = -1i = 1Doa = 1 / (i * (i + 1))s = 1 + f * ai = i + 1f = -
求教一道简单的VB题,直到最后一项的绝对值小于10-5为止.1-1/(1*2)+1/(2*3)-
不知道哪里错了Private Sub Command1_Click()
Dim a As Double,i As Integer,s As Single
f = -1
i = 1
Do
a = 1 / (i * (i + 1))
s = 1 + f * a
i = i + 1
f = -f
Loop Until Abs(a) < 10 ^ (-5)
Print s
End Sub
求教
求教一道简单的VB题,直到最后一项的绝对值小于10-5为止.1-1/(1*2)+1/(2*3)-不知道哪里错了Private Sub Command1_Click()Dim a As Double,i As Integer,s As Singlef = -1i = 1Doa = 1 / (i * (i + 1))s = 1 + f * ai = i + 1f = -
Private Sub Command1_Click()
Dim a As Double,i As Long,s As Single
f = -1
i = 1
Do
a = 1 / (i * (i + 1))
s = 1 + f * a
i = i + 1
f = -f
Loop Until Abs(a) < 10 ^ (-5)
Print s
End Sub