Линейный алгоритм

Задание

Даны константы A и B и произвольное x, вводимое с клавиатуры. Вычислить значение выражения и вывести значение y на экран.

1 Нажимаем сочетание клавиш Alt-F11 из любого приложения MS Office.

2 В меню выбрать пункт: Insert -> UserForm.

2.2 Меняем название формы Caption (в окне Properties UserForm1) на «Иванов И.И. Гр. Д-1-2005 Задача 1», что отобразится в заголовке окна.

3 Отображаем на экране панель компонентов Toolbox

4 Помещаем (с помощью мыши) на форму надпись Label с панели Toolbox.

4.1 Меняем название надписи на «Линейный алгоритм».

5 Помещаем (с помощью мыши) на форму кнопку CommandButton1 с панели Toolbox.

5.1 Меняем название кнопки Caption на «Расчет»; увеличиваем размер кнопки.

5.2 Двойным щелчком по кнопке Расчет попадаем в окно редактирования кода программы (в данном случае – подпрограммы-обработчика события нажатия кнопки).

5.3 Между текстом

Private Sub CommandButton1_Click()

……….

End Sub

Дописываем текст

Dim y As Double

Dim x As Double

Const A = 2.5

Const B = 3

x = InputBox("Введите x", "Окно ввода данных")

y = SQR(A * x ^ 2 - B)

Res = MsgBox("y= " & y,, "Результат")

6 Сохраняем программу.

7 Запускаем программу с помощью меню Run (либо клавишей F5, либо соответствующей кнопкой).

8 Если есть ошибки, исправляем (т. е. отлаживаем программу).

9 В отобразившемся окне

нажимаем кнопку Расчет.

10 В InputBox

вводим значение x, например 2.3, и нажимаем кнопку «ОК».

11 В окне MsgBox отображается результат вычисления y.

12 Завершить выполнение программы можно, нажав соответствующую кнопку или в меню Run выбрать пункт Reset.