Question

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

Answer 1

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()