Question

VB计算π的值

大一vb作业 这个咋做啊





Answer 1

sub form_load()
dim a,x as integer
dim pi as single
pi=0
for i=1 to 30000
x=((-1)^(i+1))*(2*i-1)
pi=1/x+pi
next i
print 4*pi
end sub
“一定要能算到上千万位！”
你疯了吗？你学过计算机吗？怎么也不可能吧，一个32位pc机，用vb算？ 用这个公式？
用牛顿迭代，vb仅能算到精确14位，速度还行，你这算法算6位电脑就卡爆了。c语言能好些，但也好不到哪去。