vb 求一百项之和1+1/3+1/6+1/10+...+1/100

发布网友发布时间：2024-08-22 09:25

共3个回答

热心网友时间：2024-09-01 13:16

private sub command1_click()
dim sum as single,tl as integer
dim i as integer,j as integer
for i=1 to 100
for j=1 to i
tl=tl+j
next j
sum=sum+1/tl
tl=0
next i
print sum
end sub

热心网友时间：2024-09-01 13:17

原式=2/1*2+2/2*3+......+2/100*101
=2*（1/1*2+1/2*3+......+1/100*101）
=2*(1-1/2+1/2-1/3+......+1/100-1/101)
=2*(1-1/101)
=200/101

热心网友时间：2024-09-01 13:12

=2/1*2+2/2*3+......+2/100*101
=2*（1/1*2+1/2*3+......+1/100*101）
=2*(1-1/2+1/2-1/3+......+1/100-1/101)
=2*(1-1/101)
=200/101

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com