vb程序设计：S= 1-1/4+1/7-1/10+1/13-1/16 求级数和直到最后一项小于0.01

Private Sub Command1_Click()
Dim b, n As Integer 'b是项的数量，n是记数用的
Dim a, j As Double 'a是保存结果用的，j是text2的值
j = Text2.Text 'text2输入0.01
b = (1 - j) / 3 * j + 1
For n = 0 To b
a = a + ((-1) ^ n) / (1 + 3 * n)
Next
Text1.Text = a
End Sub

Private Sub Form_Click()
Dim sum#, n#, i#, sign%
sum = 0: n = 1: i = 1: sign = 1
Do
sum = sum + n
i = i + 3
sign = -sign
n = sign / i
Loop Until n < 0.01
Print "级数求和得结果为S=" & sum
End Sub
'希望对你有帮助!~ ^_^b

具体VB程序记不得，只能给你提供算法了
利用do…… while循环来求，注意规律 m=P/i;i=i+3;p=p*(-1);sum=sum+m
循环直到m*100<1为止