Выполнение:

1. Создаем форму проекта.

Над полями и кнопками указаны их имена (свойство Name). В создаваемой форме они не будут видны.

2. Задаем свойства для формы и созданных объектов (окно Properties).

   1. Даем название форме:

Caption - Расчет чистой прибыли

2. Подписываем этикетки:

lblD - Caption - Чистый доход

lblV - Caption - Валовые издержки

lblA - Caption - Амортизационные отчисления

lblP - Caption - Чистая прибыль

3. Присваиваем имена текстовым полям и очищаем их:

Text1 - Name - txtD

Text - очищаем (удаляем слово Text1)

Text2 - Name - txtV

Text - очищаем (удаляем слово Text2)

Text3 - Name - txtA

Text - очищаем (удаляем слово Text3)

Text4 - Name - txtP

Text - очищаем (удаляем слово Text4)

4. Присваиваем имена кнопкам и подписываем их:

CommandButton1 - Name - cmdRas

Caption - Расчет

CommandButton2 - Name - cmdOch

Caption - Очистка

CommandButton3 - Name - cmdVix

Caption - Выход

2.5 Присваиваем имя полю для сообщений и очищаем его:

Label5 - Name - lblMes

Caption - очистить (удаляем слово Label5)

3. Создаем программный код решения задачи.

   1. Процедура выполнения расчетов:

Private Sub cmdRas_Click()

D= Val(txtD.Text)

V= Val(txtV.Text)

A= Val(txtA.Text)

P = D - V - A * 0.7

txtP.Text = Str(P)

lblMes.caption = “Расчет закончен”

End Sub

2. Процедура завершения работы программы:

Private Sub cmdVix_Click()

End

End Sub

3. Процедура очистки полей:

Private Sub cmdOch_Click()

txtD.Text = “”

txtV.Text = “”

txtA.Text = “”

txtP.Text = “”

lblMes.caption = “”

End Sub

4. Выполняем созданную программу:

п. м. Run  к. Start  вводим значения переменных

щелкаем по кнопке Расчет

ТЕМА: Основні оператори мови Visual Basic.

Питання:

1. Організація розгалужених обчислювальних процесів. Умовний оператор If.

2. Організація циклічних обчислювальних процесів. Оператор циклу For . . . Next.

3. Використання елементів управління в програмах Visual Basic.

1. Організація розгалужених обчислювальних процесів. Умовний оператор If.

Оператор If реалізує алгоритмічну конструкцію “Розгалуження”.

Загальна форма оператора:

If <умова> then

<Блок_операторів_1>

Else

<Блок_операторів_2>

End If

“Блок_операторів_1” виконується в тому випадку, якщо умова має значення «істинно». У тому випадку, якщо логічна умова має значення «брехня» виконується “Блок_операторів_2”.

Оператор If можна використовувати також у такій формі: