lm_mcgrady lm_mcgrady
关注数: 23 粉丝数: 56 发帖数: 1,236 关注贴吧数: 5
求助 怎么我在累加时这样写的代码累加出来的结果是错的? 各位大虾能看哈不 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
1 下一页