Помогите с задачей по информатике языком VBA.Дано ОДНО вещественное число (double)....

Question

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

Comments

Вопрос: Как именно это число "дано"?

---

Если жестко "зашито" константой (или присваиванием константы переменной) в программе, то это один алгоритм. Если вводится из ячейки листа рабочей книги MS Excel - другой. Если читается из InputBox - третий.

---

Третий

---

Вам третий уже ответили

Answer 1

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


Call Zadanie()