用VB设计程序,求出1+1/3+1/5+1/7+.+1/(2*n-1)的值

Private Sub Command1_Click()
Dim n As Long 'n必须是长整型,否则会溢出
Dim x As Single,sum As Single
n = 1
Do
x = 1 / (2 * n - 1)
n = n + 1
sum = sum + x
Loop Until x < 0.00001
Text1.Text = "n = " & n & " ,sum = " & sum
End Su