Нахождение числа, больше введённого. Последовательность. Блок-схема - VBA

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

NewStudent01
Сообщения: 2
Зарегистрирован: Вс дек 24, 2017 4:01 pm

Нахождение числа, больше введённого. Последовательность. Блок-схема - VBA

Сообщение NewStudent01 » Вт апр 24, 2018 12:03 am

Здравствуйте, товарищи форумчане! ;)

Задача следующего характера. Среди чисел 1; 1+1/2; 1+1/2+1/3 … найти первое число, которое больше данного числа А > 0.

Имеется код программы:

Код: Выделить всё

Private Sub CommandButton1_Click()
Dim A As Single, S As Single, y As Long, Z As Single
A = InputBox("Введите число:")
S = 1
y = 1
Do Until S > A
     y = y + 1
     Z = 1 / y
     S = S + Z
Loop
MsgBox S
End Sub
Проверьте программу и блок-схему. Если есть ошибки, укажите их пожалуйста.

Спасибо!
Вложения
Ashampoo_Snap_2018.04.23_23h42m38s_004_.jpg