我有一个应用程序,用户输入一个数字,它可以是10到10000之间的任何数字,我希望它将用户写入的值四舍五入到最近,以便能够将该数字除以10。 :用户放13,应用程序将其舍入为10,放87,应用程序将其舍入为90,231 = 230,1143 = 1140等。
Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
Dim value As Long
value = 1003
'Math.Ceiling(value)
RichTextBox4.Text = value.ToString
End Sub