俺对VB一点都没接触过，不过好想学学，前天有人托我这些题用VB实现，我就那个头麻了，前来这里求求题。各位请标清楚题号啊，如果有人做出了，大家就不要再去写了，当然，如果你的方法更简单优秀，那你一定不能不写啊，呵呵，谢谢大家了。请看二楼的题。再谢谢了啊!三百分，如果人数多的话，我还要加分。
只顶不作题的，给分不多，我准备抽30分给顶的，余下给大虾们。谢谢了!大虾们如果多，我继续加分，只要你出力了，一定有你好分。我刚刚出了300分，好像不让出。呵呵，先出200啦，以后多加分。300之后还可以加。谢谢啊,晕，２00也不能啊？？？？那我分三次发了！！
只顶不作题的，给分不多，我准备抽30分给顶的，余下给大虾们。谢谢了!大虾们如果多，我继续加分，只要你出力了，一定有你好分。我刚刚出了300分，好像不让出。呵呵，先出200啦，以后多加分。300之后还可以加。谢谢啊,晕，２00也不能啊？？？？那我分三次发了！！
1/(1*2),1/(2*3),1/(3*4),……,1/(n*(n+1)),……
11、编写程序，计算并输出下面数列前n（设n=40）项中偶数项的和。结果取4位小数。
1/(1*2),1/(2*3),1/(3*4),……,1/(n*(n+1)),……
12、编写程序，计算并输出下面数列前n（设n=45）项中所有偶数项的和。
1*2*3,3*4*5,5*6*7,……,(2n-1)*2n*(2n+1),……
13、编写程序，计算并输出下面数列前n（设n=45）项中所有偶数项的和。
1*2,2*3,3*4,4*5,……,n*(n+1),……
14、编写程序，计算并输出下面数列前n（设n=45）项中所有奇数项的和。
1*2*3,3*4*5,5*6*7,……,(2n-1)*2n*(2n+1),……
15、编写程序，计算并输出下面数列前n（设n=45）项中所有奇数项的和。
1*2,2*3,3*4,4*5,……,n*(n+1),……
16、编写程序，计算并输出下面数列前n（设n=45）项中所有奇数项的和。
1*2,2*3,3*4,4*5,……,n*(n+1),……
17、编写程序，计算并输出下面数列前n项(设n=50)的和。
1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),…… （其中，^ 表示幂运算）
18、编写程序，计算并输出下面数列前n项的和(设n=50，x=0.4)，要求结果保留4位小数。
cos(x)/2,cos(2x)/4,cos(3x)/6,……,cos(n*x)/2n,……（其中，cos（x）为余弦函数）
19、编写程序，计算并输出下面数列前n项的和(设n=50，x=0.5)，要求结果保留4位小数。
cos(x)/x,cos(2x)/2x,cos(3x)/3x, …… ,cos(n*x)/(n*x), ……
（其中，cos(x)为余弦函数）
20、编写程序，计算并输出下面数列前n项的和(设n=50，x=0.5)，要求结果保留4位小数。
sin(x)/x,sin(2x)/2x,sin(3x)/3x, …… ,sin(n*x)/(n*x) ,……
（其中，sin(x)为正弦函数）
21、编写程序，计算并输出下面数列前n项的和(设n=50，x=2.5)，要求结果保留4位小数。
cos(x)/x,cos(2x)/x^2,cos(3x)/x^3, …… ,cos(n*x)/x^n,…
（其中，cos(x)为余弦函数,^ 表示幂运算）
22、编写程序，计算并输出下面数列前n项的和(设n=50，x=2.5)，要求结果保留4位小数。
sin(x)/x,sin(2x)/x^2,sin(3x)/x^3,……,sin(n*x)/x^n,……
（其中，sin(x)为正弦函数,^ 表示幂运算）
23、编写程序，计算下面数列的部分和S，当某项(即某项1/(n*(n+1)))的值小于0.0001时
求和终止并输出S,但该项仍需参与求和。结果取4位小数。
1/(1*2),1/(2*3),1/(3*4),……,1/(n*(n+1)),……
24、编写程序，计算下面数列的部分和S，在求和过程中，当S>0.235时求和终止并输出S。
结果取4位小数。
1/(1*2*3),1/(2*3*4),1/(3*4*5),……,1/(n*(n+1)*(n+2)),……
25、编写程序，计算下面数列前n项(设n=50)中偶数项的和。结果取4位小数。
1/(1*2*3),1/(2*3*4),1/(3*4*5),……,1/(n(n+1)(n+2)),……
26、编写程序，计算下面数列前n项(设n=50)中奇数项的和。结果取4位小数。
1/(1*2*3),1/(2*3*4),1/(3*4*5),……,1/(n(n+1)(n+2)),……
27、编写程序，求下面数列的和S，当某项（即1/n!）的值小于0.005时求和终止并输出s,
该项参入求和。结果取4位小数。
1/1!,1/2!,1/3!,……,1/n!,……（其中，! 表示求阶乘）
28、编写程序，求下面数列前30项的和。结果取4位小数。
1,-1/3^3,1/5^3,1/7^3,……,(-1)^(n-1)/(2n-1)^3,……（其中，^ 表示幂运算）
29、编写程序，求下面数列前40项的和。结果取4位小数。
1,1/2^4,1/3^4,1/4^4,……,1/n^4,……（其中，^ 表示幂运算）
30、编写程序，求下面数列前45项的和。结果取4位小数。
1,-1/(2*2),1/(3*3),-1/(4*4),……,(-1)^(n-1)/(n*n),……（其中，^ 表示幂运算）
31、编写程序，求下面数列前50项的和。结果取4位小数。
1,1/(3*3),1/(5*5),1/(7*7),……,1/((2n-1)*(2n-1)),……
32、编写程序，求下面数列前50项的和。结果取4位小数。
1,-1/2^4,1/3^4,-1/4^4,……,(-1)^(n-1)/n^4,……（其中，^ 表示幂运算）
33、编写程序计算并输出下面数列前n项的和，当第一次出现和数的绝对值大于5000时求和终止。
1*2*3,-2*3*4,3*4*5,-4*5*6,……,(-1)^(n-1)*n*(n+1)*(n+2),……,（其中，^ 表示幂运算）
给你第一个，其他的自己搞定
Private Sub Command1_Click()
For i = 1 To 40
tem = 1 / (i * (i + 1))
sum=sum+tem
Next
print format(sum,"0.0000")
End Sub郁闷，相似的就别搞出来嘛，还说学了vb呢
Private Sub Command1_Click()
For i = 1 To 40
if i mod 2=0 then
tem = 1 / (i * (i + 1))
sum=sum+tem
end if
Next
print format(sum,"0.0000")
End Sub