Информатика, опубликовано 2018-08-22 20:04:30 by Гость

Здравствуйте. Подскажите как в VBA (ACCESS) написать программу для решения задачи: Вычислить значение функции y=a/x+b при x= 1, 2, 3,...,10 (a, b вводятся с клавиатуры).

Ответ оставил Гость

Sub Zadanie()
    a = CDbl(InputBox("a ="))
    b = CDbl(InputBox("b ="))
    s = ""

    for x = 1 to 10
        y = a/x+b
        s = s & "y(" & x & ") = " & y & vbNewLine
    next

    MsgBox s
End Sub

Call Zadanie()

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Форма вопроса доступна на полной версии этой страницы.