将十进制数四舍五入为整数

Question

我的用户表单中的平均值结果有问题。所以，我有 4 个文本框，用户将在其中输入成绩，然后点击按钮，它会得到它的平均值。

这是我的代码：

Dim Total As Double, i As Integer
 
 If IsNumeric(tb_music) Then Total = Total + CDbl(tb_music): i = i + 1
 If IsNumeric(tb_arts) Then Total = Total + CDbl(tb_arts): i = i + 1
 If IsNumeric(tb_pe) Then Total = Total + CDbl(tb_pe): i = i + 1
 If IsNumeric(tb_health) Then Total = Total + CDbl(tb_health): i = i + 1
 
 tb_mapeh.value = Round(Total / i, 0)

我尝试输入 88、91、92 和 91 的成绩。使用计算器时，结果将是90.5，对吗？我上面代码的结果是90。我需要将结果显示为 91。有人可以帮我吗？

非常感谢任何帮助。谢谢！