很多人对计分循环不是很了解那具体是什么情况呢，现在让我们一起来瞧瞧吧！

1、Sub input_average()Dim i As IntegerDim sum As Integeri = 0sum = 0Dim score As Integerscore = 0Do    score = InputBox("输入成绩")    i = i + 1    sum = sum + scoreLoop Until score = -100MsgBox "平均数为:" & Format("0.00", (sum + 100) / (i - 1))End Sub。

本文【计分循环】到此讲解完毕了，希望对大家有帮助。