Вычислить значение функции y = a/x + b - VBA

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

Здравствуйте! Прошу помощи. Не знаю, как правильно написать код. Код выдаёт мне в Эксель почему-то сразу 11 нулей. Пожалуйста, исправьте мои ошибки.

Условия. Вычислить значение функции у=а/x+b при x=1,2,...10 (a, b вводятся с клавиатуры) в VBA.

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
   Y(x) = Cells(1, x)
Next
ThisWorkbook.Sheets(1).Cells(1, 1).Resize(x, 1) = Y
End Sub
Function Y(a#, b#, x%) As Double
Y = а / x + b
End Function

Код к задаче: «Вычислить значение функции y = a/x + b - VBA»

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

Полезно ли:

10 голосов, оценка 4.400 из 5

СОХРАНИТЬ ССЫЛКУ