主题：级数求丌的近似值
cpbdn
[专家分：0] 发布于 2008-10-08 00:31:00
丌/4=1-1/3+1/5-1/7+.....级数求丌的近似值
回复列表 （共5个回复）
沙发
老大徒伤悲 [专家分：29120] 发布于 2008-10-08 09:45:00
你说的不错，就是这个公式。
但是这个公式的收敛速度有点慢。
板凳
cpbdn [专家分：0] 发布于 2008-10-08 13:24:00
是啊,就是两个文本框和一个标签和一个按钮.那我要要在text1.text输入项数,求丌显示在text2.text怎么编程序啊!谢谢.......
3 楼
cpbdn [专家分：0] 发布于 2008-10-08 13:27:00
麻烦帮我写一写那个程序
4 楼
pariszh [专家分：740] 发布于 2008-10-08 15:10:00
朋友，编程序还得自己动脑筋，最好不要总找人要!
Dim Pi As Single
Dim N As Long, F As Integer
Private Sub Command1_Click()
Pi = 0
F = 1
For N = 1 To Val(Text1.Text) Step 2
Pi = Pi + F / N
F = -F
Next N
Pi = Pi * 4
Label1.Caption = Pi
End Sub
5 楼
cpbdn [专家分：0] 发布于 2008-10-08 22:24:00
谢谢了。。。。。不好意思，我实在是想不出来，我是新手，我刚学习。我会努力的
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 级数求丌的近似值