Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






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





 

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

 

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

 

 

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

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

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

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

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

è В окне Properties (Свойства) для каждого объекта управления установите свойства:

Элемент управления Свойства Значения
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()

Dim Х As Single

Dim Y As Single

Х=Val(txtArgument.Text)

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

txtFunction.Text = Str(Y)

End Sub

 

è Для очистки текстовых полей формы между строками «Private Sub cmdClear_Click()» и «End Sub» введите следующий код программы:

 

txtArgument.Text = ""

txtFunction.Text = ""

 

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

 

 

  1. Задание 2.

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

 

6. Сохранитеполученный файл в папке D:\Учебная\ХХ-0ХХ под именем «Пр_р_11»

 

  1. Сообщите преподавателю об окончании работы.

Date: 2015-07-25; view: 486; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.01 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию