13问答网 > 用vb求1⼀1+2⼀3+3⼀5+4⼀7+5⼀9+……的前n项之和

用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循环

2025-03-04 05:25:55

推荐回答（2个）

回答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

回答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