Question

VB中求π的值的代码编写

Dim n, t, s As Double
s = 1 : t = 2
For n = 1 To 1000
s *= (2 * n) * (2 * n) / (2 * n - 1) * (2 * n + 1)
t = s * t
Next
Label2.Text = "π的近似值为" & s

这个s=1,t=2的意思到底是什么啊？怎么把变量类型和常数2改为双精度型啊

Answer 1

s=1是多余的，t=2是赋初值。其实你的代码有问题，下面是改正并简化的代码：

Dim n As Integer, t As Double
t = 2
For n = 1 To 1000
t = t * 4 * n ^ 2 / (4 * n ^ 2 - 1)
Next
Label2.Caption = "π的近似值为" & t

Answer 2

s=1,t=2的意思到底是什么啊？
答：s=1是为了最后求出π的近似值。t=2，不知道什么意思。
怎么把变量类型和常数2改为双精度型啊？
答：可以使用s=CDbl(1):t=CDbl(2)

如果好，加分啊！