例5.4用π/4=1-1/3+1/5-1/7+…级数 求π的近似值(取前500来进行计算) 采用 Print直接在窗体上输出结果,程序代码如下: Private Sub Form Load Show Dim piAs single, c As Integer, s As Integer pI 01 s表示加或减运算 Forc= 1 To 10000 Step 2 pi= pi+ s/c 交替改变加、减号 ext c Print"π=";pi*4 End Sub 程序运行结果是 ★ 丌=3.141397采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 's表示加或减运算 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s '交替改变加、减号 Next c Print "π="; pi * 4 End Sub 程序运行结果是： π＝3.141397 例5.4 用π/4＝1 - 1/3 + 1/5 - 1/7 + ……级数 求π的近似值 (取前5000项来进行计算)