Question

怎么用VB6.0计算圆周率

Answer 1

Private Sub Command1_Click()

  p = 1

  t = 1

  i = 1

  While t > 0.000000001

    t = t * i / (i + i + 1)

    p = p + t

    i = i + 1

  Wend

  Print "Pi="; p * 2

End Sub

追问

怎么才能让他显示在某个文本框里