Question

Помогите с задачей по информатике языком VBA.Дано ОДНО вещественное число (double). Определить первую цифру в дробной части заданного положительного вещественного числа. (3.67 = 6)

Answer 1

Sub Zadanie()
    d = CDbl(InputBox("d ="))
    MsgBox round(d * 10) mod 10
End Sub


Call Zadanie()