Условные конструкции VBA
Простые конструкции IF условие THEN действие Если условие выполняется, то выполняется действие IF условие THEN действие 1 ELSE действие 2 Если условие выполняется, то действие 1 выполняется, в противном случаи выполняется действие 2
Пример Начало алгоритма Начало Ввод X X<0 Ввод значения X Нет Да Y=X^2 -1 Y=X^(1/2)+X Определение значения Y в зависимости от значения X Вывод Y Вывод значения Y Конец Завершение алгоритма Sub prim() Dim X as Single, Y as Single X=Input. Box(“Ввести X”, ”Значение X”) If X<0 Then Y=X^2 -1 Else Y=X^(1/2)+X Endif Msg. Box “Y=”+Str(Y), , ”Результат” End sub
Сложная конструкция IF условие THEN Последовательность действий 1 ELSE Последовательность действий 2 ENDIF IF условие 1 THEN Последовательность действий 1 ELSEIF условие 2 THEN Последовательность действий 2 … ELSE Последовательность действий. N ENDIF Если условие выполняется, то выполняется последовательность действий 1, в противном случаи – последовательность действий 2. Если условие 1 выполняется, то выполняется последовательность действий 1, если условие 2 выполняется, то выполняется – последовательность действий 2, т. д. , в противном случаи выполняется последовательность действий. N.
Пример Если количество работников на предприятие до 100 человек – это малое предприятие, если от 100 -300 – среднее, от 300 -500 – крупное, в противном случаи – корпорация.
Начало Ввод K Да K<=100 Нет 100<K<=3 00 Нет 300<K<=5 00 Нет P=”Корпорация” Вывод P Конец Да P=”Малое предприятие” Да P=”Среднее предприятие” P=”Крупное предприятие”
Sub prim() Dim K as Integer, P as String K=Input. Box(“Ввести количество сотрудников”, ”Количество сотрудников”) If K<=100 Then P=“малое предприятие” Else. If (K>100) and (K<=300) Then P=“Среднее предприятие” Else. If (K>300) and (K<=500) Then P=“Крупное предприятие” Else P=“Корпорация” End. If Msg. Box “Статус предприятия - ”&P, , ”Определение статуса предприятия: кол-во сотрудников=”&Str(K) End. Sub
Ввод исходных данных
Результат
Задания на лабораторную работу Задание № 1. Точка на плоскости задана координатами (x, y). Определить, принадлежит ли точка плоскости, ограниченной окружностью с центром в начале координат и радиусом R? (условие принадлежности x 2+y 2<R 2) Задание № 2. У Маши имеется N рублей. В магазине ей понравилась сумка за S рублей, туфли за T рублей и портмоне за К рублей. Маше хватает денег только на два каких-то товара. Какие две вещи может она может купить? Задание № 3. Ввести положительное А>=1. Найти наибольшее из выражений вида 1/А и SIN(A).
Скачать презентацию Условные конструкции VBA Простые конструкции IF условие
Условные конструкции VBA.ppt