VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 21:11:16
![VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值](/uploads/image/z/1832371-43-1.jpg?t=VB%E5%88%86%E5%88%AB%E5%88%A9%E7%94%A8For%E5%92%8CDo%E5%BE%AA%E7%8E%AF%E8%AF%AD%E5%8F%A5%E6%B1%82s%3D1%2B1%2F2%2B1%2F4%2B1%2F7%2B1%2F11%2B1%2F16%2B1%2F22%2B%E2%80%A6%E2%80%A6%E7%9A%84%E5%80%BC%2C%E5%BD%93%E7%AC%ACi%E9%A1%B9%E7%9A%84%E5%80%BC)
VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值
VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值
VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer = 1, s As Single, i As Integer
Do While 1.0! / x > 10 ^ -5
s = s + 1.0! / x
i = i + 1
x = x + i
Loop
Label1.Text = s & "," & i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As Integer = 1, s As Single, i As Integer
For i = 1 To 100000
If 1.0! / x < 10 ^ -5 Then Exit For
s = s + 1.0! / x
x = x + i
Next
Label2.Text = s & "," & i - 1
End Sub
End Class