vb简单编程:求自然对数e的近似值,当任意项的值小于10^(-4)是结束运算.用公式e=1+1/1!+1/2!+1/nPrivate Sub Command1_Click()Dim a#,s#,e%a = 1s = 1Dos = s * at = 1 / se = e + ta = a + 1Loop While s > 10000Print "e="; eEnd Su
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 02:08:08
![vb简单编程:求自然对数e的近似值,当任意项的值小于10^(-4)是结束运算.用公式e=1+1/1!+1/2!+1/nPrivate Sub Command1_Click()Dim a#,s#,e%a = 1s = 1Dos = s * at = 1 / se = e + ta = a + 1Loop While s > 10000Print](/uploads/image/z/1582814-38-4.jpg?t=vb%E7%AE%80%E5%8D%95%E7%BC%96%E7%A8%8B%EF%BC%9A%E6%B1%82%E8%87%AA%E7%84%B6%E5%AF%B9%E6%95%B0e%E7%9A%84%E8%BF%91%E4%BC%BC%E5%80%BC%2C%E5%BD%93%E4%BB%BB%E6%84%8F%E9%A1%B9%E7%9A%84%E5%80%BC%E5%B0%8F%E4%BA%8E10%5E%EF%BC%88-4%EF%BC%89%E6%98%AF%E7%BB%93%E6%9D%9F%E8%BF%90%E7%AE%97.%E7%94%A8%E5%85%AC%E5%BC%8Fe%3D1%2B1%2F1%21%2B1%2F2%21%2B1%2FnPrivate+Sub+Command1_Click%28%29Dim+a%23%2Cs%23%2Ce%25a+%3D+1s+%3D+1Dos+%3D+s+%2A+at+%3D+1+%2F+se+%3D+e+%2B+ta+%3D+a+%2B+1Loop+While+s+%3E+10000Print+%22e%3D%22%3B+eEnd+Su)
vb简单编程:求自然对数e的近似值,当任意项的值小于10^(-4)是结束运算.用公式e=1+1/1!+1/2!+1/nPrivate Sub Command1_Click()Dim a#,s#,e%a = 1s = 1Dos = s * at = 1 / se = e + ta = a + 1Loop While s > 10000Print "e="; eEnd Su
vb简单编程:求自然对数e的近似值,当任意项的值小于10^(-4)是结束运算.用公式e=1+1/1!+1/2!+1/n
Private Sub Command1_Click()
Dim a#,s#,e%
a = 1
s = 1
Do
s = s * a
t = 1 / s
e = e + t
a = a + 1
Loop While s > 10000
Print "e="; e
End Sub
错在哪?求分析错误程序
vb简单编程:求自然对数e的近似值,当任意项的值小于10^(-4)是结束运算.用公式e=1+1/1!+1/2!+1/nPrivate Sub Command1_Click()Dim a#,s#,e%a = 1s = 1Dos = s * at = 1 / se = e + ta = a + 1Loop While s > 10000Print "e="; eEnd Su
Dim a As Double
Dim s As Double
Dim e As Single
Dim t As Single
a = 1
s = 1
e = 1
Do While 1 / s >= 10 ^ (-0.4)
s = s * a
t = 1 / s
e = e + t
a = a + 1
Loop
Print "e="; e