Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Пособие по VB. Часть1.doc
Скачиваний:
62
Добавлен:
02.02.2015
Размер:
1.42 Mб
Скачать

4.6.9. Выполнение программы и анализ полученных результатов

Требуется решить задачу 23.10.01 при цене изделия 5,2 грн. и количестве 4 шт. Цена действует, начиная с 30.10.01. На рис. 4.3. показана форма с данными начала и окончания периода, которые появляются в ней при запуске приложения. В качестве начальной даты отображается текущая дата (т.е. решение задачи происходит 23.10.01).

На рис. 4.4. представлена форма с введенной нужной датой начала периода 30.10.01 и вычисленной датой его окончания 06.11.01.

Рис.4.3. Внешний вид формы Рис. 4.4. Внешний вид формы

при ее загрузке после ввода начальной

(текущая дата 23.10.01) даты 30.10.01

После ввода цены и количества, а также нажатия кнопки «Вычислить» в поле результата под ней выводится результат вычислений (рис. 4.5).

Разработанное приложение может использоваться при планировании стоимости товара в маркетинговых исследованиях предприятия.

Рис. 4.5. Результат вычисления стоимости товара с учетом НДС

5. Проектирование разветвляющихся вычислительных процессов

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

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

В VB имеются две формы условных операторов – однострочная и блочная. Однострочная форма используется в простейших случаях, когда в каждой ветви имеется не более одного оператора, и имеет вид:

If <условие> Then <оператор> [Else <оператор>]

Действие этого оператора состоит в следующем. Вначале проверяется условие. Если оно удовлетворяется, то выполняется оператор, стоящий после слова Then, в противном случае – оператор, после слова Else. Условие задается выражением булевского типа, т.е. результат его вычисления принимает значение True или False.

51