VB简易操作

显示全部楼层 · 2008-11-18 11:22:29

采用Doo…Loop循环，使用下面级数计算求∏，当计算到某一项式
（-1）^(n+1)/(2n-1)绝对值小于0.0001认为满足精度,停止计算。公式∏/4=1-1/3+1/5-1/7+1/9…+（-1）^(n+1)/(2n-1)。1.使用通项式求解，
（-1）^(n+1)/(2n-1)。2.使用迭代式求解，某项为1/n，则后一项为-1/（n+2）。不胜感激

千问 · 2008-11-18 11:22:29

dim n as integer dim pi as double n=1 do until 1/(2*n-1) < 0.0001pi = pi + (-1)^(n+1)/(2*n-1) n = n + 1 looppi = 4* pi print pi...