VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/08/04 18:58:31
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
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
VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值
VB 利用for each...next循环语句,求 1+2+3+...+100的值 .
VB循环语句求s=1+3+5+……+2n-1的值
利用循环语句for/next,求1+1/(2*2)+1/(3*3)+……+1/(m*m)的前20项的和 用VB
分别用FOR和DO循环语句求1!+2!+···+n!的值
2、分别用三种循环语句(while语句、do-while语句、for语句),实现求1~100的累加和
利用Do…Loop循环语句求从1到100的累加和
当循环语句"For i=1 To 11 Step 5"执行完毕(结束循环)后,i的值是( ).
用for循环,while循环,do…while循环,分别编写程序求s=1+3+5+……+19的值,并显示结果
利用循环语句 用VB计算1到100的奇数的和
利用while,for,do-while循环语句计算求和问题:S=1-1/2+1/3-1/4+……1/999-1/100
VB Y用for循环语句计算s=1*(1/2)÷(1/3)×(1/4)÷(1/5)×……÷(1/97)×(1/99)的值