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