🗊Презентация Основы VBA. Арифметические операторы VBA

Категория: Устройства и комплектующие
Нажмите для полного просмотра!
Основы VBA. Арифметические операторы VBA, слайд №1Основы VBA. Арифметические операторы VBA, слайд №2Основы VBA. Арифметические операторы VBA, слайд №3Основы VBA. Арифметические операторы VBA, слайд №4Основы VBA. Арифметические операторы VBA, слайд №5Основы VBA. Арифметические операторы VBA, слайд №6Основы VBA. Арифметические операторы VBA, слайд №7Основы VBA. Арифметические операторы VBA, слайд №8Основы VBA. Арифметические операторы VBA, слайд №9Основы VBA. Арифметические операторы VBA, слайд №10Основы VBA. Арифметические операторы VBA, слайд №11Основы VBA. Арифметические операторы VBA, слайд №12Основы VBA. Арифметические операторы VBA, слайд №13Основы VBA. Арифметические операторы VBA, слайд №14Основы VBA. Арифметические операторы VBA, слайд №15Основы VBA. Арифметические операторы VBA, слайд №16Основы VBA. Арифметические операторы VBA, слайд №17Основы VBA. Арифметические операторы VBA, слайд №18Основы VBA. Арифметические операторы VBA, слайд №19Основы VBA. Арифметические операторы VBA, слайд №20Основы VBA. Арифметические операторы VBA, слайд №21Основы VBA. Арифметические операторы VBA, слайд №22Основы VBA. Арифметические операторы VBA, слайд №23Основы VBA. Арифметические операторы VBA, слайд №24Основы VBA. Арифметические операторы VBA, слайд №25Основы VBA. Арифметические операторы VBA, слайд №26Основы VBA. Арифметические операторы VBA, слайд №27Основы VBA. Арифметические операторы VBA, слайд №28Основы VBA. Арифметические операторы VBA, слайд №29Основы VBA. Арифметические операторы VBA, слайд №30Основы VBA. Арифметические операторы VBA, слайд №31Основы VBA. Арифметические операторы VBA, слайд №32Основы VBA. Арифметические операторы VBA, слайд №33Основы VBA. Арифметические операторы VBA, слайд №34Основы VBA. Арифметические операторы VBA, слайд №35Основы VBA. Арифметические операторы VBA, слайд №36Основы VBA. Арифметические операторы VBA, слайд №37Основы VBA. Арифметические операторы VBA, слайд №38Основы VBA. Арифметические операторы VBA, слайд №39Основы VBA. Арифметические операторы VBA, слайд №40Основы VBA. Арифметические операторы VBA, слайд №41Основы VBA. Арифметические операторы VBA, слайд №42Основы VBA. Арифметические операторы VBA, слайд №43Основы VBA. Арифметические операторы VBA, слайд №44Основы VBA. Арифметические операторы VBA, слайд №45Основы VBA. Арифметические операторы VBA, слайд №46Основы VBA. Арифметические операторы VBA, слайд №47Основы VBA. Арифметические операторы VBA, слайд №48Основы VBA. Арифметические операторы VBA, слайд №49Основы VBA. Арифметические операторы VBA, слайд №50Основы VBA. Арифметические операторы VBA, слайд №51Основы VBA. Арифметические операторы VBA, слайд №52
Скачать

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Основы VBA. Арифметические операторы VBA. Доклад-сообщение содержит 52 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1


Основы VBA
Описание слайда:
Основы VBA

Слайд 2


Арифметические операторы VBA
Описание слайда:
Арифметические операторы VBA

Слайд 3


Конкатенация объединение двух или более объектов счётного вида с сохранением порядка следования элементов. (Списков, строк, массивов, кортежей). Несколько ролей и у оператора + арифметический оператор сложения. оператор конкатенации строк. Пример: операнд1=”язык” операнд2=”Visual Basic” операнд1+ операнд2=“язык” + “Visual Basic” В качестве оператора конкатенации можно использовать и оператор &. Считается, что & использовать предпочтительнее так как он в любом случае обрабатывает операнды как строковые данные.
Описание слайда:
Конкатенация объединение двух или более объектов счётного вида с сохранением порядка следования элементов. (Списков, строк, массивов, кортежей). Несколько ролей и у оператора + арифметический оператор сложения. оператор конкатенации строк. Пример: операнд1=”язык” операнд2=”Visual Basic” операнд1+ операнд2=“язык” + “Visual Basic” В качестве оператора конкатенации можно использовать и оператор &. Считается, что & использовать предпочтительнее так как он в любом случае обрабатывает операнды как строковые данные.

Слайд 4


