Организация ввода и вывода сообщений - Пример 2.

Пример 2. Вычислить значение выражения a равного

, при x = 3, y = 2.5

Замечание: значения x и y вводит пользователь.

Решение.

Sub выражение2()

Dim A, x, y As Double

x = InputBox("Введите x=")

y = InputBox("Введите y=")

A = 2 * x - 3 * y

MsgBox (A)

End Sub

Пояснение решения.

В строке Dim A, x, y As Double описываются переменные A, x, y как числа двойной точности.

При использовании строки

x = InputBox("Введите x=")

появиться окно