Question

用vb求1/1+2/3+3/5+4/7+5/9+……的前n项之和

用vb求1/1+2/3+3/5+4/7+5/9+……的前n项之和
用for循环

Answer 1

Private Sub Command1_Click()
  Dim n As Integer, Sum As Double
  n = InputBox("n=")
  For i = 1 To n
    Sum = Sum + i / (2 * i - 1)
  Next i
  Print "Sum(i=1 to " & n & ")[i/(2i+1))]="; Sum
End Sub

Answer 2

dim i as integer , s as double, n as integer
n=val(inputbox("请输入n"))
for i=1 to n
s=s+ i/(2*i-1)
next i