5.2.9. Выполнение программы и анализ полученных результатов
На рис. 5.5 приведен результат решения задачи при следующих значениях показателя:
план:10,
факт:12,
т.е. план перевыполнен на 20%, что отражено в области вывода результата.
Рис. 5.5. Результат вычисления процента выполнения
производственной программы
Для проверки работоспособности программы по другим ветвям нужно произвести вычисления по данным, когда факт меньше плана, а также равен ему. Исходные данные и соответствующие значения результата приведены в табл. 5.3
Таблица 5.3
Данные проверки работоспособности
программы
|
План |
Факт |
Результат |
|
10 |
12 |
План перевыполнен на 20% |
|
10 |
9 |
План недовыполнен на 10% |
|
10 |
10 |
План выполнен на 100% |
После произведенной проверки можно использовать разработанное приложение для реальных данных при анализе выполнения производственной программы для принятия соответствующих управленческих решений.
5.3. Оператор выбора
Разветвляющийся вычислительный процесс может быть реализован в Visual Basic также с помощью оператора выбора, который имеет вид:
Select Case <Выражение>
[Case <Список_сравнения1>
<Операторы1>]
...
[Case Else
<ОператорыN>]
End Select
где <Выражение> может быть выражением любого типа (целого, вещественного, строкового и т.д.).
<Список_сравнения> состоит из элементов сравнения, разделенных запятой.
Элемент сравнения может быть записан в одном из трех видов:
выражение, представляющее одно значение для проверки на совпадение (например, 3, х+7);
конструкция <Выражение1> To <Выражение2> представляет интервал значений для проверки попадания в диапазон (например, 1 To 5);
конструкция Is <Операция сравнения> <Выражение> представляет значения, удовлетворяющие условию, задаваемому сравнением (например, Is > 32).
Действие оператора выбора заключается в следующем. Вначале вычисляется выражение, стоящее после ключевых слов Select Case. Затем ищется в списках первое сравнение, которому удовлетворяет полученное значение. Если такое сравнение находится, то выполняются операторы, стоящие в соответствующем блоке Case и управление передается на конец оператора. Если же значение выражения не удовлетворяется ни в одном списке, а имеется конструкция Case Else, то выполняются содержащиеся в ней операторы, в противном случае ни один оператор, содержащийся в операторе выбора, не выполняется.
Таким образом, оператор выбора очень близок по действию к условному оператору и если выражение, стоящее после слов Select Case булевского типа, то полностью с ним совпадает. Оператор выбора целесообразно использовать в тех случаях, когда при разветвлении более двух ветвей, т.е. в сложных разветвляющихся процессах.
5.4. Пример использования оператора выбора
Рассмотренную при изучении условного оператора задачу об определении процента отклонения можно решить, используя оператор Select Case.
Для этого в коде программы во фрагменте вычисления процента отклонения от плана нужно заменить оператор If...End If следующим оператором:
Select Case sngПроцент
Case Is > 100
sngОтклонение = sngПроцент - 100
strОтклонение = "План перевыполнен на " & _
Format(sngОтклонение, "0.00") & "%"
Case Is < 100
sngОтклонение = 100 - sngПроцент
strОтклонение = "План недовыполнен на " & _
Format(sngОтклонение, "0.00") & "%"
Case Else
strОтклонение = "План выполнен на 100%"
End Select
В этом случае программа будет работать точно также как и при использовании оператора If, но имеет более прозрачный вид, т.к. реализует схему алгоритма разветвляющегося вычислительного процесса с несколькими выходами.