计算PI值

1计算PI值（作者：草原飞狼2015年10月28日）声明：仅供学习与交流使用，高手请飘过，谢谢！布局运行界面（1）2运行界面（2）源代码如下：主程序代码：PrivateSubCommand1_Click()Rem计算PI值，核心算法是累加求和，注意循环结构的执行条件DimsumAsDoubleDimnAsDoubleDimtempAsDoubleDimmy_mubiaoAsDoublesum=0temp=1n=1k=0'记录循环次数my_mubiao=0.000000000001DoWhiletemp=my_mubiao'循环执行条件3sum=sum+tempn=n+1temp=1/(n*n)'得到下一个temp值k=k+1LoopText1.Text=Str(k)Text2.Text=Str(Sqr(6*sum))EndSubPrivateSubCommand2_Click()Rem退出Dimint_msgAsIntegerint_msg=MsgBox(单击“是”退出程序，单击“否”返回程序！,vbYesNo+vbQuestion+vbDefaultButton1,退出提示)Ifint_msg=vbYesThenUnloadMeElseMsgBox返回程序，继续进行！,vbOKOnly+vbInformation,程序返回EndIfEndSubPrivateSubCommand3_Click()Rem清空Text1.Text=Text2.Text=EndSub