Вывести наименьшее из целых чисел K - VBA

Формулировка задачи:

Помогите пожалуйста. Что не так? Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.

Dim c As Long
  Dim a, b As Variant
  a = TextBox1.Text
  c = 1
  b = 1
  
  Do
   c = c + 1
   b = b + 1 / c
   Loop While b <= a
  TextBox2.Text = Str(c)
  TextBox3.Text = Str(b)
End Sub

Решение задачи: «Вывести наименьшее из целых чисел K»

textual
                            Листинг программы 
                        

                            ?999<"0"
False
'но!!!
?cvar(999)<cvar("0")
True
                        

Оцени полезность:

7 голосов , оценка 3.571 из 5

Похожие ответы