VB计算圆周率π的近似值

 我来答
syx54
2015-04-12 · TA获得超过7379个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2763万
展开全部

完整的代码如下:

Dim Pi As Single

Dim i As Single

Dim Fh As Integer

Fh = -1

Pi = 0

For i = 1 To 1000000

   Fh = -1 * Fh

   Pi = Pi + Fh / (2 * i - 1)

Next i

Pi = Pi * 4

Print Pi

图为信息科技(深圳)有限公司
2021-01-25 广告
边缘计算可以咨询图为信息科技(深圳)有限公司了解一下,图为信息科技(深圳)有限公司(简称:图为信息科技)是基于视觉处理的边缘计算方案解决商。作为一家创新企业,多年来始终专注于人工智能领域的发展,致力于为客户提供满意的解决方案。... 点击进入详情页
本回答由图为信息科技(深圳)有限公司提供
保卫叼鱼岛
2015-04-11 · TA获得超过135个赞
知道小有建树答主
回答量:102
采纳率:0%
帮助的人:61.8万
展开全部
你可以用割圆法来计算。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式