Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
19 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
247.00 kB
Просмотров:
66
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![Операторы цикла](/documents/134c75bb26304479b1dffae26b160f3e/img0.jpg)
Содержание слайда: Операторы цикла
№2 слайд![Оператор цикла For Next FOR](/documents/134c75bb26304479b1dffae26b160f3e/img1.jpg)
Содержание слайда: Оператор цикла For… Next
FOR счетчик = начало TO конец [STEP шаг]
[блок операторов]
Next [счетчик = конец]
Оператор For…Next повторяет блок операторов конечное число раз, задавая начальное и конечное значение счетчика цикла и шаг приращения.
№3 слайд![Функция вычисления факториала](/documents/134c75bb26304479b1dffae26b160f3e/img2.jpg)
Содержание слайда: Функция вычисления факториала
Function Факт (n) as integer
F=1
For i=n to 1 Step -1
F=F*i
Next i
Факт = F
End Function
№4 слайд![](/documents/134c75bb26304479b1dffae26b160f3e/img3.jpg)
№5 слайд![Оператор цикла DO LOOP с пред](/documents/134c75bb26304479b1dffae26b160f3e/img4.jpg)
Содержание слайда: Оператор цикла DO … LOOP (с пред условием)
Do WHILE (условие)
[блок инструкций]
[Exit Do]
LOOP
№6 слайд![Пример оператора цикла DO](/documents/134c75bb26304479b1dffae26b160f3e/img5.jpg)
Содержание слайда: Пример оператора цикла DO … LOOP
(с пост- условием)
Do
Пароль=InputBox(«Введите пароль»)
Loop Until Пароль=«Здравствуй»
№7 слайд![Оператор цикла For Each](/documents/134c75bb26304479b1dffae26b160f3e/img6.jpg)
Содержание слайда: Оператор цикла For Each
Оператор For Each повторяет выполнение группы инструкций для каждого элемента массива или семейства.
For Each Элемент In Группа
[блок операторов]
[Exit For]
[блок операторов]
Next [Элемент]
№8 слайд![Пример оператора цикла For](/documents/134c75bb26304479b1dffae26b160f3e/img7.jpg)
Содержание слайда: Пример оператора цикла For Each
Dim A as variant
A=Array(23,52,67,41,39,86,77,14)
S=0
For Each B In A
S=S+B
Next B
‘ Нахождение суммы элементов вектора А
№9 слайд![МАССИВЫ VBA](/documents/134c75bb26304479b1dffae26b160f3e/img8.jpg)
Содержание слайда: МАССИВЫ VBA
№10 слайд![Одномерные массивы заданного](/documents/134c75bb26304479b1dffae26b160f3e/img9.jpg)
Содержание слайда: Одномерные массивы заданного размера
Массив – это группа позиций, каждая из которых может принимать значение, как переменная.
Например: Vv(7)=245
Способы объявления массива:
Dim ИмяМассива (start To End) [as type]
Dim VV(1 to 15) As Integer -15 элементов в массиве
Dim VV(15) As Integer -16 элементов в массиве
Vv(0), Vv(1),…..,Vv(15)
№11 слайд![Public Sub Пример Public Sub](/documents/134c75bb26304479b1dffae26b160f3e/img10.jpg)
Содержание слайда: Public Sub Пример()
Public Sub Пример()
Dim nn(4) «Объявили массив из 5 переменных»
nn(0) = 120
nn(1) = 121
nn(2) = 122
nn(3) = 123
nn(4) = 124
MsgBox nn(4)
End Sub
Вы можете ссылаться на каждый элемент массива по его индексу
№12 слайд![Задание массива при помощи](/documents/134c75bb26304479b1dffae26b160f3e/img11.jpg)
Содержание слайда: Задание массива при помощи функции Array
Dim Число as variant
Число= Array (5, 40,10,16)
Результат=Число(0) +Число(3)
MsgBox Число
Array преобразует список элементов, разделенных запятыми, в вектор из этих значений, и присваивает их переменной типа Variant.
№13 слайд![Dim Город as Variant Dim](/documents/134c75bb26304479b1dffae26b160f3e/img12.jpg)
Содержание слайда: Dim Город as Variant
Dim Город as Variant
Город = Array («Москва», «Питер», «Киев», «Минск»)
MsgBox Город(2)
№14 слайд![Многомерные массивы Dim РР to](/documents/134c75bb26304479b1dffae26b160f3e/img13.jpg)
Содержание слайда: Многомерные массивы
Dim РР(1 to 4, 1 to 3)
Например: 33 53 76 100
22 88 8 63
12 55 99 123
РР(1,3) = 12
№15 слайд![Диапазон Dim МойМассив as](/documents/134c75bb26304479b1dffae26b160f3e/img14.jpg)
Содержание слайда: Диапазон
Dim МойМассив(5) as Variant
При использовании массива с диапазоном ячеек массив должен быть объявлен как переменная типа Variant
№16 слайд![Динамические массивы Например](/documents/134c75bb26304479b1dffae26b160f3e/img15.jpg)
Содержание слайда: Динамические массивы
Например:
Dim Корзина() As Integer
После того, как количество элементов будет определено (вычислено или введено в диалоговом окне) необходимо установить границы динамического массива:
ReDim Корзина(1 to 28)
ReDim Preserve Корзина(33)
№17 слайд![Использование операторов](/documents/134c75bb26304479b1dffae26b160f3e/img16.jpg)
Содержание слайда: Использование операторов цикла при работе с массивами
№18 слайд![Вычисление суммы двумерного](/documents/134c75bb26304479b1dffae26b160f3e/img17.jpg)
Содержание слайда: Вычисление суммы двумерного массива. (Использование массива в качестве параметров процедуры
Sub СуммаМассива (A(), n, m, s)
s=0
For i=1 to n
For j=1 to m
S=S+A(I, j)
Next j
Next I
End Sub
№19 слайд![Пример Sub Тест B , B , B , B](/documents/134c75bb26304479b1dffae26b160f3e/img18.jpg)
Содержание слайда: Пример :
Sub Тест()
B(1,1)=1: B(1,2)=5:
B(2,1)=4: B(2,2)=5
B(3,1)=3: B(3,2)=1
СуммаМассива B, 3, 2, S
MsgBox S
End Sub