Главная страница
Навигация по странице:

  • Оператор условного перехода

  • If A > 10 Then S = S + A P = P + A End If If D > 10 Then S = S + D P = P + D

  • If..Then..ElseIf .

  • Пример

  • Do - Loop Может быть как с пред- так и с постусловием Цикл со счетчиком For...Next

  • начало

  • оператор

  • Цикл со счетчиком

  • Lec 1-2 Ускоренники. Лекция 1 Основы систем программирования. Основы vba. Вопросы лекции Тема Основы алгоритмизации и программирования. Тема Классификация языков программирования


    Скачать 5.75 Mb.
    НазваниеЛекция 1 Основы систем программирования. Основы vba. Вопросы лекции Тема Основы алгоритмизации и программирования. Тема Классификация языков программирования
    Дата21.11.2022
    Размер5.75 Mb.
    Формат файлаpptx
    Имя файлаLec 1-2 Ускоренники.pptx
    ТипЛекция
    #804614
    страница8 из 10
    1   2   3   4   5   6   7   8   9   10

    Dim a As String

    a = InputBox("Введите свое имя", "Привет", "Имя")

    MsgBox a

    Оператор безусловного перехода

    Оператор безусловного перехода:

    GoTo <метка>

    Метка – произвольное имя, заканчивающееся двоеточием.

    метка:

    Условный оператор

    Оператор условного перехода – это структура, которая выбирает ту или иную ветвь кода на основе условия или группы условий.

    Однострочная форма:

    If <условие> Then <операторы1>  Else <операторы2>

    где

    условие любое логическое выражение;

    оператор(ы) – один, несколько или ни одного оператора VBA.

    If A > B Then Min = B

    If A > B Then Min = B Else Min = A

    Условный оператор

    Многострочная форма:

    If <условие> Then

    < операторы1>

    [Else

    < операторы2>

    End If


    If A > 10 Then

    S = S + A

    P = P + A

    End If

    If D > 10 Then

    S = S + D

    P = P + D

    Else

    D = 0

    End If

    Если нужен выбор между тремя и более ветвями, то операторы If..Then..Else помещают друг в друга. Это называется вложением операторов.

    Краткой формой вложенных условных операторов является оператор If..Then..ElseIf .

    Оператор выбора

    Select Case <переменная>

    Case <значение1>: <операторы1>

    . . .

    Case <значениеN – 1>: <операторыN – 1>

     Case Else: <операторыN> 

    End Select

    переменная – любое численное или строковое выражение;

    значение_1, значение_2, значение_N список логических выражений, отделенных запятыми;

    операторы1, операторы2, операторыN – один, несколько или ни одного оператора.

    Оператор выбора

    Пример

    Вычислить величину Т:

    Пример

    .

    Пример

    .

    Пример

    .

    Пример

    .

    Циклы

    Цикл – последовательность действий, выполняемых несколько раз

    Виды циклов VBA


    For - Next

    С фиксированным количеством повторов. Выполняется заданное количество раз

    While - Wend

    С предусловием. Если не верно условие, заданное на входе, цикл может не выполниться ни разу

    Do - Loop

    Может быть как с пред- так и с постусловием

    Цикл со счетчиком For...Next

    For счетчик = начало То конец [step шаг] [операторы]

    Next [ счетчик] счетчик —числовая переменная - количество повторений цикла начало —начальное значение переменной счетчик. конец —конечное значение переменной счетчик. шаг —значение, на которое изменяется счетчик при каждом выполнении тела цикла. операторы—один или несколько операторов, которые выполняются указанное число раз

    Цикл со счетчиком

    Пример: считать сумму натуральных чисел до 10.

    Цикл со счетчиком

    Пример цикл For..Next с шагом отличным от единицы:

    While условие

    [операторы]

    Wend

    условие —числовое или строковое выражение, которое имеет значение True или False.

    операторы— один или несколько операторов, выполняемых, пока условие имеет значение True.

    Этот цикл считается устаревшим. В VBA он поддерживается, чтобы сделать код совместимым со старым кодом.

    Пример выводить на экран случайные числа от 0 до 20 до тех пор, пока не будет выведено число больше 10

    Dim A As Integer

    А = 1

    While А < 10

    А = Int(Rnd() * 20)

    MsgBox А

    Wend

    Цикл Do...Loop

    1   2   3   4   5   6   7   8   9   10


    написать администратору сайта