Управляющие структуры VBA



Витебский государственный профессиональный лицей № 5 приборостроения

Тема:«Управляющие структурыVBA»

Оглавление

  1. В ВЕДЕНИЕ

Язык программированияVBA (VisualBasicforApplication) предназначен для автоматизации разработки документов при решении задач, использующих приложения пакета:Excel,Word,Access. VBA был разработан на основе языка Visual Basic, является высокоуровневым языком программирования, и, в нем широко используются элементы объектно-ориентированного программирования.

Объектно-ориентированное программирование (ООП) – это совокупность подходов, методов, определяющая стиль написания программ, в которой основными концепциями являются понятия объектов и классов.

С помощью VBA можно:

Макрос ̶это макрокоманда в программном коде, последовательность нескольких команд или процедур, объединённых для выполнения определённой задачи. Макросы служат для ускорения выполнения сложных действий, повторяющихся много раз. Благодаря макросам не требуется каждый раз вводить одну и ту же последовательность команд, а достаточно просто вызвать нужный макрос.

Целью данной письменной экзаменационной работы является изучение управляющих структур языкаVBA.

  1. Т ЕОРИТИЧЕСКИЙ МАТЕРИАЛ

    Процедуры VBA выполняются построчно от начала до конца, если последовательность их выполнения не будет изменена каким-либо событием или с помощью структуры управления. Управляющие структуры определяют порядок выполнения кода. Это инструмент для принятия решения в самой программе. В VBA используются следующие структуры управления:

    1. If Then Else;
    2. For Next;
    3. While Wend;
    4. Do Loop;
    5. Select Case End Select.
      1. УПРАВЛЯЮЩАЯ ИНСТРУКЦИЯ  IF … THEN …  ELSE …

    Эта конструкция изменяет порядок выполнения инструкций в зависимости от результатов проверки заданного условия (или набора условий).

    Конструкция:

    БлочныйIf:

    If<условие>Then

    <блок операторов 1>

    Else <блок операторов 2>

    End If

    СтрочныйIf:

    If <условие>Then <блок операторов 1>Else<блок операторов 2>

    End If

    БлочныйIf, если требуется несколько условий:

    If <условие 1>Then

    <блок операторов 1>

    Else

    If <условие 2>Then

    Else <блок операторов 3>

    End If

    EndIf

    If (если)  ̶  логическое выражение;

    Then (тогда)   ̶  значение если истина;

    Else(иначе)   ̶  значение если ложь;

    End If   ̶  ключевое слово, означающее конец инструкции.

    1. УПРАВЛЯЮЩАЯ ИНСТРУКЦИЯFORNEXT

    Эта инструкция позволяет выполнять определённые действия нужное количество раз. Такие инструкции, как правило, называют циклами.

    Конструкция:

    For [счетчик] = началоTo конец [Step шаг]

    [инструкции]

    Next [счетчик]

    Например, если нужно узнать о количестве повторений цикла:

    Private Sub

    Dim i, a As Integer

    a = 0

    For i = 1 To 100 Step 2

    a = a + 1

    Next

    MsgBox "Числоповторений: " & a

    End Sub

    For (для) – ключевое слово, означающее начало цикла;

    i  ̶  переменная, определяющая число повторений цикла;

    1   ̶  начальное значение счётчика;

    To  ̶  ключевое слово, разделяющее начальное и конечное значение счётчика;

    100   ̶  конечное значение счётчика;

    Step(шаг)   ̶  ключевое слово, определяющее шаг счётчика;

    2   ̶  Шаг счётчика (число);

    Next (следующий)   ̶  ключевое слово, при достижении которого, значение счётчика изменяется на величину шага, после чего управление опять переходит в начало цикла;

    MsgBox ̶  функция, позволяющая вывести сообщение о количестве повторений.

    В инструкцииFor Next ключевое словоStep является необязательным. При его отсутствии, шаг выполнения счётчика будет равен 1.

    Шаг счётчика обязательно должен быть числом. Если шаг счётчика указан в виде отрицательного числа, то тогда значение счётчика с каждым циклом будет уменьшаться.

    Пример, с обратным отсчётом:

    PrivateSub

    Dim i, a As Integer

    a = 0

    For i = 300 To 1 Step -3

    a = a + 1

    Nexti

    MsgBox "Число повторений: " &a

    EndSub

    1. УПРАВЛЯЮЩАЯ ИНСТРУКЦИЯWHILEWEND

    Инструкция While …Wend … выполняет последовательность инструкций, пока заданное условие имеет значение True.

    Конструкция:

    While <условие>

    [инструкции]

    Wend

    Например, если нужно узнать о количестве повторений цикла:

    Private Sub

    Dim i As Integer

    i = 0

    While i < 100

    i = i + 1

    Wend

    MsgBox "Число повторений: " &i

    EndSub

    While (пока)   ̶  ключевое слово, означающее начало цикла;

    i < 100  ̶  условие, при соблюдении которого будет выполняться эта инструкция;

    Wend   ̶  ключевое слово, означающее конец цикла;

    MsgBox   ̶  сообщение о количестве повторений.

    1. УПРАВЛЯЮЩАЯ ИНСТРУКЦИЯ DO … LOOP

    Эта инструкция позволяет выполнять определённые действия не только до тех пор, пока соблюдается заданное условие, но и наоборот, пока не будет выполнено заданное условие.

    Конструкция:

    Конструкция

    Описание

    Do While  <условие>

    [блок Операторов]

    Loop

    Условие проверяется до того, как выполняется группа операторов, образующих тело цикла. Цикл продолжает свою работу, пока это условие выполняется (то есть имеет значение True), иными словами, в этой конструкции указывается условие продолжения работы цикла

    Do Until  <условие>

    [блок Операторов]

    Loop

    Условие проверяется до того, как выполняется группа операторов, образующих тело цикла. Цикл продолжает свою работу, если это условие еще не выполнено, и прекращает работу, когда оно станет истинным, иными словами, в этой конструкции указывается условие прекращения работы цикла

    Do [блок Операторов]

    Loop Until

    <условие>

    Условие проверяется после того, как операторы, составляющие тело цикла, будут выполнены хотя бы один раз. Цикл продолжает свою работу, если это условие еще не выполнено, а когда оно станет истинным, цикл прекращает работу, иными словами, в этой конструкции указывается условие прекращения работы цикла

    Do

    [блок Операторов]

    Loop While <условие>

    Условие проверяется после того, как операторы, составляющие тело цикла, будут выполнены хотя бы один раз. Цикл продолжает свою работу, пока это условие остается истинным, иными словами, в этой конструкции указывается условие продолжения работы цикла

    Например, если нужно узнать о количестве повторений цикла:

    Private Sub

    Dim i As Integer

    i = 0

    Do Until i >= 100

    i = i + 1

    Loop

    MsgBox "Число повторений: " &i

    EndSub

    Do (делать)   ̶  ключевое слово, означающее начало цикла;

    Until (до)   ̶  ключевое слово, означающее наличие условия;

    i > = 100  ̶  условие, при соблюдении которого, будет выполняться эта инструкция;

    Loop(цикл)   ̶  ключевое слово, означающее конец цикла;

    MsgBox   ̶  сообщение о количестве повторений.

    1. УПРАВЛЯЮЩАЯИНСТРУКЦИЯEND SELECT …

    Эта инструкция в зависимости от результатов значения переменной или выражения выполняет один из нескольких фрагментов кода.

    Конструкция:

    SelectCase [переменные]

    Case [первое значение переменной]

    <список операторов 1>

    Case [второе значение переменной]

    <список операторов 2>

    Case [N-ое значение переменной]

    <список операторовN>

    CaseElse

    <список операторовN+1>

    EndSelect

    Пример по строкам программного кода:

    1. Select Case a
    2. Case 5
    3. Действие 1
    4. Case 7To 9
    5. Действие 2
    6. Case Else
    7. Действие3
    8. End Select

    Private Sub

    a = Val(InputBox("Введите число"))

    1. Select Case a
    2. Case 5:
    3. MsgBox "a=5"
    4. Case 7 To 9:
    5. MsgBox "a между 7и 9"
    6. Case Else:
    7. MsgBox "aне подходит"
    8. End Select

    End Sub

    Select Case а (select – выбрать;case – случай)  ̶  ключевые слова конструкции, после которых идет переменная "а" которую необходимо проверить. Тип переменной может быть, целым, вещественным, строковым, символьным, логическим;

    Case   ̶  ключевое слово, после которого указываются варианты условия;

    Case 7 To 9   ̶  проверяет, входит ли "а" в диапазон от 7 до 9;

    Case Else  ̶  если "а" не подходит ни под одно условие, то выполняется иначе. Эту строку можно и не использовать;

    End Select   ̶  ключевые слова означающие завершение конструкции Select.

    1. ИНСТРУКЦИОННАЯ КАРТА

    Задание 1. Создать приложение, которое сравнивает два вещественных числа, при создании использовать управляющую структуруIfThenElse… .

    Рисунок

    1. Размещаем элементы управленияCommand на форме(рис.1).

    Рисунок

    1. Меняем свойстваCommand1,Command2.

    Для этого требуется зайти в окно свойств: щелчок правой клавишей мыши на элементе управления Параметры (Свойства) откроется окно свойств(рис.2).

    Меняем свойства(рис.2):

    • Command1Caption (название) Сравнить два числа;
    • Command2 Caption (название) Выход;
    • Command1BackColor (заливка) &H00C0E0FF&;
    • Command2BackColor (заливка)&H00C0E0FF&;
    • Command1Style(стиль)Graphical;
    • Command2Style (стиль) Graphical;
    • Command1Font(шрифт) начертание полужирный;
    • Command2Font (шрифт) начертание полужирный;
    • Form1Caption (название) Сравнить два числа;
    • Form1BackColor (заливка) &H00C0C0FF&.

    Рисунок

    После изменения свойств объектовVBA, визуальная оболочка программы будет выглядеть так, как показано нарисунке 3.

    Рисунок

    1. Заходим в окно кода программы. Для этого требуется двойной щелчок правой клавишей мыши на элементе управленияCommand.
    2. Пишем код программы(рис.4).

    PrivateSubCommand2_Click()   ̶  эта строка программного кода говорит о том, что  начинается процедура (PrivateSub), которая будет выполняться после события, совершаемого над элементом управления. В нашем случае этим элементом управления является элемент управленияCommand2, а событием являетсяClick.

    End   ̶  эта строка программного кода говорит о том, что произойдет, если выполнится событиеClick над элементом управленияCommand2. КомандаEnd означает закрытие приложения.exe.

    EndSub   ̶  конец процедуры.

    Dima,bAsSingle   ̶  в этой строке задаются имена переменным и их тип.

    PrivateSubCommand1_Click()  ̶  эта строка программного говорит о том, что начинается процедура (PrivateSub) , которая будет выполняться после события, совершаемого над элементом управления. В нашем случае этим элементом управления является элемент управленияCommand1, а событием являетсяClick.

    a =Val(InputBox("Введите число"))  ̶  в этой строке заполняется переменнаяa при помощи функцииInputBox,позволяющей ввести текстовые данные, функцияValпреобразует текстовую информацию в числовую.

    b = Val(InputBox("Введите число"))  ̶  в этой строке заполняется переменнаяb при помощи функцииInputBox.

    If a = bThen   ̶  в этой строке программного кода задается условие 1.

    MsgBox "Вы ввели два одинаковых числа" ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue, и, выводит сообщение пользователю при помощи функцииMsgBox.

    Else

    Ifa <bThen  ̶  в этой строке программного кода задается условие 2.

    MsgBox "Наибольшее число: " &b   ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 2, если условие 2 после проверки было равно значениюTrue,и, выводит сообщение и переменнуюbпользователю при помощи функцииMsgBox.

    Else

    MsgBox "Наибольшее число: " &a   ̶  в этой строке программного кода выполняется блок операторов 2 после проверки условия 2, если условие 2 после проверки было равно значениюFalse, и, выводит сообщение и переменнуюaпользователю при помощи функцииMsgBox.

    EndIf   ̶  Конец условия1.

    EndIf   ̶  Конец условия2.

    EndSub   ̶  Конец процедуры.

    Задание 2. Создать приложение, которое вычисляет сумму элементов массива.При создании использовать управляющую структуруForNext.

    Рисунок

    1. Размещаем на форме элементы управленияCommand на форме(рис.5).

    Рисунок

    1. Меняем свойства элементов управленияCommand .

    Для этого требуется зайти в окно свойств: щелчок правой клавишей мыши на элементе управленияCommandПараметры (Свойства)откроется окно свойств(рис. 6).

    • Command1Caption (название) Вычислить сумму элементов массива;
    • Command2Caption (название) Выход;

    Рисунок

    После изменения свойств объектовVBA, визуальная оболочка программы будет выглядеть так, как показанона рисунке 7.

    Рисунок

    1. Заходим в окно кода программы. Для этого требуется двойной щелчок правой клавишей мыши на элементе управленияCommand.
    2. Пишем код программы(рис.8).

    PrivateSubCommand1_Click()  ̶  эта строка программного говорит о том, что начинается процедура (PrivateSub), которая будет выполняться после события, совершаемого над элементом управления. В нашем случае этим элементом управления является элемент управленияCommand1, а событием являетсяClick.

    DimB (1To 5)AsSingle   ̶  в этой строке программного кода создается массив с именемB, состоящий из 5 элементов и способный хранить значения типаSingle.

    DimsAsSingle,iAsInteger  ̶  в этой строке задаются имена переменным и их тип.

    s = 0   ̶  в этой строке программного кода задается начальное значение переменнойs,которая будет использована для вычисления суммы элементов.

    Fori = 1To 5  ̶  в этой строке программного кода задается количество повторений цикла.

    B(i) =Val(InputBox("Введите число")) ̶  эта строка позволяет пользователю ввести элемент массива с клавиатуры.

    s =s +B(i) ̶  в этой строке программного кода к переменнойs прибавляются значения каждого элемента массива.

    Next

    Prints  ̶эта строка программного кода позволяет вывести результат на форму.

    EndSub   ̶  конец процедуры.

    PrivateSubCommand2_Click()  ̶  эта строка программного кода говорит о том, что  начинается процедура (PrivateSub) , которая будет выполняться после события, совершаемого над элементом управления. В нашем случае этим элементом управления является элемент управленияCommand2, а событием являетсяClick.

    End   ̶  эта строка программного кода говорит о том, что произойдет, если выполнится событиеClick над элементом управленияCommand2. КомандаEnd означает закрытие приложения.exe.

    EndSub   ̶  конец процедуры.

    Задание 3. Создать приложение, которое выводит на форму слово «Привет!» десять раз разными цветами.При создании приложения использовать управляющую структуруWhileWend.

    Рисунок

    1. Размещаем на форме элементы управленияCommand на форме(рис.9).

    Рисунок

    1. Меняем свойства элементов управленияCommand.

    Для этого требуется зайти в окно свойств: щелчок правой клавишей мыши на элементе управленияCommandПараметры (Свойства)откроется окно свойств(рис. 10).

    • Command1Caption (название) Вывести на форму слово «Привет!»;
    • Command2Caption (название) Выход;

    Рисунок

    После изменения свойств объектовVBA, визуальная оболочка программы будет выглядеть так, как показанона рисунке 11.

    Рисунок

    1. Заходим в окно кода программы. Для этого требуется двойной щелчок правой клавишей мыши на элементе управленияCommand.
    2. Пишем код программы(рис.12).

    PrivateSubCommand1_Click()  ̶  эта строка программного говорит о том, что начинается процедура (PrivateSub) , которая будет выполняться после события, совершаемого над элементом управления. В нашем случае этим элементом управления является элемент управленияCommand1, а событием являетсяClick.

    DimaAsInteger,sAsString,bAsInteger  ̶  в этой строке задаются имена переменным и их тип.

    Form1.Cls  ̶  в этой строке программного кода используется методCls,которыйпозволяет очистить форму от всех изображений и текста.

    a = 0  ̶  в этой строке программного кода задается начальное значение переменнойa, которая будет использована как счетчик количества повторений цикла.

    Randomize  ̶  в этой строке программного кода используется команда для инициализации генератора случайных чисел

    Whilea < 11   ̶  в этой строке программного кода задается условие. Пока условие истинно выполняется тело цикла

    b =Fix(Rnd * 15)  ̶  в этой строке программного кода заполняется переменнаяb, с помощью формулыFix(Rnd * 15), которая означает, что переменнаяbбудет равна случайному числу без дробной части.

    s = "Привет!" ̶  в этой строке программного кода заполняется переменнаяs.

    ForeColor =QBColor(b)  ̶  в этой строке программного кода задается цвет текста при помощи свойстваForeColor, которое определяет цвет текста, и, при помощи функцииQBColor(b), которое позволяет перевести обозначение цвета из номерного обозначения с возможными 16 значениями вRGB-код, где переменнаяb   ̶  константа, определяющая значение цвета.

    Prints;  ̶  в этой строке программного кода используется методPrint, который выводит значение переменнойs на форму.

    a =a + 1   ̶  в этой строке программного кода, после каждого выполнения тела цикла, к переменнойaприбавляется единица, чтобыусловие цикла становилось ложным и выполнение цикла прекращалось.

    Wend

    EndSub   ̶  Конец процедуры.

    PrivateSubCommand2_Click()   ̶  эта строка программного кода говорит о том, что  начинается процедура (PrivateSub) , которая будет выполняться после события, совершаемого над элементом управления. В нашем случае этим элементом управления является элемент управленияCommand2, а событием являетсяClick.

    End   ̶  эта строка программного кода говорит о том, что произойдет, если выполнится событиеClick над элементом управленияCommand2. КомандаEnd означает закрытие приложения.exe.

    End Sub   ̶  конец процедуры.

    Задание 4. от 0 до 9. При создании приложения использовать управляющие структуры:

    • Select case … End Select…;
    • If… Then … Else …;
    • For … Next ….

    Рисунок

    1. Размещаем на форме элементы управления на форме(рис.13).
    2. Меняем свойства элементов управления.

    Для этого требуется зайти в окно свойств: щелчок правой клавишей мыши на элементе управленияCommandПараметры (Свойства)откроется окно свойств.

    • Command1 Caption (название) Generate;
    • Command1 BackColor(заливка) &H00C0C0FF&;
    • Command1 Style (стиль) Graphical;
    • Command1Font (шрифт) начертание полужирный;
    • Text1 Text (название) " ";
    • Text2 Text (название) 3;
    • Label1Caption (название) Введите количество символов;
    • Label1BackColor(заливка) &H00C0E0FF&;
    • Label1Font (шрифт) начертание полужирный;
    • CheckBox1 Caption (название) 0-9;
    • CheckBox1Font (шрифт) начертание полужирный;
    • CheckBox1 BackColor(заливка)&H00C0E0FF&;
    • CheckBox2 Caption (название) a-z;
    • CheckBox2Font (шрифт) начертание полужирный;
    • CheckBox2 BackColor(заливка)&H00C0E0FF&;
    • Form1Caption (название)Генератор паролей;
    • Form1 BackColor(заливка)&H00C0E0FF&;

    Рисунок

    После изменения свойств объектовVBA, визуальная оболочка программы будет выглядеть так, как показанона рисунке 14.

    Рисунок

    1. Заходим в окно кода программы. Для этого требуется двойной щелчок правой клавишей мыши на элементе управленияCommand1.
    2. Пишем код программы(рис.15).

    PrivateSubCommand1_Click()  ̶эта строка программного говорит о том, что начинается процедура (PrivateSub) , которая будет выполняться после события, совершаемого над элементом управления. В нашем случае этим элементом управления является элемент управленияCommand1, а событием являетсяClick.

    DimaAsInteger,bAsInteger,xAsInteger,yAsInteger   ̶  в этой строке задаются имена переменным и их тип.

    DimcAsString,dAsString   ̶  в этой строке задаются имена переменным и их тип.

    b = 0   ̶  в этой строке программного кода заполняется переменнаяb.

    IfCheck1.Value = 1Then  ̶  в этой строке программного кода задается условие 1.

    b =b + 1  ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue,т. е1.

    EndIf   ̶  конец условия1.

    IfCheck2.Value = 1Then  ̶  в этой строке программного кода задается условие 1.

    b =b + 2  ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue,т. е.1.

    EndIf   ̶  конец условия1.

    SelectCaseb   ̶  в этой строке программного кода задается переменнаяb, которую необходимо проверить.

    Case 0   ̶  в этой строке программного кода задается условие 1, которое будет проверятся управляющей структурой. В этом случае этим условием являетсяb=0.

    MsgBox "Выберите варианты для генерации пароля"   ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue, и, выводит сообщение пользователю при помощи функцииMsgBox.

    Case 1  ̶  в этой строке программного кода задается условие 2, которое будет проверятся управляющей структурой. В этом случае этим условием являетсяb=1.

    c = "0123456789"   ̶  =в этой строке программного кода выполняется блок операторов 2 после проверки условия 2, если условие 2 после проверки было равно значениюTrue, то переменнаяc = "0123456789".

    Case 2  ̶  в этой строке программного кода задается условие 3, которое будет проверятся управляющей структурой. В этом случае этим условием являетсяb=2.

    c = "abcdefghijklmnopqrstuvwxyz"   ̶  в этой строке программного кода выполняется блок операторов 3 после проверки условия 3, если условие 3 после проверки было равно значениюTrue, то переменнаяc = "abcdefghijklmnopqrstuvwxyz".

    Case 3   ̶  в этой строке программного кода задается условие 4, которое будет проверятся управляющей структурой. В этом случае этим условием являетсяb=3.

    c = "0123456789abcdefghijklmnopqrstuvwxyz" ̶  в этой строке программного кода выполняется блок операторов 4 после проверки условия 4, если условие 4 после проверки было равно значениюTrue, то переменнаяc = "0123456789abcdefghijklmnopqrstuvwxyz".

    EndSelect  ̶  эта строка программного кода обозначает конец проверки переменнойb.

    a =Text2.Text ̶  в этой строке программного кода заполняется переменнаяa.

    If (a >= 3Anda <= 20)Then   ̶  в этой строке программного кода задается условие 1.

    d = ""   ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue.

    Forx = 1Toa  ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue, и, задаетсяпеременная циклаx, начальное значение цикла1,конечное значение циклаa.

    Randomize  ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue, и, используется команда для инициализации генератора случайных чисел.

    y =Round(Len(c) *Rnd())  ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue, и, заполняется переменнаяyРасшифровка формулы:Round  ̶Функцияслужит для округления чисел до заданной точности; ФункцияLenвозвращает количество символов строки в числовом формате;Rnd   ̶  функция генерирует случайные числа.

    Ify < 1Theny = 1   ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrue. в данном случае блок операторов 1 является новым условием (условием 2). В этой же строке программного кода выполняется блок операторов 1 после проверки условия 2, если условие 2 после проверки было равно значениюTrue.

    d =d +Mid(c,y, 1)   ̶  в этой строке программного кода выполняется блок операторов 1 после проверки условия 1, если условие 1 после проверки было равно значениюTrueФункцияMid возвращает строку символов из середины текстовой строки с учетом начальной позиции и длины. Структура:MID (<text>, <start_num>, <num_chars>).

    text

    Текстовая строка, из которой нужно извлечь символы, или столбец, содержащий текст.

    start_num

    Положение первого символа, который необходимо извлечь. Положения начинаются с 1.

    num_chars

    Число возвращаемых символов.

    Nextx

    Text1.Text =d  ̶  в этой строке программного кода выводится переменная,  в элемент управленияText1.

    Else

    MsgBox "Длинна пароля может быть от 3 до 20 символов"   ̶  в этой строке программного кода выполняется блок операторов 2 после проверки условия 1, если условие 1 после проверки было равно значениюFalse, и, выводит сообщение пользователю при помощи функцииMsgBox.

    EndIf   ̶  конец условия1.

    EndSub   ̶  конец процедуры.

    1. ЗАДАЧИ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ

    Задание 1.

    Создайте приложение, которое сравнивает три вещественных числа и находит наибольшее из них.При создании приложения использовать управляющую структуруIfThenElse.

    Интерфейс по образцу(рис. 16).

    Рисунок

    Задание 2.

    Создать приложение, которое выводит на форму слово числа от 1 до 10 разными цветами. При создании приложения использовать управляющую структуруForNext.

    Интерфейс по образцу (рис.17).

    Рисунок

    Задание 3.

    Создать приложение «Генератор паролей», которое генерирует пароли из прописных и заглавных букв  латинского алфавита и чисел от 0 до 9. При создании приложения  использовать управляющие структуры:

    • If… Then… Else… ;
    • For… Next… ;
    • Select case… End Select… .

    Интерфейс по образцу(рис.18).

    Рисунок

    1. ЗАКЛЮЧЕНИЕ

    Язык былVBA разработан в середине 1960-х годов профессорами Дартмутского колледжа Джоном Кемени и Томасом Курцом.VBA сравнительно несложен для изучения и подходит для разработки коротких и простых программ. В 1970-х годах он завоевал всеобщее признание благодаря своей компактности и пригодности для первых персональных компьютеров с их ограниченным объемом памяти.

    VBA   ̶  это  самый удобный язык для работы с приложениямиOffice.

    Программирование вOffice  ̶  это, прежде всего, уменьшение количества повторяющихся действий.  Любое действие, которое вам приходится повторять больше нескольких раз  ̶  это возможный кандидат на автоматизацию при помощиVBA.

    Структурное программирование – методология разработки программного обеспечения, в основе которой лежит представление программы в виде иерархической структуры блоков.

    В своей дипломной работе я изучила основные управляющие структурыVBA, которые определяют порядок выполнения кода и помогают намсократить число ошибок, упростить отладку.

    1. СПИСОК ЛИТЕРАТУРЫ
      1. Геворкян Г.Х.; Семенов В.Н. «Бейсик - это просто»;
      2. С. А. Малышев «Самоучитель VBA. Как это делается в Word, Excel, Access»;
      3. Джон Пол Мюллер. «VBA и Microsoft Office 2007 для чайников, 5-е издание»;
      4. В.В.Лабор;Д.В.Макарчук «Microsoft Visual basic 6.0».
      5. http://www.helloworld.ru/texts/comp/lang/vbasic/vb2/vb1.htm
      6. http://www.allbeton.ru/upload/mediawiki/369/vvedenie-v-vba.pdf




    Похожие работы, которые могут быть Вам интерестны.

    1. Управляющие структуры

    2. КНИ и КМОП структуры

    3. Формирование структуры БД библиотеки

    4. Проектные структуры управления

    5. Характеристика структуры системы образования

    6. Анализ производственной структуры предприятия

    7. Проблемы и пути совершенствования организационной структуры

    8. Исследование структуры и семантики слогана кинофильма

    9. Анализ структуры российского банковского рынка

    10. ВЫБОР СТРУКТУРЫ КАПИТАЛА НА РАЗВИВАЮЩИХСЯ РЫНКАХ