Question

VB问题。1/2+2/3+3/5+4/8+5/12……前n项的和

1/2+2/3+3/5+4/8+5/12……前n项的和。学校计算机VB要考试了，谁能帮帮忙解答一下这道题？谢了

Answer 1

Private Sub Command1_Click()
Dim m, n As Integer
Dim s, q As Single
n = InputBox("n="毁空, "输入n"纤稿瞎)
q = 2
For m = 1 To n
q = q + m - 1
s = s + m /敬友 q
Next m
Print s
End Sub

Answer 2

function sums(n)
dim j,a
a=0
j=1
for i=1 to n

a=a+(i/(i+j))
j=i+j-1
next
sums=a
end function
dim b
b=sums(4)
Response.write(b)

我这个是ASP脚谨码哪本。但是VB语言。关键看清祥码分子和分母的关系。i和j你看得模芹懂了吧

Answer 3

Dim m,q,qLast
Dim n,Result
n=20
q = 1
qLast = 2
For i=1 To n
m = i
q = qLast
Result = Result + m/q
qLast = q + m
Next
MsgBox "结果：" & Result