Есть код ,как добавить ограничение на ввод отрицательных чисел . Ну то есть чтобы в текст бокс можно было вводить только числа больше 0 If OptGarm Then
res = 6 / ((1 / a) + (1 / b) + (1 / c) + (1 / D) + (1 / e) + (1 / f))
LabelRes = "Среднее гармоническое"
End If
TextBoxRes = Format(res, "fixed")
End Sub

Brot2007    1   23.12.2020 17:04    2