Dim X As Single

Dim y As Single

Dim b As Single

Dim a As Single

Dim z As Single

Dim c As Single, d As Single

x = txtx: y = txty: a = txta: b = txtb

c = a * b + x ^ 2

d = x + y

z = d / c + Cos(Abs(c)) / (d ^ 3 - y / a) - Exp(y) / Abs(c) ^ (1 / 3)

txtz.Text = z

Перейдём к дальнейшему проектированию формы приложения. Для этого вызовем команду Просмотр – объект. Осталось разместить в форме командную кнопку для завершения выполнения приложения. Задайте для неё свойство Caption – Выход. Процедура обработки её события состоит из одной команды :End.

Задание

1. Создайте форму для своего приложения

2. Выполните программу

3. Используя подсказку в окне свойств, ознакомьтесь со свойствами объектов, использованных при создании формы.

4. Измените цвет фона окна формы.

5. Установить на форме кнопки Развернуть,Свернуть.

6. Установить, чтобы объект формы был представлен в панели задач.

7. Изменить цвет командных кнопок

8. Сохранить проект в своей папке.

Лабораторная работа № 3 Разветвляющийся вычислительный процесс (ветвление)

Ветвление – одна из типовых структур алгоритмов, которая в зависимости от выполнения или невыполнения условий позволяет выполнить те или иные действия

Оператор if

Этот оператор может иметь однострочную или блочную структуру. Синтаксис однострочной структуры:

IfусловиеThenоператор1[Elseоператор2]

Если условие, указанное после If, истинно (т. е. результат вычисления логического выраженияTrue), то выполняетсяоператор1, если же результат вычисления логического выраженияFalse, то выполняетсяоператор2.

If x=5 Then Print "отлично"

If x>2 Then Print "успевает" Else Print "не успевает"

Синтаксис блочной структуры:

IfусловиеThen

[операторы1]

[ElseIfусловие2Then

[операторы2]

Else

[операторы3]]

EndIf

Блочная структура оператора Ifпредоставляет такие же возможности, как и строчная. Но если требуется выполнять не один оператор, а несколько, то следует использовать блочный синтаксис. Кроме того, блочная структураElseIfпозволяет анализировать несколько условий.

Пример1 Требуется определить размер премии менеджера, если в форме вводится объём продаж. Премия в размере 15% даётся, если объём продаж превысил 10000. Имя текстового поля в форме – TxtSales.

If txtSales.text>10000 Then

Bonus=txtSales.text*0.15

End If

В этом операторе просматривается текстовое поле TxtSales, расположенное на форме, анализируется его содержимое, представленное свойствомtext. (Любое текстовое поле имеет свойство text, в котором хранится его текущее значение).Если введённое значение >10000, то переменнойBonus Будет присвоено вычисленное значение.

Пример2 Определить корни квадратного уравнения вида

a*x^2+b*x+c=0, если заданы коэффициенты a, b, c.

d=b^2-4*a*c

If d>0 then

X1=(-b+sqr(d))/(2*a)

X2=(-b-sqr(d))/(2*a)

Print "x1=",x1

Print "x2=",x2

ElseIf d=0 Then

X1=-b/(2*a)

Print "корни одинаковые"

Print X1

Else

Print "Действительных корней нет"

End If

Проверяемые условия задаются с помощью логических выражений. В логических выражениях можно использовать знаки отношения (сравнения) и логические функции. Логические функции используются, когда надо проверить выполнение нескольких условий.

AND– выдаёт значениеTrue(истина), если значениеTrue(истина) принимают все проверяемые условия.

OR- выдаёт значениеTrue(истина), если значениеTrue(истина) принимает хотя бы одно из проверяемых условий

a= 5 b=5

a>b false

a=b true

a>1 and b>1 true

a<>10 or a<>5 true

a<>5 or b<>5 false