UC知道VB计算题求解，很简单的，可我就是不会
来源：百度知道 编辑：UC知道 时间：2024/06/04 17:17:52
1- 〔 x^2/2!-x^4/4!+x^6/6!- … +(-1)^(n-1)*x^(2n)/(2n)!+ …〕 （其中， ^ 表示幂运算， ! 表示求阶）
21、编程题。设 n=20 ， x=0.5 ，编写程序，计算并输出下面级数的部分和。结果取小数点后面 6 位。
x/1!-x^3/3!+x^5/5!- … +(-1)^(n-1)*x^(2n-1)/(2n-1)!+ … （其中， ^ 表示幂运算， ! 表示求阶乘）
18、编写程序，计算并输出下面级数中偶数项的部分和ES2，求和过程在第一次出现和值ES2的绝对值大于50时结束。
原级数和可表示为： 1*2-2*3+3*4-4*5+……+(-1)^(n-1)*n*(n+1)+ ……
15.编写程序，求下面级数前 n 项的和 S，在求和过程中，当某一项（注意，该项参与求和）的绝对值小于 0.0001 时，求和终止并输出结果S
。结果取 5 位小数。
1-1/3^3+1/5^3-1/7^3+ … +(-1)^(n-1)/(2n-1)^3+ … （其中， ^ 表示幂运算）
Private Sub Command1_Click()
sign = 1: s = 0: i = 1: term = 1
While (Abs(term) >= 0.0001)
Sum = Sum + term
sign = -sign
i = i + 2
term = sign / (i * i * i)
Wend
Print Format(Sum, "#####")
End Sub
10、编写程序，求下面级数前n项的和S。在求和过程中，当某项（注意，该项参与求和）的值小于0.0001 时求和终止。结果取5位小数。
1+1/2^4+1/3^4+1/4^4+…+1/n^4+… （其中，^ 表示幂运算）
13、编写程序，计算并输出下面级数前n项(n=50)中偶数项的和。
s = 1*2+2*3+3*4+4*5+……+n*(n+1)+…
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 50 Step 2
sum = sum + i * (i + 1)
Next
TextBox1.Text = sum
58、计算sum=1*3*5...*9
Dim i As Integer, sum As Integer
sum = 1
For i = 1 To 9 Step 2
sum = sum * i
Next
6..用级数s＝1+1/(3*3)+1/(5*5)+1/(7*7)+…+1/((2n-1)*(2n-1))+…，求s的近似值，当某一项（注意，该项参与求和）的绝对值小于 0.0001 时，求和终止并输出结果S 。结果保留5位小数。________________________________________
Dim n As Integer, i As Integer, s As Double, arr(51) As Single
Dim str As String
'1/((2n-1)*(2n-1))<0.0001即2n-1>100,所以n=51
s = 0
For n = 0 To 50
arr(n) = 1 / (2 * n + 1) ^ 2
s = s + arr(n)
Next
str = CStr(s)
i = InStr(1, str, "."