Private Sub Form_Click()Dim i&, PI#Do i = i + 1 PI = PI + (-1) ^ (i - 1) / (2 * i - 1)Loop Until 1 / i < 0.0000001 '将条件判断语句放在后面PI = PI * 4Print "π="; PIEnd Sub