ЛЕКЦИЯ 2 2013 величины Ветвление

ЛЕКЦИЯ № 2 2013

величины Ветвление Выбор

ВЕЛИЧИНЫ По количеству значений величины делятся на переменные постоянные

ВЕЛИЧИНА Характеристики: Имя Тип данных

ТИП ВЕЛИЧИНЫ Тип пере -менной Возможные значения Объем занимаемой памяти Variant Любой тип данных 16 Byte Целые неотрицательные числа от 0 до 255 1 байт Integer Целые числа от -32768 до 32767 2 байта Long Целые числа от -2147483648 до 2147483647 4 байта Decimal Десятичные числа со знаком от 10 -28 до 1028 16 байтов Single Десятичные числа одинарной точности (7 -8 значащих цифр) от -1, 4 10 -45 до 3, 4 1038 4 байта Double Десятичные числа двойной точности (15 -16 значащих цифр) от -5 10 -324 до 1, 7 10308 8 байтов Boolean Логическое значение True или False 2 байта String Строка символов в кодировке Unicode 2 байта на символ Date Даты от 1 января 0001 года до 31 декабря 9999 года и время от 0: 00 до 23: 59 8 байтов

ИМЯ ВЕЛИЧИНЫ: должно начинаться с буквы или подчеркивания «_» ; может содержать только буквы, десятичные цифры и подчеркивания; должно содержать, по крайней мере, один буквенный или цифровой символ; не должно составлять более чем 255 знаков. ОБЪЯВЛЕНИЕ ПЕРЕМЕННОЙ: Dim Имя. Переменной As Тип. Переменной Величины, значения которых не меняются в процессе выполнения программы, называются КОНСТАНТАМИ. Dim Имя. Константы As Тип = Значение. Константы ПРИСВАИВАНИЕ ПЕРЕМЕННЫМ ЗНАЧЕНИЙ: Имя. Переменной = Выражение

ПРИМЕР Найти площадь треугольника по двум сторонам и углу между ними. величина имя тип Первая сторона а single Вторая сторона b single угол q single Описание Dim a As single Dim b, q As single

ВСТРОЕННЫЕ ФУНКЦИИ Функция Описание Abs Абсолютное значение Atn Арктангенс Cos Косинус числа Exp ex Int Целая часть числа Log натуральный логарифм числа Rnd Возвращает случайное число типа Single между 0 и 1. Sgn Sin Определение знака числа. Если число положительное = 1. Для нуля функция возвратит 0, для отрицательного числа = -1. Синус Sqr Квадратный корень Tan Тангенс Val Перевод текста в число Str Перевод числа в текст Is. Numeric Проверка, является ли элемент числом

АЛГОРИТМИЧЕСКАЯ СТРУКТУРА «ВЕТВЛЕНИЕ» В алгоритмической структуре «ветвление» та или иная серия команд выполняется в зависимости от истинности условия. Блок-схема True Серия 1 Условие Код False Серия 2 If Условие Then Серия 1 [Else Серия 2] End If If Условие _ Then Серия 1 _ [Else Серия 2]

ПРИМЕР: ЯВЛЯЕТСЯ ЛИ ВВЕДЕННЫЙ ТЕКСТ ЧИСЛОМ

ПРИМЕР: ПОМЕНЯТЬ ЦВЕТ ФОНА Имена: Opt_red Opt_blue Opt_green

АЛГОРИТМИЧЕСКАЯ СТРУКТУРА «ВЫБОР» В алгоритмической структуре «выбор» выполняется одна из нескольких последовательностей команд при истинности соответствующего условия. Блок-схема True Условие 1 False True Серия 1 Серия 2 Язык программирования VBA Select Case Выражение Case Условие 1 Серия 1 False Case Условие 2 Серия 2 [Case Else Серия ] End Select

«ВЫБОР» 1. Выражение – переменная или арифметическое выражение. В качестве условия, заданного после ключевого слова Case, может быть использован один из двух вариантов: Когда указывается диапазон значений, для этого используется следующая конструкция: Значение 1 To Значение 2 При этом Значение 1 обязательно должно быть меньше или равно Значению2. Когда необходимо использовать вычисленное в конструкции Select Case выражение в условии, используя один из операторов сравнения (=, <>, <, <=, >, >=): Is Оператор. Сравнения Условное. Выражение

ПРИМЕР Private Sub cmd_wywod_Click() Select Case Val(txt_wwod. Text) Case is <7 Msg. Box ("дошкольник") Case Is < 17 Msg. Box ("школьник") Case Is < 23 Msg. Box ("студент") Case Is < 60 Msg. Box ("рабочий") Case Else Msg. Box ("пенсионер") End Select txt_wwod. Text = "" End Sub Case 1 to 7 Msg. Box ("дошкольник")

ИСПОЛЬЗОВАНИЕ НАБОРА ЗНАЧЕНИЙ Private Sub cmd_wywod_Click() Select Case Val(txt_wwod. Text) Case Is = 1, 3, 5 Msg. Box ("нечетное") Case Is = 2, 4, 6 Msg. Box ("четное") End Select txt_wwod. Text = "" End Sub

ПРИМЕР СО СПИСКОМ Private Sub cmb_spisok_Change() ‘Формирование списка Select Case cmb_spisok. Value Private "собака", "кошка", "лошадь" Sub User. Form_Initialize() Case Is = cmb_spisok. Add. Item ("лошадь") lbl_wywod. Caption = "животное " & cmb_spisok. Value & " имеет 4 ноги" cmb_spisok. Add. Item ("птица") Case Is = "птица" cmb_spisok. Add. Item ("собака") lbl_wywod. Caption = "животное " & cmb_spisok. Value & " имеет 2 cmb_spisok. Add. Item ("кошка") ноги" Case Is = "сороконожка" cmb_spisok. Add. Item ("сороконожка") lbl_wywod. Caption = "животное " & cmb_spisok. Value & " имеет 40 cmb_spisok. Add. Item ("змея") ног" lbl_wywod. Caption = "" Case Is = "змея" lbl_wywod. Caption = "животное " & cmb_spisok. Value & " не имеет End Sub ног" End Select End Sub