'VB:Private Sub Form_Click()    Dim pi As Double,i As Double,n As Double    pi = 0    i = 0    Do While 1 = 1        i = i + 1  &nb...