Здравствуйте. Подскажите как в VBA (ACCESS) написать программу для решения задачи: ...

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

Comments

Спасибо, Но Что -то не то. Это точно 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 s
End Sub

---

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