Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на BASIC / Visual Basic / Visual Basic for Applications. Учебный практикум.doc
Скачиваний:
171
Добавлен:
02.05.2014
Размер:
827.9 Кб
Скачать

3.2. Практическое задание №2. Линейное программирование

Задание.

Найти значение функции:при любом заданном х

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

Алгоритм, составленный для некоторого исполнителя, можно представить раз­личными способами: с помощью графического или словесного описания, в виде таблицы, последовательностью формул, записанным на алгоритмическом языке (языке программирования). Остановимся на графическом описании алгоритма, называемом блок-схемой. Этот способ имеет ряд преимуществ благодаря наглядно­сти, обеспечивающей, в частности, высокую «читаемость» алгоритма и явное отображение управления в нем.

Прежде всего определим понятие блок-схемы. Блок-схема - это ориентирован­ный граф, указывающий порядок исполнения команд алгоритма.

Основные элементы языка блок-схем

Элемент

Описание

Начало или конец алгоритма

Выполнение операций, изменяющих команды (группы команд)

Ввод - вывод данных

Условный переход

Для нашей задачи мы составляем следующий алгоритм:

    • Откройте приложение MS Excel.

    • Выполните команду СервисàМакросРедактор Visual Basicили нажмите <Alt+F11>.

    • Добавьте форму (команда Insert UserForm)

    • Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)

    • Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (ViewToolBox), следующие объекты управления:Label(Метка),TextBox(Текстовое поле),CommandButton(Командная кнопка).

    • В окне Properties(Свойства) для каждого объекта управления установить свойства, приведённые в таблице 1.

Таблица 1.

Элемент управления

Свойства

Значения

UserForm

Caption

Линейное программирование

Label1

Caption

Вычисление значения функции y=sin5x+cos3x

Label2

Caption

X=

Label3

Caption

Y=

TextBox1

Name

txtArgument

TextBox2

Name

txtFunction

CommadButton1

Name

cmdRun

Caption

Вычисление

CommadButton2

Name

cmdClear

Caption

Очистка

    • Для перехода в окно программирования нажмите правую кнопку мыши на объекте CommandButtonи в появившимся контекстом меню выбрать командуView Code

    • Между строками «PrivateSubcmdRun_Click()» и «EndSub» введите следующий код программы:

Dim Х As Single

Dim Y As Single

Х=Val(txtArgument.Text)

Y = Sin(5 * x) + Cos(3 * x)

txtFunction.Text=Str(Y)

    • Примерный интерфейс программы и контрольные значения:

    • Для очистки текстовых полей формы между строками «PrivateSubcmdClear_Click()» и «EndSub» введите следующий код программы:

txtArgument.Text = ""

txtFunction.Text = ""

    • Напишите программу, которая бы вычисляла значение функции

    • Создайте в сетевой папке вашей группы свою папку под вашей фамилией и сохраните файл под именем «Функция»