Функция InputBox для получения данных от пользователя

Лабораторная работа №5_2

Программирование разветвлённых и циклических

Алгоритмов обработки экономической информации

Цель работы:изучить методику разработки операторов циклов с известным числом повторений For ... Next и операторов циклов с заранее неизвестным числом повторений Do ... Loop (з предусловием и постусловием) при решении задач экономического характера.

Изучаемые понятия: цикл,оператор безусловного перехода, счетчик цикла.

Базовые сведения:

Для многоразового использования одного или нескольких операторов предназначены циклы. Цикл – часть программы, которая будет исполнена несколько раз подряд. Visual Basic предлагает две конструкции: цикл For... Next дает возможность устанавливать количество проходов цикла, а цикл Do... Loop завершается при выполнении заданного условия.

Оператор цикла For... Next

Этот цикл используют в том случае, когда заранее известно стартовое и конечное значение счётчика. Синтаксис выглядит следующим образом:

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

[операторы тела цикла]

[Exit For]

[операторы тела цикла]

Next [счётчик_цикла]

Роль счётчика цикла может играть только ранее объявленная переменная целого типа. В начале выполнения цикла значение счетчика устанавливается равным начальному значению. При каждом проходе переменная счетчика увеличивается на 1 или на величину шага. Если она равна или больше (меньше, при отрицательном шаге) конечного значения, то цикл завершается и выполняются следующие операторы. Разница между начальным и конечным значениями, разделенная на величину шага определяет количество проходов. Exit For – данный оператор обеспечивает немедленный выход с цикла, до его окончания.

Оператор цикла Do While(Until)...Loop / Do...Loop While (Until)

Как уже отмечалось, цикл For применяется в тех случаях, когда количество проходов и диапазон изменения счётчика цикла заранее известны. Цикл While(Until) предназначен для ситуаций, когда количество проходов цикла заранее не известно, но зато известно условие выхода из цикла. В условном цикле при каждом повторении проверяется выполнение условия, и решение про дальнейшие действия принимается в зависимости от результатов проверки. Проверка условия может осуществляться как до действий, определенных в теле цикла, так и после их. Поэтому в Visual Basic есть две модификации условного цикла:

цикл с верхним окончанием (с предусловием);

цикл с нижним окончанием (с постусловием).

Цикл с предусловием – условие проверяется до выполнения операторов тела цикла. Синтаксис цикла:

Do [{While | Until} условие]

[операторы тела цикла]

[Exit Do]

[операторы тела цикла]

Loop

Цикл с постусловием – условие проверяется после выполнения операторов тела цикла. Синтаксис цикла:

Do

[операторы тела цикла]

[Exit Do]

[операторы тела цикла]

Loop [{While | Until} условие]

В цикле используется одно из ключевых слов: или While (Пока), или Until (До).

While – повторение в цикле продолжаются до того, пока условие удовлетворяется, после чего происходит выход с цикла.

Until – повторение в цикле продолжаются до выполнения условия, после чего происходит выход с цикла.

Exit Do – данный оператор обеспечивает немедленный выход с цикла, до его окончания.

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

Оператор безусловного перехода всегда изменяет порядок выполнения операторов в процедуре или функции. При этом не проверяется никаких условий.

Синтаксис:

GoTo line

line – любая допустимая метка или номер строки в той же процедуре или функции, которая содержит оператор GoTo.

line ' это метка на которую нужно перейти

GoTo line ' переход на метку line

При выполнении оператора GoTo управление выполнения программы немедленно передается оператору в строке, определенной с помощью метки line.

Функция InputBox для получения данных от пользователя

Функция InputBox используется для ввода небольших фрагментов текста.

Окно InputBox состоит из четырех элементов:

• строка заголовка;

• приглашение к вводу (Prompt);

• поле ввода со значением, предлагаемым по умолчанию;

• две кнопки (ОК и Cancel).

Синтаксис этой функции таков:

InputBox("сообщение"[, "заголовок"] [, "данные по умолчанию"]

[, x_позиция] [,y_ позиция])

сообщение – определяет текст, отображающийся в диалоговом окне как приглашение,

заголовок – отвечает за надпись заголовка; если этот параметр не указан, то отображаться название приложения,

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

параметры x_позиция и y_позиция указывают координаты верхнего левого угол окна. По умолчанию окно отображается посредине экрана.

Функция InputBox возвращает строку, введенную пользователем. При нажатии кнопки Cancel возвращается пустая строка.

Функция Str() возвращает числовое значение в текстовом виде.

Синтаксис:

Str(число)

Функция Chr()возвращает значение символа, что ассоциируется с определенным символьным кодом.

Синтаксис:

Chr(Код_символа)

Пример решения задачи 1. (For ... Next)

Постановка задачи:Определить заработную плату (ЗПр) менеджера строительной компании через 10 лет (Кр).

Входные данные: Начальная заработная плата составляет 4500 грн. (ЗП), каждый последующий год она будет увеличиваться на 12 процентов (В).

Результат: заработная плата ЗПР = ЗП + ЗП ∙ КР ∙ В

Математическая модель:

ЗПР = ЗП + ЗП ∙ КР ∙ В

Алгоритм решения задачи

Интерфейс пользователя

Листинг программы

Наши рекомендации