VB.Net中Math.Round（）函数的结果不正确

Question

在以下代码中，如果我在将以下输入应用于代码时遇到一些不正确的结果。

代码如下。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox(TextBox1.Text & " = Val(" & Val(TextBox1.Text) & ") = Math.Round(" & Math.Round(Val(TextBox1.Text)) & ")")
End Sub

输入已应用=＆gt;收到的输出

3.5 =＆gt; 4

5.5 =＆gt; 6

4.5 =＆gt; 4

Math.Round函数在前两个输入中返回正确的结果，但第三个结果不正确。

请帮我解决一下。

Answer 1

documentation说：

  

如果d的小数分量在两个整数之间，则为1   其中是偶数，而另一个是奇数，则返回偶数。

您可以尝试使用：

Math.Round(4.5, 2, MidpointRounding.AwayFromZero) 

您可以查看MidpointRounding Enumeration

Answer 2

Math.Round(4.5, 0, MidpointRounding.AwayFromZero)