Методика и порядок выполнения работы

ЕND SELECT

CASE ELSE

CASE список 1

SELECT CASE выражение для проверки

Теоретическое обоснование

VISUAL BASIC: ПРОГРАММИРОВАНИЕ ВЫБОРА

Лаб. Раб. № 14

Цель и содержание: освоение навыков составления и отладки программ для решения задач с разветвлениями с использованием оператора выбора вариантов.

Оператор выбора вариантов позволяет на основании анализа значения заданного выражения для проверки выполнять те или иные действия. Общий вид:

блок 1

………

блок n

Где выражение для проверки – любое числовое или символьное выражение, в зависимости от значения которого производится выполнение одного из блоков операторов: блок 1, блок 2,...,блок n;

блок 1, блок 2... – любое количество операторов;

список 1, список 2... – списки выражений, записанных в следующих формах:

– перечень значений, например, CASE 1,3,5;

– выражение TO выражение, например, CASE 5 TO 13– отрезок [5;13];

– IS операция отношения, например, CASE IS < 20 это все числа до 20.

Работа оператора: Если выражение выбора отвечает условиям списка выражений данного блока CASE, то выполняются операторы из этого блока. Если значение выражения не совпадает ни с одним из списка, то выполняется блок операторов, которые написаны после CASE ELSE. После этого управление передается оператору, следующему за END SELECT.

Пример. Вводится целое значение переменной Х. Определить, является оно четным целым из промежутка от 1 до 9 или нечетным целым из этого промежутка, либо вообще не попадает в него.

Dim strZ As String, X As Single

X = Val (InputBox(“Введите значение X”))

StrZ=”Значение Х-“

SELECT CASE X

CASE 1, 3, 5, 7, 9

MsgBox " - целое нечетное ",, StrZ

CASE 2, 4, 6, 8

MsgBox " - целое четное "",, StrZ

CASE ELSE

MsgBox " не в промежутке",, StrZ

END SELECT

В этом примере введенное значение Х сравнивается со списками значений, перечисленных после CASE. Если значения совпадают, то выполняется соответствующий оператор MsgBox. Если значение Х не совпадает ни с одним, то выполняется оператор, написанный после CASE ELSE.

1. Изучите теоретическое обоснование.

2. Выполните пример: определить агрегатное состояние воды по введенному значению температуры в Цельсиях.

Для этого:

· войдите в среду Visual Basic;

· с помощью стандартного набора инструментов Toolbox создайте экранную форму с командной кнопкой Command1 и надписью «Пуск», нажатием которой запускается программа;

· создайте программный код:

Private Sub Command1_Click ()

Dim strZ,strB As String, t As Single

t = Val (InputBox(“Введите значение t”))

strZ = “Вода при температуре”

strB = “ градусов Цельсия – ”

SELECT CASE t

CASE IS < 0

MsgBox Str(t)+ strB + “ лед”,, strZ

CASE 0 TO 100

MsgBox Str(t)+ strB + “жидкость”,, strZ

CASE ELSE

MsgBox Str(t) + strB +“ пар ”,, strZ

END SELECT

END

В этом примере функция Str(t) преобразует значение числовой переменной t в строку символов для вывода в окне MsgBox. Оператор MsgBox значения, указанные через «+», объединяет в общую строку.

3. В соответствии с вариантом задания составьте блок-схему, напишите программу с использованием SELECT CASE.

Таблица 1 – Варианты задания

№ варианта	Условия задания
	Написать программу, которая бы по введенному номеру времени года (1 – зима, 2 – весна и т. д.) вычисляла количество дней в этом сезоне.
	Вводится число D (D<=7). Распечатать соответствующий этому числу следующий день недели (например: если 1 – то завтра вторник).
	С клавиатуры вводится балл, полученные студентом – Вall. Выдать сообщение: «Отлично», если 80<Вall<100; «Хорошо!», если 60<Вall<81; «Удовлетворительно», если 30<Вall<61; «Неудовлетворительно», если Вall<31.
	Вводится число экзаменов N<=20. Напечатать фразу «Мы успешно сдали N экзаменов», согласовав слово «экзамен» с числом N.
	Вводятся числа от 1 по 15. Написать программу, которая выводит соответствующее этому числу значение в 16-й системе.
	Записать программу, которая на ввод знака препинания выдаёт на экран дисплея его название. Например, на ввод точки выдаёт текст «точка».
	Написать программу, которая бы по введенной цифре (1, 5, 10, 50 или 100) выводила ее написание в римской системе счисления
	Вводится число лет (N<=25).Напечатать фразу «Мне N лет», согласовав слово «лет» с числом N.
	Дана масса тела и номер единицы измерения (1 – килограмм, 2 – миллиграмм, 3 – грамм, 4 – тонна, 5 – центнер). Написать программу, которая выводила бы соответствующее значение массы в килограммах.
	Вводится число книг N<=10. Вывести фразу «Я взял в библиотеке N книг», согласовав слово «книга» с числом N.
	Дана емкость винчестера V в мегабайтах. Написать программу, которая бы по введенному номеру единицы измерения информации(1 – бит, 2 – байт, 3 – килобайт, 4 – мегабайт, 5 – гигабайт) переводила V в соответствующую единицу измерения.
	Вводится число программ N<=10. Напечатать фразу «Я разработал N программ», согласовав слово «программа» с числом N.
	Вводится порядковый номер дня в году. Определить, к какому сезону года относится этот день.
	Даны два числа А и В, и знак арифметической операции(+,-,*, /). Написать программу, которая вычисляет А+В, если ввести знак + т. д.
	Вводится порядковый номер дня в году. Определить, какой это день недели, если год начинается с понедельника.
	Вводится целое число -5 ≤c ≤5. Вывести величину числа в словесной форме с учетом знака.

Содержание отчета и его форма

Выполните все описанные пункты задания, письменно оформите отчет, который должен содержать:

- тему, цель лабораторной работы;

- общий вид оператора выбора вариантов;

- условие, блок-схему, программу и результат выполнения задания.

Контрольные вопросы и защита работы

Защита лабораторной работы включает в себя демонстрацию выполненных программ, подготовленный отчет и устный ответ на вопросы:

1. Какие операторы используются для программирования разветвляющейся структуры?

2. Общий вид оператора выбора вариантов.

3. Как работает оператор выбор вариантов?

4. Cписки выражений записываются в каких форматах?

Дата добавления: 2014-01-15