Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
33 слайда
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
680.51 kB
Просмотров:
64
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![VBA Visual Basic for](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img0.jpg)
Содержание слайда: VBA
Visual Basic for Application
(лекции 1-3)
№2 слайд![Для записи макроса с помощью](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img1.jpg)
Содержание слайда: Для записи макроса с помощью Макрорекордера необходимо:
Для записи макроса с помощью Макрорекордера необходимо:
1. Вкладка Разработчик, группа Код, кнопка Запись макроса .
2. В окне Запись макроса установить параметры записываемой процедуры , нажать ОК. Кнопка Запись макроса в группе КОД изменится на кнопку Остановить запись .
3. Выполнить действия, которые нужно записать.
4. Нажать кнопку Остановить запись
№3 слайд![Для просмотра и](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img2.jpg)
Содержание слайда: Для просмотра и редактирования созданного макроса:
Для просмотра и редактирования созданного макроса:
Вкладка Разработчик, группа Код, кнопка Макросы, в диалоговом окне Макрос выбрать имя макроса, нажать кнопку Изменить, откроется редактор VBA и окно Модуль с текстом макроса.
Внести в текст макроса необходимые изменения и закрыть окно редактора.
№4 слайд![Пример создать макрос](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img3.jpg)
Содержание слайда: Пример: создать макрос построения графиков функций
Y1=|sin x|+|cos x| и Y2=3sin√x+0,35x – 1,8
на отрезке [-5; 5] с шагом h=0,5
№5 слайд![Назначение макроса ГРАФИК](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img4.jpg)
Содержание слайда: Назначение макроса ГРАФИК командной кнопке
Затем щелкнуть правой кнопкой мыши по создавшейся кнопке и в открывшемся контекстном меню выбрать команду «Свойства».
Откроется окно «Properties», где изменить надпись на кнопке: «Графики».
Еще раз щелкнуть правой кнопкой мыши на кнопке и в открывшемся контекстном меню выбрать команду «Исходный текст».
Откроется окно кода рабочего листа, где после заголовка процедуры, ввести инструкцию: Call график.
Private Sub CommandButton1_Click()
Call график
End Sub
Чтобы запустить макрос достаточно будет нажать кнопку «Графики».
№6 слайд![Редактор VBA Вкладка](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img5.jpg)
Содержание слайда: Редактор VBA
Вкладка Разработчик
№7 слайд![Окно Параметры EXCEL Окно](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img6.jpg)
Содержание слайда: Окно Параметры EXCEL
Окно Параметры EXCEL
№8 слайд![Окно редактора VBA Окно](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img7.jpg)
Содержание слайда: Окно редактора VBA
Окно редактора VBA
№9 слайд![Работа в редакторе VBA](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img8.jpg)
Содержание слайда: Работа в редакторе VBA
Автоматизированный ввод текста программы
№10 слайд![ФОРМЫ](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img9.jpg)
№11 слайд![Типы данных](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img10.jpg)
Содержание слайда: Типы данных
№12 слайд![Типы данных](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img11.jpg)
Содержание слайда: Типы данных
№13 слайд![Область действия переменных](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img12.jpg)
Содержание слайда: Область действия переменных
Переменные, описанные с помощью ключевого слова Dim на уровне модуля, доступны для всех процедур в данном модуле. Переменные, описанные на уровне процедуры, доступны только в данной процедуре. [Public |Private] используется на уровне модуля для описания констант
( доступных всем модулям | только внутри модуля) .
Описание переменных: [Public |Private| Dim|Static ] ИмяПеременной As Тип
1. Длина <=255 символов.
2. Имя не может содержать точек, пробелов и следующих символов:
%, !, &, #, @, $.
3. Имя может содержать любую комбинацию букв, цифр, и символов, начинающуюся с буквы.
4. Имена должны быть уникальны в области, в которой они определены.
5. Не следует использовать имена, совпадающие с ключевыми словами VBA и именами встроенных процедур и функций.
Константы
[Public |Private] Const ИмяКонстанты [As тип] = Выражение
№14 слайд![ОПЕРАЦИИ Математические](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img13.jpg)
Содержание слайда: ОПЕРАЦИИ
Математические операции:
+ - * / \ Mod ^
Операции отношения :
< <= > >= <> =
obj1 is obj2 str1 Like str2
Логические операции:
And Or Xor Eqv Imp Not
№15 слайд![Встроенные диалоговые окна](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img14.jpg)
Содержание слайда: Встроенные
диалоговые окна
Окно сообщения ( используется для вывода, диалога)
MsgBox (Сообщение,Атрибуты,Заголовок, справка)
P=MsgBox(…..)
Сообщение – выводимый текст.
Атрибуты = Параметр1 + Параметр2
(по умолчанию только кнопка "ОК«)
№16 слайд![Окно ввода](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img15.jpg)
Содержание слайда: Окно ввода
№17 слайд![MsgBox quot Привет! quot ,](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img16.jpg)
Содержание слайда: MsgBox "Привет!", vbYesNoCancel + vbInformation , "Мое первое окно"
MsgBox "Привет!", vbYesNoCancel + vbInformation , "Мое первое окно"
MsgBox "Первая программа", , "Окно сообщения”
№18 слайд![Пример Сумма двух чисел Sub](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img17.jpg)
Содержание слайда: Пример: Сумма двух чисел
Sub Summa()
Dim A As Integer
Dim B As Integer
Dim C As Integer
A = Val(InputBox(“A=”))
B = Val(InputBox(“B=”))
C = A + B
MsgBox C
End Sub
№19 слайд![Управляющие алгоритмические](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img18.jpg)
Содержание слайда: Управляющие алгоритмические конструкции
Конструкции ветвления (If и Select)
Циклические конструкции
№20 слайд![Оператор ветвления](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img19.jpg)
Содержание слайда: Оператор ветвления
Однострочная форма:
If U Then S1 Else S2
Блочная форма :
If U Then
S1>
Else
S2>
End if
№21 слайд![Вложенные условные операторы](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img20.jpg)
Содержание слайда: ‘ Вложенные условные операторы
Sub School()
dim Age as integer
Age=InputBox(“Укажите возраст”)
If Age >7 Then
If Age <=17 Then
MsgBox “Школьник”
Else
MsgBox “Взрослый”
End If
Else
MsgBox “Дошкольник”
End If
End Sub
№22 слайд![SELECT CASE Sub Scase Dim a](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img21.jpg)
Содержание слайда: SELECT CASE
Sub Scase()
Dim a as Integer
A=InputBox(“Ваш рост в см”)
Select Case A
Case Is <160
MsgBox “У вас маленький рост”
Case 161 to 180
MsgBox “Вы человек среднего роста”
Case Is >180
MsgBox “Вы высокий человек”
End Select
End Sub
№23 слайд![Циклы С предусловием С](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img22.jpg)
Содержание слайда: Циклы
С предусловием;
С постусловием
№24 слайд![ЦИКЛЫ ЦИКЛ с предусловием](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img23.jpg)
Содержание слайда: ЦИКЛЫ
ЦИКЛ с предусловием
While U
Операторы
Wend
№25 слайд![](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img24.jpg)
№26 слайд![](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img25.jpg)
№27 слайд![](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img26.jpg)
№28 слайд![](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img27.jpg)
№29 слайд![ЧИСЛОВЫЕ ПОСЛЕДОВАТЕЛЬНОСТИ](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img28.jpg)
Содержание слайда: ЧИСЛОВЫЕ ПОСЛЕДОВАТЕЛЬНОСТИ
Последовательность — это набор элементов, расположенных в определенном порядке.
Все элементы последовательности имеют номера, обычно начиная с 1. Для того, чтобы задать последовательность, используют два следующих способа.
1. Рекуррентную формулу, которая позволяет вычислить элемент с номером n, зная один или несколько предыдущих. Например, последовательность
1, 3, 5, 7, … можно задать рекуррентной формулой .
2. Формулу для n-ого члена последовательности. Для той же последовательности легко получить . Правая часть этой формулы зависит только от номера элемента n.
Для хорошо известной арифметической прогрессии формула n-ого члена имеет вид
Для геометрической прогрессии, соответственно,
№30 слайд![Обработка последовательностей](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img29.jpg)
Содержание слайда: Обработка последовательностей
Найти максимальный элемент последовательности ненулевых целых чисел.
0 - признак конца последовательности.
№31 слайд![Рекуррентные](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img30.jpg)
Содержание слайда: Рекуррентные последовательности
В 1202 г. итальянский математик Леонардо Пизанский, известный под именем Фибоначчи, предложил такую задачу:
Задача Фибоначчи. Пара кроликов каждый месяц дает приплод – самца и самку, которые через 2 месяца снова дают такой же приплод. Сколько пар кроликов будет через год, если сейчас мы имеем 1 пару молодых кроликов?
Количество кроликов меняется с каждым месяцем в соответствии с последовательностью 1, 1, 2, 3, 5, 8, 13, 21, 34, ...,
которую называют последовательностью Фибоначчи. Она задается не общей формулой n-ого члена, а рекуррентной формулой, в которой n-ый член выражается через предыдущие. При этом надо определить начальные элементы:
№32 слайд![Получить все числа Фибоначчи,](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img31.jpg)
Содержание слайда: Получить все числа Фибоначчи, не превышающие данного N.
Sub Fibb()
Dim N as integer
Dim f1 as integer, f2 as integer
f1=1 : f2=1
While f1 <= N
MsgBox f1
f1=f1 +f2
f2=f1-f2
Wend
End Sub
№33 слайд![](/documents_6/e1a8527331bd5aae25d0280928f92d2d/img32.jpg)