编程题二: 计算公式的值: 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个回答 2017-11-13

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

本回答被提问者和网友采纳

相似回答

大家正在搜