Dim a%，b#，c%，d#
a = 1‘項目編號
‘b = 0‘存儲初始值為0的累積和。
c = 1‘符號系數，第壹項為正。
做
d = 1/（2 * a-1）
b = b + c * d
c = -c
a = a + 1
Abs（d）》時循環；0.001
打印a、b
末端接頭
看看這個！