编程题二: 计算公式的值: 1/1+2/(1+2)+3/(1+2+3)+…+10/(1+2+3+…+10).
计算公式的值:1/1+2/(1+2)+3/(1+2+3)+…+10/(1+2+3+…+10).编程的题目，算半天了，算不对，求大神解答一下，谢谢~~...
计算公式的值: 1/1+2/(1+2)+3/(1+2+3)+…+10/(1+2+3+…+10).编程的题目，算半天了，算不对，求大神解答一下，谢谢~~
展开
1个回答
展开全部
Dim i As Integer,j As Integer
Dim dblSum As Double,dblTmp As Double,intTmp As Integer
dblSum=0
For i=1 to 10
intTmp=0
For j=1 to i
intTmp=intTmp+j
Next
dblTmp=i/intTmp
dblSum=dblSum + dblTmp
Next
print dblSum
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