Пример: Dim str_UserName As String Dim str_Result As String Dim num_First As Double Dim num_Second As Double Dim num_Summ As Double str_UserName = InputBox("Введите ваше имя") num_First = InputBox("Введите первое число") num_Second = InputBox("Введите второе число") num_Summ = num_First + num_Second str_Result = "Здравствуйте, " & str_UserName _ & ". Вы ввели числа " & num_First & " и " & num_Second _ & ". Их сумма равняется " & num_Summ MsgBox (str_Result)
Описание слайда:
Пример: Dim str_UserName As String Dim str_Result As String Dim num_First As Double Dim num_Second As Double Dim num_Summ As Double str_UserName = InputBox("Введите ваше имя") num_First = InputBox("Введите первое число") num_Second = InputBox("Введите второе число") num_Summ = num_First + num_Second str_Result = "Здравствуйте, " & str_UserName _ & ". Вы ввели числа " & num_First & " и " & num_Second _ & ". Их сумма равняется " & num_Summ MsgBox (str_Result)

Слайд 5


Преобразование типов данных Val — тип String в тип Double Val (" 12345привет") возвратит число 12345. Val ("1 2 3") возвратит число 123 Val ("1 2 и 3") возвратит число 12. в начале строки обязательно резервируется позиция для знака числа. Если число является положительным, возвращенная строка будет содержать пробел на месте знака.
Описание слайда:
Преобразование типов данных Val — тип String в тип Double Val (" 12345привет") возвратит число 12345. Val ("1 2 3") возвратит число 123 Val ("1 2 и 3") возвратит число 12. в начале строки обязательно резервируется позиция для знака числа. Если число является положительным, возвращенная строка будет содержать пробел на месте знака.

Слайд 6


Функции проверки типа данных Для того, чтобы узнать тип данных переменной, можно воспользоваться функцией TypeName. Пример: Dim num_MyAge as Byte num_MyAge = 24 MsgBox (TypeName(num_MyAge))
Описание слайда:
Функции проверки типа данных Для того, чтобы узнать тип данных переменной, можно воспользоваться функцией TypeName. Пример: Dim num_MyAge as Byte num_MyAge = 24 MsgBox (TypeName(num_MyAge))

Слайд 7


Встроенные математические функции
Описание слайда:
Встроенные математические функции

Слайд 8


Основы VBA. Арифметические операторы VBA, слайд №8
Описание слайда:

Слайд 9


