Вычислить значение функции y = a/x + b - VBA
Формулировка задачи:
Здравствуйте!
Прошу помощи. Не знаю, как правильно написать код.
Код выдаёт мне в Эксель почему-то сразу 11 нулей.
Пожалуйста, исправьте мои ошибки.
Условия. Вычислить значение функции у=а/x+b при x=1,2,...10 (a, b вводятся с клавиатуры) в VBA.
Решение задачи: «Вычислить значение функции y = a/x + b»
textual
Листинг программы
Sub ÔóГ*êöèÿ() Dim a#, b#, x% Cells.Clear a = Val(Replace(InputBox("Ââåäèòå a", "Ââîä Г¤Г*Г*Г*ûõ", 1.1), ",", ".")) b = Val(Replace(InputBox("Ââåäèòå b", "Ââîä Г¤Г*Г*Г*ûõ", 1.1), ",", ".")) ' x = 1 ' ReDim Y(1 To 10) As Double For x = 1 To 10 Cells(x, 1) = Y(a, b, x) Next 'ThisWorkbook.Sheets(1).Cells(1, 1).Resize(x, 1) = Y End Sub Function Y(a#, b#, x%) As Double Y = a / x + b End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д