Умное округление - VB

Формулировка задачи:

Допустим при нажатии на командную кнопку в текст бокс выводится число N, округленное до трех знаков после запятой. Еще раз нажимаем и оно так и остается числом N, а не превращается в N,000. Функции Round и Format не предлагать. Может есть какая-нибудь операция над *повторным* запуском программы (кнопки).

Код к задаче: «Умное округление - VB»

textual
Private Sub Command1_Click()
Dim a As Double
   If Text1.Text <> "" Then
        a = Val(Replace(Text1.Text, ",", "."))
        Text1.Text = Round(a, 3)
   End If
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