Ответы и решения

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

0 голосов
23 просмотров

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


Информатика (15 баллов) | 23 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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

Доцент (53.1k баллов)
0

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

0

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

0

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

0

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

0

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

10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей