Умное округление - 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