End Sub. Пример №4. Сколько раз нужно поделить число пополам, чтобы результат был менее заданного значения?

Пример №4. Сколько раз нужно поделить число пополам, чтобы результат был менее заданного значения?

Заданное значение определим как константу. Число вводится в поле Text1. При объявлении переменной для хранения числа выберем тип Double исходя из того, что значение переменной типа Single ограничены примерно порядком 10³⁸. Если в строке ввода присутствует буква «Е», означающая экспоненту, то для правильного преобразования его в число используем функция Val.

Private Sub Command1_Click()

Const t As Double = 0.000001

Dim Число As Double, n As Integer

Число = Val(Text1.Text)

n = 0

While Число > t

Число = Число / 2

n = n + 1

Wend

Text2.Text = n