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

Узнай цену своей работы

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

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

Решение задачи: «Умное округление»

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