用VB计算π的近似值 如图所示
1个回答
展开全部
Private Sub Command1_Click()
Print pi(50)
Print pi(1000)
End Sub
Function pi(n As Double) As Double
Dim s As Double
Dim i As Double
s = 2
For i = 1 To n
s = s * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))
Next
pi = s
End Function
Print pi(50)
Print pi(1000)
End Sub
Function pi(n As Double) As Double
Dim s As Double
Dim i As Double
s = 2
For i = 1 To n
s = s * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))
Next
pi = s
End Function
追问
系统说print n（50）那里没有声明 怎么办？
追答
print pi（50） 不是n（50）
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
图为信息科技（深圳）有限公司
2021-01-25 广告
边缘计算可以咨询图为信息科技(深圳)有限公司了解一下，图为信息科技（深圳）有限公司（简称：图为信息科技）是基于视觉处理的边缘计算方案解决商。作为一家创新企业，多年来始终专注于人工智能领域的发展，致力于为客户提供满意的解决方案。...
点击进入详情页
本回答由图为信息科技（深圳）有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
