списокУсловий-i - обязательный параметр, присутствующий в строке, начинающейся ключевым словом Case. Содержит результаты вычисления выражения, записанные в одном из видов:
Case КОНСТАНТА1, КОНСТАНТА2, КОНСТАНТА3, …
Например:
Case 1000, 1100, 1400 - значение выражения равно 1000 или 1100, или 1400.
CaseIs ЗНАК_ОТНОШЕНИЯ КОНСТАНТА
Ключевое слово Is дает указание компилятору сравнить результаты вычисления выражения, со значением константы следующей после слова Is.
Например:
Case Is >= 100 - значение выражения >= 100
Case КОНСТАНТА1 To КОНСТАНТА2
Ключевое слово To задает диапазон значений от КОНСТАНТА1 – нижняя граница до КОНСТАНТА2 – верхняя граница.
Например:
Case 1980 to 2000 – значение выражения от 1980 до 2000.
Оператор SelectCase начинается ключевыми словами Select Case и заканчивается ключевыми словами EndSelect, он выполняется следующим образом – сначала вычисляется значение выражения, стоящего после ключевых слов SelectCase, затем производится проверка на совпадение значения выражения и одного из Case условий, в случае совпадения выполняются операторы, помещенные за этим Case условием, а затем продолжается выполнение программы после оператора EndSelect. В случае, если совпадения не обнаружено ни в одном из Caseусловий, то выполняются операторы, находящиеся после ключевых слов Case Else.
ПРИМЕЧАНИЕ: при записи оператора SelectCase следует помнить, что данный оператор выполняет проверку условий строго по порядку. Следует следить за тем, чтобы условия не “перекрывали” друг друга. Например, если первым поставить условие z>0, а затем z>12, то первое условие “перекроет” второе (и до проверки второго условия оператор не дойдет).
ВЫПОЛНИТЕ!
Задание 5. Составить блок-схему и программу начисления надбавки и суммы стипендии студентам по итогам сессии в зависимости от среднего балла:
|
средний балл |
надбавка |
|
меньше 4 |
стипендия не назначается |
|
от 4 до 4.5 |
0% |
|
Равен 4.5 |
15% |
|
равен 5 |
50% |
|
в остальных случаях |
25% |
Размер стипендии составляет 2 МРОТ (минимальный размер оплаты труда). Выполнить следующее форматирование ячеек ЭТ: для ячейки “надбавка” задать цвет шрифта – зеленый, начертание шрифта –жирный, числовой формат в виде - #0.00. Для ячейки “сумма к выдаче” задать фон ячейки – сиреневый, начертание шрифта – курсивный.
Блок-схема будет иметь следующий вид:
|
|||||||||||
 |
|||||||||||
 |
|||||||||||
 |
|||||||||||
|
|||||||||||
 |
|||||||||||
 |
|||||||||||
Программа:
Public Sub стипендия()
‘Объявление переменной “минимальный размер стипендии”
Dim min_стип
‘присвоение переменной min_стип мин. значения стипендии
min_стип = 240
‘запись текста в ячейки
Range(“a2”).Value = “средбал”
Range(“b2”).Value = “надбавка”
Range(“c2”).Value = “сумма_к_выдаче”
‘присвоение имени ячейкам
Range(“a3”).Name = “средбал”
Range(“b3”).Name = “надбавка”
Range(“c3”).Name = “сумма_к_выдаче”
‘проверка значения в ячейке с именем “сред.бал”
Select Case Range(“средбал”)
Case Is < 4 ` если средний балл меньше 4
min_стип= 0
Range(“надбавка”) = 0
Case 4.5 ` если средний балл равен 4.5
Range(“надбавка”) = min_стип * 0.15
Case 4 To 4.5 ` если средний балл в диапазоне от 4 до 4.5
Range(“надбавка”) = 0
Case 5 ` если средний балл равен 5
Range(“надбавка”) = min_стип * 0.5
Case Else ` в остальных случаях
Range(“надбавка”) = min_стип * 0.25
End Select
‘вычисление значения ячейки “сумма_к_выдаче”
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.