#include <stdio.h>main(){ long i,a=1,b=3; double p=1,t=1,t1=0; while(t-t1>=1e-8) {  t1=t;  t*=a/b;  p+=t;  a++;  b+=2; } printf("...這是什么程序算的？

哦上面這個是C的。VB的如下：

Private Sub Command1_Click()

  a = 1: b = 3: p = 1: t = 1: t1 = 2

  While t1 - t >= 0.00000001

    t1 = t: t = t * a / b

    p = p + t: a = a + 1: b = b + 2

  Wend

  Print "Pi="; 2 * p

End Sub

ok請采納。