1樓：宇智波貝蒂
private sub form_click()dim pi as double
dim n as long
n = 1
dopi = pi + 4 * ((-1) ^ (n - 1) * (1 / (2 * n - 1)))
n = n + 1
loop until 1 / (2 * n - 1) < 0.000001
print n
end sub
2樓：匿名使用者
private sub command1_click()dim pi, n
n = 1
pi = 2
do while pi < 3.141592pi = pi * ((2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1)))
n = n + 1
loop
print pi
print n-1
end sub
'n=1201670
3樓：
sub cc()
p = 0.000001
n = 1
pp = 2
do while (pp * 10 ^ 6 - int(pp * 10 ^ 6) > p or n = 1)
pp = pp * ((2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1)))
n = n + 1
loop
msgbox n
end sub
vb 根據公式計算π的近似值π/2=1+1/3+1/3*2/5+1/3*2/5*3/7
4樓：聽不清啊
#include
main()
printf("pi=%lf\n",p);
system ("pause");}
程式設計！c++，計算π的近似值π=2×(2×2/1×3)×(4×4/3×5)×(6×6/5×7)×……[2n×2n/(2n-1)×(2n 1)]
5樓：匿名使用者
#include
double fun(double n)
int main(void)
{double sum= 2;
for (int n= 1; n<= 1000; n++){sum*= fun(n);
if(n==10)
cout<<"n= 10時,\tπ= "<
6樓：匿名使用者
#include
using namespace std;
void ans(int n)
{cout<
π/2=1+1/3*2/5+1/3*2/5*3/7......用子函式c程式求π的近似值，新手，求詳細程式~
7樓：匿名使用者
因為你忘記對m初始化了。
正確**：
#include
double func(int m)
return p;
}void main()
執行結果：
編寫VB程式，計算1！ 2 ，編寫VB程式，計算1！ 2 3 4 9 10 的值
九條可憐 function jc a 階乘計算，自定義函式if a 0 then jc 1 規定0 1。數學上的 else i 1 不能等於0，任何數乘以0都等於0，最終答案是0jc 1 不能等於0，任何數乘以0都等於0，最終答案是0while i a 如果i a，那麼執行迴圈體jc jc i 最後...
關於vb迴圈次數的問題？急，VB計算迴圈的次數
誤差造成 請看這段程式 private sub form click dim i as single for i 0.2 to 1 step 0.1 print i next end sub 輸出結果是 2.3 4.5 6.7 8000001 9000001 你可以把程式放入vb除錯一下，最後2行也...
vb編寫函式，實現計算1 2n
private function a n as integer as long dim sum as long,nn as integer,i,jsum 0 for j 1 to n nn 1 for i 1 to j nn nn i next i sum sum nn next j a sum e...