Пример Randomize MsgBox ("Группа случайных чисел: " + _ Str(Rnd()) + ", " + _ Str(Rnd() * 10) + ", " + _ Str(Rnd() * 75 + 25) + ", " + _ Str(Int(Rnd() * 34))) Использование функции Rnd() Rnd() – случайное число от 0 до 1 Rnd() * 10 – случайное число от 0 до 10 Str(Rnd() * 75 + 25 - случайное число от 25 до 90
Описание слайда:
Пример Randomize MsgBox ("Группа случайных чисел: " + _ Str(Rnd()) + ", " + _ Str(Rnd() * 10) + ", " + _ Str(Rnd() * 75 + 25) + ", " + _ Str(Int(Rnd() * 34))) Использование функции Rnd() Rnd() – случайное число от 0 до 1 Rnd() * 10 – случайное число от 0 до 10 Str(Rnd() * 75 + 25 - случайное число от 25 до 90

Слайд 10


Строковые функции
Описание слайда:
Строковые функции

Слайд 11


Основы VBA. Арифметические операторы VBA, слайд №11
Описание слайда:

Слайд 12


Пример str_InpStr = " У Лукоморья дуб зеленый... " str_NewStr = Mid(Trim(str_InpStr), 2, 1) MsgBox ("Второй символ введенной строки: " + _ str_NewStr) str_NewStr = Mid(Trim(str_InpStr), 15, 1) MsgBox ("Пятнадцатый символ введенной строки: " + _ str_NewStr) 'Выведем 5 символов, начиная с 15 символа str_NewStr = Mid(Trim(str_InpStr), 15, 5) MsgBox ("Пять символов строки с 15-й позиции: " + _ str_NewStr)
Описание слайда:
Пример str_InpStr = " У Лукоморья дуб зеленый... " str_NewStr = Mid(Trim(str_InpStr), 2, 1) MsgBox ("Второй символ введенной строки: " + _ str_NewStr) str_NewStr = Mid(Trim(str_InpStr), 15, 1) MsgBox ("Пятнадцатый символ введенной строки: " + _ str_NewStr) 'Выведем 5 символов, начиная с 15 символа str_NewStr = Mid(Trim(str_InpStr), 15, 5) MsgBox ("Пять символов строки с 15-й позиции: " + _ str_NewStr)

Слайд 13


Пользовательские процедуры и функции функция возвращает в точку вызова некое значение, которое, как правило, является результатом обработки переданной функции информации. процедура лишь выполняет какие-либо действия, но ничего в точку вызова не возвращает. Пример: num_A = num_B + val(str_C) вместо выражения val(str_C) подставляется числовое значение переменной str_C, найденное благодаря функции Val. num_A = InputBox("Введите число"). Здесь функция InputBox возвращает введенное пользователем число в переменную num_A. MsgBox ("Привет") – процедура, вызывающее окно сообщения
Описание слайда:
Пользовательские процедуры и функции функция возвращает в точку вызова некое значение, которое, как правило, является результатом обработки переданной функции информации. процедура лишь выполняет какие-либо действия, но ничего в точку вызова не возвращает. Пример: num_A = num_B + val(str_C) вместо выражения val(str_C) подставляется числовое значение переменной str_C, найденное благодаря функции Val. num_A = InputBox("Введите число"). Здесь функция InputBox возвращает введенное пользователем число в переменную num_A. MsgBox ("Привет") – процедура, вызывающее окно сообщения

Слайд 14


Пользовательские процедуры Процедуры удобно использовать для сокращения объема программы, выделяя в них часто используемые блоки операторов. И каждый раз, когда он будет нужен, вызывать его с помощью одной лишь строчки кода. Пример: нужно опросить пятерых пользователей, обработав и записав их ответы в файл. Private Sub cmd_User_Data_Click() Dim str_Name As String Dim byte_Age As Byte MsgBox ("Здравствуйте, вы пользователь № 1") str_Name = InputBox("Введите ваше имя") byte_Age = InputBox("Введите ваш возраст") 'Здесь находится блок обработки и 'записи введенных данных End Sub что нужно сделать с кодом при переходе ко второму пользователю????
Описание слайда:
Пользовательские процедуры Процедуры удобно использовать для сокращения объема программы, выделяя в них часто используемые блоки операторов. И каждый раз, когда он будет нужен, вызывать его с помощью одной лишь строчки кода. Пример: нужно опросить пятерых пользователей, обработав и записав их ответы в файл. Private Sub cmd_User_Data_Click() Dim str_Name As String Dim byte_Age As Byte MsgBox ("Здравствуйте, вы пользователь № 1") str_Name = InputBox("Введите ваше имя") byte_Age = InputBox("Введите ваш возраст") 'Здесь находится блок обработки и 'записи введенных данных End Sub что нужно сделать с кодом при переходе ко второму пользователю????

Слайд 15


«Скелет» процедуры «Скелет» процедуры Public Sub UserInput(UserNumber As Integer) 'пользовательская процедура 'для ввода и обработки данных End Sub UserInput - имя процедуры (UserNumber As Integer) - объявление переменной, которую можно передать процедуре в качестве параметра Sub – ключевое слово (процедура!) Public – модификатор доступа. Процедуру можно вызвать из любого места проекта. Public Sub UserInput(UserNumber As Integer) MsgBox _ ("Здравствуйте, вы пользователь № " + _ Str(UserNumber)) End Sub
Описание слайда:
«Скелет» процедуры «Скелет» процедуры Public Sub UserInput(UserNumber As Integer) 'пользовательская процедура 'для ввода и обработки данных End Sub UserInput - имя процедуры (UserNumber As Integer) - объявление переменной, которую можно передать процедуре в качестве параметра Sub – ключевое слово (процедура!) Public – модификатор доступа. Процедуру можно вызвать из любого места проекта. Public Sub UserInput(UserNumber As Integer) MsgBox _ ("Здравствуйте, вы пользователь № " + _ Str(UserNumber)) End Sub

Слайд 16


Вызов функции: UserInput (1) Вызов функции: UserInput (1) Public Sub UserInput(UserNumber As Integer) Dim str_Name As String Dim byte_Age As Byte MsgBox _ ("Здравствуйте, вы пользователь № " + _ Str(UserNumber)) str_Name = InputBox("Введите ваше имя") byte_Age = InputBox("Введите ваш возраст") End Sub ‘Код для события «Нажатие кнопки» Private Sub cmd_User_Data_Click() UserInput (1) UserInput (2) UserInput (3) UserInput (4) UserInput (5) End Sub
Описание слайда:
Вызов функции: UserInput (1) Вызов функции: UserInput (1) Public Sub UserInput(UserNumber As Integer) Dim str_Name As String Dim byte_Age As Byte MsgBox _ ("Здравствуйте, вы пользователь № " + _ Str(UserNumber)) str_Name = InputBox("Введите ваше имя") byte_Age = InputBox("Введите ваш возраст") End Sub ‘Код для события «Нажатие кнопки» Private Sub cmd_User_Data_Click() UserInput (1) UserInput (2) UserInput (3) UserInput (4) UserInput (5) End Sub

Слайд 17


Пользовательские функции Пример: создание и использование функции, которая возводит переданное ей число во вторую степень. Public Function Square(num_One As Double) As Double Square = num_One ^ 2 End Function Public Function Square – объявление функции (доступ, функция, имя) Square(num_One As Double) – объявление параметров, передаваемых в функцию As Double - тип возвращаемого значения После того, как найдено значение, которое функция должна возвратить, в тексте кода функции нужно присвоить это значение переменной, которая имеет то же имя, что и функция.
Описание слайда:
Пользовательские функции Пример: создание и использование функции, которая возводит переданное ей число во вторую степень. Public Function Square(num_One As Double) As Double Square = num_One ^ 2 End Function Public Function Square – объявление функции (доступ, функция, имя) Square(num_One As Double) – объявление параметров, передаваемых в функцию As Double - тип возвращаемого значения После того, как найдено значение, которое функция должна возвратить, в тексте кода функции нужно присвоить это значение переменной, которая имеет то же имя, что и функция.

Слайд 18


Private Sub cmd_UserCalc_Click() Private Sub cmd_UserCalc_Click() Dim num_Res As Double Dim num_Input As Double num_Input = CDbl(InputBox("Введите число")) num_Res = Square(num_Input) MsgBox (Str(num_Input) + " во 2-й степени = " + _ Str(num_Res)) End Sub
Описание слайда:
Private Sub cmd_UserCalc_Click() Private Sub cmd_UserCalc_Click() Dim num_Res As Double Dim num_Input As Double num_Input = CDbl(InputBox("Введите число")) num_Res = Square(num_Input) MsgBox (Str(num_Input) + " во 2-й степени = " + _ Str(num_Res)) End Sub

Слайд 19


Массивы и циклы
Описание слайда:
Массивы и циклы

Слайд 20


Массив Массив - это именованный набор индексированных ячеек. Ячейки так же называют элементами массива или индексированными переменными. Используются для обработки больших объемов однотипной информации. У каждого массива 5 основных характеристик: имя, размерность, число элементов, номер первого элемента тип элементов.
Описание слайда:
Массив Массив - это именованный набор индексированных ячеек. Ячейки так же называют элементами массива или индексированными переменными. Используются для обработки больших объемов однотипной информации. У каждого массива 5 основных характеристик: имя, размерность, число элементов, номер первого элемента тип элементов.

Слайд 21


Характеристики массивов Имя - правила именования массивов аналогичны правилам именования переменных. Размерность: одномерные массивы напоминают одну строку таблицы, каждая ячейка которой содержит какие-то данные. многомерные массивы имеют больше измерений. Их можно сравнивать с таблицами, имеющими множество строк и столбцов и с наборами таблиц.
Описание слайда:
Характеристики массивов Имя - правила именования массивов аналогичны правилам именования переменных. Размерность: одномерные массивы напоминают одну строку таблицы, каждая ячейка которой содержит какие-то данные. многомерные массивы имеют больше измерений. Их можно сравнивать с таблицами, имеющими множество строк и столбцов и с наборами таблиц.

Слайд 22


Нумерация элементов : Нумерация элементов : По умолчанию нумерация элементов массива начинается с 0. Первый по счету элемент получит индекс 0, второй - 1 и т.д. В объявлении отдельного массива можно явно указать индекс его первого и последнего элемента, разделив их ключевым словом To. Если вы хотите, чтобы индексы всех массивов начинались с 1, добавьте в раздел объявлений модуля (вне процедур, функций и обработчиков событий) команду Option Base 1.
Описание слайда:
Нумерация элементов : Нумерация элементов : По умолчанию нумерация элементов массива начинается с 0. Первый по счету элемент получит индекс 0, второй - 1 и т.д. В объявлении отдельного массива можно явно указать индекс его первого и последнего элемента, разделив их ключевым словом To. Если вы хотите, чтобы индексы всех массивов начинались с 1, добавьте в раздел объявлений модуля (вне процедур, функций и обработчиков событий) команду Option Base 1.

Слайд 23


Тип - подчиняется тем же правилам, которые мы ранее рассмотрели для переменных. Если пользователь не указал его явно, массив получит тип по умолчанию - Variant. Это требует больше системных ресурсов, но позволяет обрабатывать значения различных типов. Тип - подчиняется тем же правилам, которые мы ранее рассмотрели для переменных. Если пользователь не указал его явно, массив получит тип по умолчанию - Variant. Это требует больше системных ресурсов, но позволяет обрабатывать значения различных типов.
Описание слайда:
Тип - подчиняется тем же правилам, которые мы ранее рассмотрели для переменных. Если пользователь не указал его явно, массив получит тип по умолчанию - Variant. Это требует больше системных ресурсов, но позволяет обрабатывать значения различных типов. Тип - подчиняется тем же правилам, которые мы ранее рассмотрели для переменных. Если пользователь не указал его явно, массив получит тип по умолчанию - Variant. Это требует больше системных ресурсов, но позволяет обрабатывать значения различных типов.

Слайд 24


Одномерные массивы Для объявления массивов используют оператор Dim. Объявить массив можно двумя способами. указать общее количества элементов. Пример: Dim MyArrayA(30) As Single Объявленный массив MyArrayА содержит 31 элемент (с индексами от 0 до 30) типа Single. Поскольку нумерация явно не задана, элементы получат индексы по обычным правилам.
Описание слайда:
Одномерные массивы Для объявления массивов используют оператор Dim. Объявить массив можно двумя способами. указать общее количества элементов. Пример: Dim MyArrayA(30) As Single Объявленный массив MyArrayА содержит 31 элемент (с индексами от 0 до 30) типа Single. Поскольку нумерация явно не задана, элементы получат индексы по обычным правилам.

Слайд 25


задать границы нумерации задать границы нумерации Dim MyArrayB(1 To 25) Массив MyArrayB содержит 25 элементов. Границы нумерации заданы явно - первый элемент получит индекс 1, второй - 2 и т.д. Тип не указан - в массиве можно хранить любые данные.
Описание слайда:
задать границы нумерации задать границы нумерации Dim MyArrayB(1 To 25) Массив MyArrayB содержит 25 элементов. Границы нумерации заданы явно - первый элемент получит индекс 1, второй - 2 и т.д. Тип не указан - в массиве можно хранить любые данные.

Слайд 26


Пример Объявить одномерный массив на 3 элемента Внести в первый элемент число 5 в программе, во второй - запросив значение с помощью окна ввода Вычислить в третьем элементе массива произведение значений, хранящихся в первом и втором элементах. Вывести полученное значение в окне сообщения.
Описание слайда:
Пример Объявить одномерный массив на 3 элемента Внести в первый элемент число 5 в программе, во второй - запросив значение с помощью окна ввода Вычислить в третьем элементе массива произведение значений, хранящихся в первом и втором элементах. Вывести полученное значение в окне сообщения.

Слайд 27


Dim A(2) Dim A(2) A(0) = 5 A(1) = InputBox("Введите значение второго элемента") A(2) = A(0) * A(1) MsgBox A(2)
Описание слайда:
Dim A(2) Dim A(2) A(0) = 5 A(1) = InputBox("Введите значение второго элемента") A(2) = A(0) * A(1) MsgBox A(2)

Слайд 28


Виды циклов
Описание слайда:
Виды циклов

Слайд 29


Цикл For - Next Пример: вывести цифры от 1 до 10 в окнах сообщений. Можно решить и без использования циклов, написав 10 строк вида: MsgBox ("1") и т.д. For i = 1 To 10 MsgBox (i) Next i
Описание слайда:
Цикл For - Next Пример: вывести цифры от 1 до 10 в окнах сообщений. Можно решить и без использования циклов, написав 10 строк вида: MsgBox ("1") и т.д. For i = 1 To 10 MsgBox (i) Next i

Слайд 30


For - ключевое слово, задает начало цикла. For - ключевое слово, задает начало цикла. Переменная i, увеличивается при каждом проходе цикла. Начальное значение счетчика устанавливается при входе в цикл. Конечное значение переменной задается после ключевого слова To. Ключевое слово Next с указанием переменной, к которой оно относится, закрывает цикл. В качестве первого и последнего значения счетчика цикла можно использовать какую-нибудь переменную. Она может быть определена в ходе выполнения программы, но до входа в конструкцию For - Next.
Описание слайда:
For - ключевое слово, задает начало цикла. For - ключевое слово, задает начало цикла. Переменная i, увеличивается при каждом проходе цикла. Начальное значение счетчика устанавливается при входе в цикл. Конечное значение переменной задается после ключевого слова To. Ключевое слово Next с указанием переменной, к которой оно относится, закрывает цикл. В качестве первого и последнего значения счетчика цикла можно использовать какую-нибудь переменную. Она может быть определена в ходе выполнения программы, но до входа в конструкцию For - Next.

Слайд 31


Переменная цикла меняется с приращением Переменная цикла меняется с приращением приращение можно задать в явном виде с помощью ключевого слова Step. For i = 1 To 10 Step 2 MsgBox (i) Next i С помощью ключевого слова Step можно создать не только возрастающий, но и убывающий счетчик. Для этого в Step надо указать отрицательное число и проследить за тем, чтобы первое значение переменной цикла было больше последнего. Пример: For i=10 to 1 Step -1. Первое значение переменной в таком цикле будет равняться 10, второе - 9 и т.д. - до 1.
Описание слайда:
Переменная цикла меняется с приращением Переменная цикла меняется с приращением приращение можно задать в явном виде с помощью ключевого слова Step. For i = 1 To 10 Step 2 MsgBox (i) Next i С помощью ключевого слова Step можно создать не только возрастающий, но и убывающий счетчик. Для этого в Step надо указать отрицательное число и проследить за тем, чтобы первое значение переменной цикла было больше последнего. Пример: For i=10 to 1 Step -1. Первое значение переменной в таком цикле будет равняться 10, второе - 9 и т.д. - до 1.

Слайд 32


Пример: использование массивов и цикла Dim MyArray(9) For i = 0 To 9 MyArray(i) = InputBox("Введите фамилию №" & i + 1) Next i For i = 0 To 9 'Начало еще одного цикла MsgBox ("Фамилия №" & (i + 1) & " " & MyArray(i)) Next i 'Конец цикла
Описание слайда:
Пример: использование массивов и цикла Dim MyArray(9) For i = 0 To 9 MyArray(i) = InputBox("Введите фамилию №" & i + 1) Next i For i = 0 To 9 'Начало еще одного цикла MsgBox ("Фамилия №" & (i + 1) & " " & MyArray(i)) Next i 'Конец цикла

Слайд 33


Многомерные массивы Двумерный массив - матрица Dim MyArrayA(10, 1) As Single Массив MyArrayА содержит 11 строк и 2 столбца типа Single. Можно в явном виде задать границы размерностей: Dim MyArrayB(1 To 25, 1 To 5) Массив MyArrayB содержит 25 строк и 5 столбцов. Границы нумерации заданы явно. Тип не указан - в массиве можно хранить любые данные.
Описание слайда:
Многомерные массивы Двумерный массив - матрица Dim MyArrayA(10, 1) As Single Массив MyArrayА содержит 11 строк и 2 столбца типа Single. Можно в явном виде задать границы размерностей: Dim MyArrayB(1 To 25, 1 To 5) Массив MyArrayB содержит 25 строк и 5 столбцов. Границы нумерации заданы явно. Тип не указан - в массиве можно хранить любые данные.

Слайд 34


Пример Dim MyArray(1 To 5, 1 To 2) For i = 1 To 5 MyArray(i, 1) = InputBox("Введите фамилию №" & i) MyArray(i, 2) = InputBox("Введите Телефон №" & i) Next i
Описание слайда:
Пример Dim MyArray(1 To 5, 1 To 2) For i = 1 To 5 MyArray(i, 1) = InputBox("Введите фамилию №" & i) MyArray(i, 2) = InputBox("Введите Телефон №" & i) Next i

Слайд 35


Основы VBA. Арифметические операторы VBA, слайд №35
Описание слайда:

Слайд 36


Вложенные циклы For-Next Dim MyArray(1 To 10, 1 To 10) For i = 1 To 10 For j = 1 To 10 MyArray(i, j) = Int(Rnd(1) * 10) Next j Next i
Описание слайда:
Вложенные циклы For-Next Dim MyArray(1 To 10, 1 To 10) For i = 1 To 10 For j = 1 To 10 MyArray(i, j) = Int(Rnd(1) * 10) Next j Next i

Слайд 37


Динамические массивы Dim MyArray() ArraySize = InputBox("Введите количество сотрудников") ReDim MyArray(1 To ArraySize, 1 To 2) Для добавления двух дополнительных столбцов в динамический массив нужно использовать такую команду: ReDim Preserve MyArray(1 To ArraySize, 1 To 4)
Описание слайда:
Динамические массивы Dim MyArray() ArraySize = InputBox("Введите количество сотрудников") ReDim MyArray(1 To ArraySize, 1 To 2) Для добавления двух дополнительных столбцов в динамический массив нужно использовать такую команду: ReDim Preserve MyArray(1 To ArraySize, 1 To 4)

Слайд 38


Дополнительные команды работы с массивами Array (Список аргументов) - позволяет быстро заполнять массив. Например: Dim MyArray MyArray = Array(1, 2, 6, 9, 19) MsgBox MyArray(0) IsArray (Имя переменной) - возвращает True если переменная является массивом. Dim MyArray(10) If IsArray(MyArray) Then _ MsgBox ("Переменная MyArray - массив") _ Else MsgBox ("Переменная MyArray - не массив")
Описание слайда:
Дополнительные команды работы с массивами Array (Список аргументов) - позволяет быстро заполнять массив. Например: Dim MyArray MyArray = Array(1, 2, 6, 9, 19) MsgBox MyArray(0) IsArray (Имя переменной) - возвращает True если переменная является массивом. Dim MyArray(10) If IsArray(MyArray) Then _ MsgBox ("Переменная MyArray - массив") _ Else MsgBox ("Переменная MyArray - не массив")

Слайд 39


Функции LBound (Имя Массива, Размерность) - возвращает нижнюю границу для указанной размерности массива. UBound (Имя Массива, Размерность) - возвращает верхнюю границу для указанной размерности массива.
Описание слайда:
Функции LBound (Имя Массива, Размерность) - возвращает нижнюю границу для указанной размерности массива. UBound (Имя Массива, Размерность) - возвращает верхнюю границу для указанной размерности массива.

Слайд 40


Пример Dim MyArray() ReDim MyArray(Int(Rnd * 5 + 5), Int(Rnd * 5 + 5)) MsgBox ("Двумерный массив MyArray:" +Chr(13) +_ "Первая размерность:" + Str(LBound(MyArray, 1)) +« -»_ + Str(UBound(MyArray, 1)) + Chr(13) + _ "Вторая размерность:"+ Str(LBound(MyArray, 2)) + «-»_ +Str(UBound(MyArray, 2))) For i = LBound(MyArray, 1) To UBound(MyArray, 1) For j = LBound(MyArray, 2) To UBound(MyArray, 2) MyArray(i, j) = Int(Rnd * 100) Next j Next i
Описание слайда:
Пример Dim MyArray() ReDim MyArray(Int(Rnd * 5 + 5), Int(Rnd * 5 + 5)) MsgBox ("Двумерный массив MyArray:" +Chr(13) +_ "Первая размерность:" + Str(LBound(MyArray, 1)) +« -»_ + Str(UBound(MyArray, 1)) + Chr(13) + _ "Вторая размерность:"+ Str(LBound(MyArray, 2)) + «-»_ +Str(UBound(MyArray, 2))) For i = LBound(MyArray, 1) To UBound(MyArray, 1) For j = LBound(MyArray, 2) To UBound(MyArray, 2) MyArray(i, j) = Int(Rnd * 100) Next j Next i

Слайд 41


Erase Имя_массива - очистить массив. Элементы обычных массивов, содержащих числовые данные, обнуляются. Erase Имя_массива - очистить массив. Элементы обычных массивов, содержащих числовые данные, обнуляются. Если мы применим команду Erase к массиву строк - каждый его элемент будет хранить строку нулевой длины (""). Применяя команду Erase к динамическому массиву, мы очищаем память, выделенную этому массиву командой ReDim. Для повторного использования динамического массива, придется снова устанавливать его размерности.
Описание слайда:
Erase Имя_массива - очистить массив. Элементы обычных массивов, содержащих числовые данные, обнуляются. Erase Имя_массива - очистить массив. Элементы обычных массивов, содержащих числовые данные, обнуляются. Если мы применим команду Erase к массиву строк - каждый его элемент будет хранить строку нулевой длины (""). Применяя команду Erase к динамическому массиву, мы очищаем память, выделенную этому массиву командой ReDim. Для повторного использования динамического массива, придется снова устанавливать его размерности.

Слайд 42


Цикл с предусловием Цикл с предусловием While - Wend выполняется до тех пор, пока условие, указанное на входе, верно. А = 1 While А < 10 А = Int(Rnd() * 20) MsgBox А Wend
Описание слайда:
Цикл с предусловием Цикл с предусловием While - Wend выполняется до тех пор, пока условие, указанное на входе, верно. А = 1 While А < 10 А = Int(Rnd() * 20) MsgBox А Wend

Слайд 43


Цикл с постусловием Цикл Do-Loop While выполняется до тех пор, пока значение на выходе из цикла верно. Подобные циклы используют, например, для проверки правильности ввода каких-либо данных пользователем. Если данные введены неверно - цикл выполняется снова. Аналогично действует цикл Do-Loop Until - он будет выполняться до тех пор, пока условие цикла неверно (то есть равно False ).
Описание слайда:
Цикл с постусловием Цикл Do-Loop While выполняется до тех пор, пока значение на выходе из цикла верно. Подобные циклы используют, например, для проверки правильности ввода каких-либо данных пользователем. Если данные введены неверно - цикл выполняется снова. Аналогично действует цикл Do-Loop Until - он будет выполняться до тех пор, пока условие цикла неверно (то есть равно False ).

Слайд 44


Dim var_A Dim var_A Do var_A = InputBox("Введите число") Loop Until IsNumeric(var_A) Пользователю предлагается ввести какое-нибудь число. Если введено не число (то есть функция IsNumeric возвратит False ), программа выведет окно ввода снова.
Описание слайда:
Dim var_A Dim var_A Do var_A = InputBox("Введите число") Loop Until IsNumeric(var_A) Пользователю предлагается ввести какое-нибудь число. Если введено не число (то есть функция IsNumeric возвратит False ), программа выведет окно ввода снова.

Слайд 45


Оператор Like
Описание слайда:
Оператор Like

Слайд 46


Символы для построения шаблонов
Описание слайда:
Символы для построения шаблонов

Слайд 47


Пример Узнать, есть ли в строке прописные и заглавные буквы латинского алфавита. Проверить, состоит ли введенное слово из четырех символов (цифр или букв) Проверить, состоит ли введенная последовательность из двух любых символов (цифр или букв) и двух цифр Проверить, нет ли во введенной строке русских букв " а " и " о " Если введенная строка начинается двумя буквами " d " и заканчивается тремя буквами " f ", сообщить об этом
Описание слайда:
Пример Узнать, есть ли в строке прописные и заглавные буквы латинского алфавита. Проверить, состоит ли введенное слово из четырех символов (цифр или букв) Проверить, состоит ли введенная последовательность из двух любых символов (цифр или букв) и двух цифр Проверить, нет ли во введенной строке русских букв " а " и " о " Если введенная строка начинается двумя буквами " d " и заканчивается тремя буквами " f ", сообщить об этом

Слайд 48


Dim str_Inp As String Dim str_Inp As String str_Inp = InputBox("Введите строку") 'Есть ли латинские буквы в строке If str_Inp Like "*[a-z]*" Or str_Inp Like "*[A-Z]*" _ Then MsgBox ("В строке есть латинские буквы") 'Состоит ли введенное слово из 4-х символов If str_Inp Like "????" Then _ MsgBox ("Введенное слово состоит из 4-х символов")
Описание слайда:
Dim str_Inp As String Dim str_Inp As String str_Inp = InputBox("Введите строку") 'Есть ли латинские буквы в строке If str_Inp Like "*[a-z]*" Or str_Inp Like "*[A-Z]*" _ Then MsgBox ("В строке есть латинские буквы") 'Состоит ли введенное слово из 4-х символов If str_Inp Like "????" Then _ MsgBox ("Введенное слово состоит из 4-х символов")

Слайд 49


'Состоит ли введенная последовательность 'Состоит ли введенная последовательность 'из 2-х любых символов и 2-х цифр If str_Inp Like "??##" Then _ MsgBox ("Введены два любых символа и две цифры") 'Проверка на отсутствие букв "а", "о" If str_Inp Like "[!а]" And _ str_Inp Like "[!о]" Then MsgBox ("В строке нет букв " + Chr(34) + _ "а" + Chr(34) + " и " + Chr(34) + "о" + Chr(34)) End If 'Проверка на наличие в начале введенной 'строки двух букв "d", а в конце трех "f" If str_Inp Like "dd*fff" _ Then MsgBox ("Строка имеет вид: dd*fff")
Описание слайда:
'Состоит ли введенная последовательность 'Состоит ли введенная последовательность 'из 2-х любых символов и 2-х цифр If str_Inp Like "??##" Then _ MsgBox ("Введены два любых символа и две цифры") 'Проверка на отсутствие букв "а", "о" If str_Inp Like "[!а]" And _ str_Inp Like "[!о]" Then MsgBox ("В строке нет букв " + Chr(34) + _ "а" + Chr(34) + " и " + Chr(34) + "о" + Chr(34)) End If 'Проверка на наличие в начале введенной 'строки двух букв "d", а в конце трех "f" If str_Inp Like "dd*fff" _ Then MsgBox ("Строка имеет вид: dd*fff")

Слайд 50


Работа с внешними файлами var_Doc = Dir("C:\*.*") Do While var_Doc <> "" MsgBox var_Doc var_Doc = Dir() Loop Поиск всех файлов в корневом каталоге диска C. Функция Dir возвращает строку, содержащую имя файла, используя путь, заданный при вызове
Описание слайда:
Работа с внешними файлами var_Doc = Dir("C:\*.*") Do While var_Doc <> "" MsgBox var_Doc var_Doc = Dir() Loop Поиск всех файлов в корневом каталоге диска C. Функция Dir возвращает строку, содержащую имя файла, используя путь, заданный при вызове

Слайд 51


Dir По умолчанию функция ищет лишь обычные файлы, не обращая внимания на папки, скрытые и системные файлы. Чтобы функция нашла по заданному пути не только файлы, но и папки, ее нужно вызвать так: var_Doc = Dir("C:\*.*", vbDirectory) Обратите внимание на то, что после пути и маски указан параметр vbDirectory - он указывает функции, что она должна включить в поиск и директории.
Описание слайда:
Dir По умолчанию функция ищет лишь обычные файлы, не обращая внимания на папки, скрытые и системные файлы. Чтобы функция нашла по заданному пути не только файлы, но и папки, ее нужно вызвать так: var_Doc = Dir("C:\*.*", vbDirectory) Обратите внимание на то, что после пути и маски указан параметр vbDirectory - он указывает функции, что она должна включить в поиск и директории.

Слайд 52


ChDir Помимо Dir полезной может оказаться команда ChDir. Она позволяет перейти в указанную при ее вызове директорию, которая будет использоваться в качестве директории по умолчанию. Такая конструкция, предшествующая циклу из предыдущего примера позволит найти все файлы в папке "Документы", которая расположена по пути " C:\Документы ": ChDir ("C:\Документы") var_doc = Dir("*.*")
Описание слайда:
ChDir Помимо Dir полезной может оказаться команда ChDir. Она позволяет перейти в указанную при ее вызове директорию, которая будет использоваться в качестве директории по умолчанию. Такая конструкция, предшествующая циклу из предыдущего примера позволит найти все файлы в папке "Документы", которая расположена по пути " C:\Документы ": ChDir ("C:\Документы") var_doc = Dir("*.*")

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию