怎么我在累加时这样写的代码累加出来的结果是错的？
各位大虾能看哈不
Private Sub Command1_Click()
Dim La, Lb, Tgj, Tgh, Tdj, Tdh, r As Integer
Dim sumgj, sumgh, sumdj, sumdh, ming, mind, min
Dim Igh, Igj, Idj, Idh
Open "d:\A,B都在环.doc" For Output As #1
Open "d:\A,B都在环分析.doc" For Output As #5
Print #1, "Tgj", "Tgh", "Tdj", "Tdh"; " La"; " Lb"; " 半径"
Print #5, "半径"; " 轨道经线"; " 轨道环线"; " 道路经线"; " 道路环线"
sumgj = 0
sumgh = 0
sumdj = 0
sumdh = 0
For r = 1 To 10
For La = 1 To r
For Lb = 1 To r 'A,B都在环内
Tgj = Format(Round(La / 35 + Lb / 35 + 1 / 12, 2), "0.00")
If La = r Then
If Lb = r Then
Tgh = Format(Round((r * 3.14) / 70, 2), "0.00") 'A,B都在环上
Else
Tgh = Format(Round((r - Lb) / 35 + (r * 3.14) / 70 + 1 / 12, 2), "0.00") 'A在环上，B在环以内
End If
Else
Tgh = Format(Round((r - La) / 35 + (r - Lb) / 35 + (r * 3.14) / 70 + 1 / 12 + 1 / 12, 2), "0.00") 'A，B都在环以内
End If
Tdj = Format(Round(La / 15 + Lb / 15, 2), "0.00")
Tdh = Format(Round((r - La) / 15 + (r - Lb) / 15 + (r * 3.14) / 160, 2), "0.00")
Print #1, Tgj, Tgh, Tdj, Tdh; " "; La; " "; Lb; " "; r
sumgj = sumgj + Tgj
sumgh = sumgh + Tgh
sumdj = sumdj + Tdj
sumdh = sumdh + Tdh
Next Lb
Next La
Igj = Format(sumgj / (sumgj + sumgh), "00.00%")
Igh = Format(sumgh / (sumgj + sumgh), "00.00%")
Idj = Format(sumdj / (sumdj + sumdh), "00.00%")
Idh = Format(sumdh / (sumdj + sumdh), "00.00%")
Print #5, r; " "; Igj; " "; Igh; " "; Idj; " "; Idh
Next r
End Sub


中间的计算公式是对的，只用看累加的部分就对了，累加是把所有的数据都累加起来，但是不会了。

额。。。。看不懂啊。。。。

敢不敢回答哈