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 Su