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

Спасибо, Но Что -то не то. Это точно VBA (ACCESS)? Начало должно быть таким: Private Sub Кнопка9_Click()

это универсальное. если надо так то в начале можете сделать так как вам надо

на саму процедуру это не повлияет

Private Sub Кнопка9_Click() 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 sEnd Sub

Все норм. Спасибо.

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 sEnd SubCall Zadanie()