Практическое задание Линейное программирование
Задание.
Найти значение функции:  при любом заданном х
|
Для нашей задачи мы составляем следующий алгоритм:
è Откройте приложение MS Excel.
è Выполните команду Разработчик àРедактор Visual Basic или нажмите < Alt+F11 >.
è Добавьте форму (команда Insertà UserForm)
è Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)
è Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления ( ViewàToolBox ), следующие объекты управления: 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
è Между строками «Private Sub cmdRun_Click()» и «End Sub» введите следующий код программы:
Dim Х As Single
Dim Y As Single
Х=Val(txtArgument.Text)
Y = Sin(5 * x) + Cos(3 * x)
txtFunction.Text = Str(Y)
è Примерный интерфейс программы и контрольные значения:
|
|
|
è Для очистки текстовых полей формы между строками «Private Sub cmdClear_Click()» и «End Sub» введите следующий код программы:
txtArgument.Text = ""
txtFunction.Text = ""
è Напишите программу, которая бы вычисляла значение функции 
è Создайте в сетевой папке вашей группы свою папку под вашей фамилией и сохраните файл под именем «Функция»
Дата добавления: 2015-12-17; просмотров: 20; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!