vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n-1)!感叹号是阶乘的意思Private Sub Form_Click()Dim x%,,i%,q%x = Val(InputBox("请输入X的值"))Do While t >= 10 ^ (-5)s = s + tn = n + 1For k = 1 To 2 * n - 1q = q * kNex
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/17 09:11:11
![vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n-1)!感叹号是阶乘的意思Private Sub Form_Click()Dim x%,,i%,q%x = Val(InputBox(](/uploads/image/z/3012106-58-6.jpg?t=vb%E6%B1%82%E5%92%8C%2C%E6%B1%82sin%28x%29%3Dx%2F1-x%5E3%2F3%21%2Bx%5E5%2F5%21-+%E2%80%A6%E2%80%A6+%28-1%29%5E%28n-1%29%2A+x%5E%282%2An-1%29%2F%282n-1%29%21%E6%84%9F%E5%8F%B9%E5%8F%B7%E6%98%AF%E9%98%B6%E4%B9%98%E7%9A%84%E6%84%8F%E6%80%9DPrivate+Sub+Form_Click%28%29Dim+x%25%2C%2Ci%25%2Cq%25x+%3D+Val%28InputBox%28%22%E8%AF%B7%E8%BE%93%E5%85%A5X%E7%9A%84%E5%80%BC%22%29%29Do+While+t+%3E%3D+10+%5E+%28-5%29s+%3D+s+%2B+tn+%3D+n+%2B+1For+k+%3D+1+To+2+%2A+n+-+1q+%3D+q+%2A+kNex)
vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n-1)!感叹号是阶乘的意思Private Sub Form_Click()Dim x%,,i%,q%x = Val(InputBox("请输入X的值"))Do While t >= 10 ^ (-5)s = s + tn = n + 1For k = 1 To 2 * n - 1q = q * kNex
vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n-1)!感叹号是阶乘的意思
Private Sub Form_Click()
Dim x%,,i%,q%
x = Val(InputBox("请输入X的值"))
Do While t >= 10 ^ (-5)
s = s + t
n = n + 1
For k = 1 To 2 * n - 1
q = q * k
Next k
t = ((-1) ^ (n - 1)) * (x ^ (2 * n - 1)) \ q
Loop
Print "s="; s
End Sub
当第n项的值小于10^-5时结束
vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n-1)!感叹号是阶乘的意思Private Sub Form_Click()Dim x%,,i%,q%x = Val(InputBox("请输入X的值"))Do While t >= 10 ^ (-5)s = s + tn = n + 1For k = 1 To 2 * n - 1q = q * kNex
Private Sub Form_Click()
Dim x%,s!,i%,q%
x = Val(InputBox("请输入X的值"))
Do While t >= 10 ^ (-5) '问题出在这里,因为t的初值是0,所以t