End Sub. 6.Для кнопки CmdРозрахунок створіть процедуру

6.Для кнопки CmdРозрахунок створіть процедуру:

Private Sub Command1 Розрахунок _Click()

Dim a, x, c, b As Integer

Dim y As Single

a = InputBox("Уведіть а", "а")

b = InputBox("Уведіть b", "b")

c = InputBox("Уведіть c", "c")

x = InputBox("Уведіть x", "x")

If x = 5 And b + c < 12 Then

y = c * x ^ 3 + a

ElseIf с <= x And x < b And x <> 5 Then

y = Log(x - a)

Else

y = b + 3 * c

End If

Text1.Text = y

Label1.Visible = True

Text1.Visible = True

End Sub

6. Зберіжіть проект та форму в папці ЛАБ7 з іменами Лр7_Зад4_P _Прізвище й Лр7_Зад4_F _ Прізвище.

ЛАБОРАТОРНА РОБОТА №8. ПРОЕКТУВАННЯ ДОДАТКІВ VB6,
ЩО МІСТЯТЬ ЦИКЛІЧНІ АЛГОРИТМІЧНІ СТРУКТУРИ. ЗАНЯТТЯ 1. ЦИКЛИ З ЛІЧИЛЬНИКОМ

Циклом называется процесс, в котором одни и те же действия повторяются многократно.

Циклы по одной из классификаций разделяют на два основных типа:

ü циклы со счетчиком (с известным числом повторений);

ü циклы с условием, в которых действия повторяются до тех пор, пока выполняется определенное условие или пока не будет выполнено определенное условие.