VB的问题~~~（循环结构）题目：“单击窗体时，求1+1/3+1/5+1/7+...的和，直到所加项小于10-3，并使用消息框显示最终结果。”貌似是直接打印在窗体上的，这几天做了太多的这种题了，转

Question

VB的问题~~~（循环结构）
题目：“单击窗体时，求 1+1/3+1/5+1/7+... 的和，直到所加项 小于10-3，并使用消息框显示最终结果。”
貌似是直接打印在窗体上的，这几天做了太多的这种题了，转不过来了。谢谢回答我问题的大侠了~~

Answer 1

Private Sub Form_Click()
Dim n As Long
Dim sum
n = 1
Do Until 1 / (2 * n - 1) < 0.001
sum = sum + (1 / (2 * n - 1))
n = n + 1
Loop
MsgBox sum
End Sub