Question

VB两个计算题

27、编写程序，计算并输出下面级数前 n 项 (n=20) 中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6+ … +(-1)^(n-1)*n*(n+1)*(n+2)+ … （其中， ^ 表示幂运算）

29、用级数s＝1+1/(3*3)+1/(5*5)+1/(7*7)+…+1/((2n-1)*(2n-1))+…，求s的近似值，当某一项（注意，该项参与求和）的绝对值小于 0.0001 时，求和终止并输出结果S 。结果保留5位小数。

23、输入两个整数m、n，编写程序使得m>=n，并输出m、n的值。

24、编程题.设n=20，x=0.5，编写程序，计算并输出下面级数的部分和。结果取6位小数
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)+ ……

58、计算sum=1*3*5...*9
。
15.编写程序，求下面级数前 n 项的和 S，在求和过程中，当某一项（注意，该项参与求和）的绝对值小于 0.0001 时，求和终止并输出结果S。结果取 5 位小数。
1-1/3^3+1/5^3-1/7^3+ … +(-1)^(n-1)/(2n-1)^3+ … （其中， ^ 表示幂运算）

13、编写程序，计算并输出下面级数前n项(n=50)中偶数项的和。
s = 1*2+2*3+3*4+4*5+……+n*(n+1)+…

1!-2!+3!-4!+ … +(-1)^(n-1)*n!+ … （其中， ^ 表示幂运算， ! 表示求阶乘）

10、编写程序，求下面级数前n项的和S。在求和过程中，当某项（注意，该项参与求和）的值小于0.0001 时求和终止。结果取5位小数。

1+1/2^4+1/3^4+1/4^4+…+1/n^4+… （其中，^ 表示幂运算）

6..用级数s＝1+1/(3*3)+1/(5*5)+1/(7*7)+…+1/((2n-1)*(2n-1))+…，求s的近似值，当某一项（注意，该项参与求和）的绝对值小于 0.0001 时，求和终止并输出结果S 。结果保留5位小数。________________________________________

1..编写程序，求下面级数前 n 项中奇数项的和 OS 。在求和过程中，以第一个奇数项的数值大于 9999 的项为末项（注意，该项参与求和），计算并输出和数 OS 。
1!-2!+3!-4!+ … +(-1)^(n-1)*n!+ … （其中， ^ 表示幂运算， ! 表示求阶乘）

随便解出一题就给分

Answer 1

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, ".")
str = Mid(str, 1, i + 5)
TextBox1.Text = str
TextBox1.Text = sum

27、编写程序，计算并输出下面级数前 n 项 (n=20) 中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6+ … +(-1)^(n-1)*n*(n+1)*(n+2)+ … （其中， ^ 表示幂运算）
sum = 0
For n = 1 To 20
t = n * (n + 1) * (n + 2)
f = n Mod 2
If f = 1 Then sum = sum + t
Else
s = s - t
Next n
Text1.Text = sum

Answer 2

27、编写程序，计算并输出下面级数前 n 项 (n=20) 中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6+ … +(-1)^(n-1)*n*(n+1)*(n+2)+ … （其中， ^ 表示幂运算）

先建立两个控件,TEXT1 和 COMMAND1
单击COMMAND1,输入程序:

Private Sub Command1_Click()
s = 0
For n = 1 To 20
t = n * (n + 1) * (n + 2)
f = n Mod 2
If f = 1 Then s = s + t Else s = s - t
Next n
Text1.Text = s
End Sub

运算结果是-4950

Answer 3

来个简单的58
Private Sub Command1_Click()
Sum = 1
For i = 1 To 9 Step 2
Sum = Sum * i
Next i
Print Sum
End Sub

Answer 4

等等，这是“两个”？
实际就是一个：循环！
没有看出第二个题。

Answer 5

很简单
就是分数太少了
不给你做