Условные конструкции VBA

Простые конструкции

Начало
Ввод
X
X<0
Y=X^2-1
Да
Y=X^(1/2)+X
Нет
Вывод
Y
Конец
Начало алгоритма
Ввод значения X
Определение значения Y в зависимости от значения X
Вывод значения Y
Завершение алгоритма
Sub prim()
Dim X as Single, Y as Single
X=InputBox(“Ввести X”,”Значение X”)
If X<0 Then
Y=X^2-1
Else
Y=X^(1/2)+X
Endif
MsgBox “Y=”+Str(Y),,”Результат”
End sub
Пример

Сложная конструкция

Пример
Если количество работников на предприятие до 100 человек – это малое предприятие, если от 100-300 – среднее, от 300-500 – крупное, в противном случаи – корпорация.

Начало
Ввод
K
K<=100
Да
Нет
100
Нет
300
Нет
Да
Да
Конец
P=”Малое предприятие”
P=”Среднее предприятие”
P=”Крупное предприятие”
P=”Корпорация”
Вывод
P

Sub prim()
Dim K as Integer, P as String
K=InputBox(“Ввести количество сотрудников”,”Количество сотрудников”)
If K<=100 Then
P=“малое предприятие”
ElseIf (K>100) and (K<=300) Then
P=“Среднее предприятие”
ElseIf (K>300) and (K<=500) Then
P=“Крупное предприятие”
Else
P=“Корпорация”
EndIf
MsgBox “Статус предприятия - ”&P,,”Определение статуса предприятия: кол-во сотрудников=”&Str(K)
EndSub

Ввод исходных данных

Результат