使用公司，来求π的近似值，直到最后一项的值小于10^-4为止。

高老师2年前 (2024-06-22)Visual Basic程序设计(07759)21

Private Sub Command 1_Click()Dim i As Integer, sum As Single, t As Singlei = 1sum = 0t = 1Dosum = sum + ti = i + 1t = 1/i/iLoop While t>0. 0001Print “ 的近似值”， Sqr（6 * sum）End Sub

扫描二维码免费使用微信小程序搜题/刷题/查看解析。

本文链接：https://doc.20230611.cn/post/672204.html

分享给朋友：

返回列表

上一篇：回族在服饰上最有民族特色的是

下一篇：简述我国教育督学的职权。

使用公司，来求π的近似值，直到最后一项的值小于10-4为止。

使用公司，来求π的近似值，直到最后一项的值小于10^-4为止。