本人初学者，问VB求圆周率的问题

Question

题目是有一公式计算pi，显示当n=10，50，100时，pi的值各为多少
我已写的代码如下：
Dim pi As Double, n As Long
Private Sub Command1_Click()
    pi = 2
    For n = 1 To 10000
        pi = pi * ((2 * n) / (2 * n - 1)) * ((2 * n) / (2 * n + 1))
        Next n
        
End Sub我设置了3个label(label1,label2,label3），想三个label同时分别显示当n=10，50，100的pi值，但不知怎么写，请各位大虾指教，谢谢啦。

Answer 1

Dim pi As Double, n As Long
Private Sub Command1_Click()
    pi = 2
    For n = 1 To 10000
        pi = pi * ((2 * n) / (2 * n - 1)) * ((2 * n) / (2 * n + 1))
        if n=10 then label1.caption=pi
        if n=50 then label2.caption=pi
        if n=100 then label3.caption=pi
        Next n
        
End Sub