Как получить всего до 2 десятичных знаков с помощью текстового поля / окна сообщения (VS2017)

Question

Итак, в основном, у меня есть 4 текстовых поля, затем пользователь вводит числа в 4 текстовых поля, затем вы нажимаете кнопку вычисления и появляется текстовое поле «Игрок бежал ___ км»

Все отлично, а затем отображается и в текстовом поле.

Но если я введу десятичную дробь (например, 10, 10.2, 10.01, 10), она скажет только 40, а не 40.21. (или даже до 1 десятичного знака).

Как я могу отредактировать его так, чтобы оно отображало до 2 десятичных знаков в текстовом поле и в окне сообщения?

Спасибо :)

Answer 1

Измените затемнение четвертей на целые, чтобы затемнение их удвоилось.

Так выглядит

        Dim quarter4 As Double
        quarter4 = TextBox4.Text
        Dim quarter3 As Double
        quarter3 = TextBox3.Text
        Dim quarter2 As Double
        quarter2 = TextBox2.Text
        Dim quarter1 As Double
        quarter1 = TextBox1.Text
        TotalDis.Text = quarter1 + quarter2 + quarter3 + quarter4
        MessageBox.Show(TextBox6.Text & " has run " & TotalDis.Text & " km this season")