用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/09 19:47:42
用vb 求π
Private Sub Form_Click()
Dim i As Long,pi As Double,k As Integer,m As Double
i = 1
k = 1
pi = 0
m = 1
While (m > 0.00001)
m = 1 / (2 * i - 1)
pi = pi + k * m
i = i + 1
k = -k
Wend
Print "π "; 4 * pi
End Sub
Private Sub Form_Click()
Dim pi,c,s As Single
pi = 0
s = 1
For c = 1 To 10000 Step 2
pi = pi + s / c
s = -s
Next c
Print "π="; pi * 4
End Sub
Private Sub Form_Click()
Dim i As Long,pi As Double,k As Integer,m As Double
i = 1
k = 1
pi = 0
m = 1
While (m > 0.00001)
m = 1 / (2 * i - 1)
pi = pi + k * m
i = i + 1
k = -k
Wend
Print "π "; 4 * pi
End Sub
Private Sub Form_Click()
Dim pi,c,s As Single
pi = 0
s = 1
For c = 1 To 10000 Step 2
pi = pi + s / c
s = -s
Next c
Print "π="; pi * 4
End Sub
这是级别展开式,你学到高等数学就会明白的
pi/4=1-1/3!+1/5!-1/7!+...
再问: 我现在就想知道
再答: 你知道什么是导数吗?你知道什么是泰勒展开式吗?
再问: 导数肯定知道的 后面那个不懂
pi/4=1-1/3!+1/5!-1/7!+...
再问: 我现在就想知道
再答: 你知道什么是导数吗?你知道什么是泰勒展开式吗?
再问: 导数肯定知道的 后面那个不懂
用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k
Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As In
Private Sub Form_Click() Dim a As Integer,b As Integer,k As
问一道VB填空题:Private Sub Form_Click() Dim x As Integ
英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max
Private Sub Command1_Click() Dim i As Double,M As Double,L A
vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp
33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As
几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(
帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b
9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer
VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin