【用vb中的for循环计算π的近似值.要求输入一个数然后根据这个数求近似公式要用π=2*(4/(1*3))*(16/(3*5))*(36/(5*7))*...】
7人问答
问题描述：
用vb中的for循环计算π的近似值.要求输入一个数然后根据这个数求近似
公式要用π=2*(4/(1*3))*(16/(3*5))*(36/(5*7))*...
胡玥回答：
PrivateSubCommand1_Click()Dimn,pi,ipi=2n=Val(InputBox("请输入一个数"))Fori=1Tonpi=pi*((2*i)^2/((2*i-1)*(2*i+1)))NextiMsgBox"π的近似值为"&piEndSub
艾萍回答：
Dimn,t,sAsDoubles=1:t=2Forn=1To s*= t=NextLabel1.Text="π的近似值为"&s如果代码框架是这个样子的该怎么办？我尝试了你的办法，输入50和1000出来的结果是一样的，如果要求再精确点怎么办？
艾萍回答：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimn,sAsDoublen=Val(TextBox1.Text)Label2.Text=""s=2Forn=1To10000s*=((2.0#*n)^2.0#/((2.0#*n-1)*(2.0#*n+1)))NextLabel2.Text="π的近似值为"&s这个是我的代码，麻烦了
胡玥回答：
你这代码有问题吧，2.0#这个代表啥意思？？s*？？n=Val(TextBox1.Text)说明n值是输入的，但与后面的Forn=1To10000相矛盾还有Label2.Text，Label的属性应该是caption属性吧，没有这么表示的....
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
数学推荐
数学推荐
最新更新
精品分类
优秀数学推荐
热门数学
邮箱： 
