Вычислить значение функции 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 4.4 из 5
Похожие ответы