это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
«Вятский Государственный Университет» социально-экономический факультет
Лабораторная работа №1
Курс информатика
Тема: работа в среде Visual Basic
Киров 2009
Задание 1
Цель работы: создать приложение для вычисления значений функций.
Эскиз формы
| Вычисление функции | ||||||
| ||||||
Таблица свойств объекта
| № | Объект | Name | Caption |
| 1 | Form | Form 1 | Вычисление функции |
| 2 | Lable 1 | Lable 1 | Введите х и нажмите Enter |
| 3 | Text 1 | txtx | |
| 4 | Command 1 | btn Вычисление | Вычисление |
| 5 | Command 2 | btn Результат | Результат |
| 6 | Picture 1 | Pic 1 |
Список идентификаторов
| Переменная | Тип | Идентификатор |
| х | Single | х |
| y | Single | y |
Непосредственные коды процедур
Private Sub Form_Click()
Rem Вычисление функции для заданного значения x
Print " y=x+sin(x+4*atn(1)/3)-log(abs(x)"
x = Val(Textx.Text)
y = x + Sin(x + 4 * Atn(1) / 3) - Log(Abs(x))
Print "для x= "; x
Print "получено значение функции y= "; y
End Sub
Результаты вычислений и выводы
| Вычисление функции | ||
|
Задание 2
Цель работы: создать приложение, в котором можно вычислить значение суммы функций.
Эскиз формы
| Form 1 | ||||||
| ||||||
| Завершение | ||||||
Таблица свойств объекта
| № | Объект | Name | Caption |
| 1 | Form | Form 1 | Form 1 |
| 2 | Text 1 | txtx | |
| 3 | Command 1 | Command 1 | Пуск |
| 4 | Command 2 | Command 2 | Завершение |
| 5 | OLE 1 | OLE 2 | |
| 6 | Picturebox | Picture 1 |
Список идентификаторов
| Переменная | Тип | Идентификатор |
| х | Single | х |
Непосредственные коды процедур
Private Sub Command1_Click()
Sum = 0 'начальное значение суммы
sump = 0 'начальная сумма положительных значений функции
sumo = 0 'начальная сумма отрицательных значений функции
X = Val(Textx.Text) 'преобразование функцией Val свойства Текст в числовое значение
For k = 1 To 10
y = Sin(X * k) + Cos(k / X)
If y > 0 Then
sump = sump + y
Else
sumo = sumo + y
End If
Next k
Sum = sump + sumo
Picture1.Print "сумма положительных значений функции"; sump
Picture1.Print "сумма отрицательных значений функции"; sumo
Picture1.Print "сумма значений функции"; Sum
Private Sub Command2_Click()
End
End Sub
Результаты вычислений и выводы
| Form 1 | ||||||||
| ||||||||
| Завершение | ||||||||
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Служебная дисциплина в органах внутренних дел.
Контрольная, Административная деятельность полиции
Срок сдачи к 31 дек.
Нужно пройти контрольные тестирования по предметам
Тест дистанционно, Административное право, Безопасность жизнедеятельности, Гос. и муниципальные финансы
Срок сдачи к 28 дек.
Взаимодействие экономических и правовых отношени в хозяйственной жизни общества
Контрольная, Экономика
Срок сдачи к 31 дек.
Написать курсовую. Тема курсовой Маркетинг в развитии коммерческой...
Курсовая, Коммерция
Срок сдачи к 8 янв.
Сделать 6 несложных лабораторных в sql
Лабораторная, Информационные системы в экономике
Срок сдачи к 27 дек.
Решить задачу неканонического вида симплекс методом
Решение задач, Высшая математика
Срок сдачи к 26 дек.
доклад + презентация
Доклад, система государственного и муниципального управления
Срок сдачи к 26 дек.
Написать полные конспекты на темы: нервная система, эндокринная система, сердечно-сосудистая система, органы кроветворения и иммунной защиты
Реферат, Гистология Животных
Срок сдачи к 26 дек.
Написать текст для рекламной компании фотографа , подробнее ниже
Отчет по практике, Реклама и PR
Срок сдачи к 26 дек.
Расчет тягово-экономических свойств автомобиля.
Курсовая, Автомобильная промышленность
Срок сдачи к 29 дек.
сделать презентацию по заданию, уровнь 2...
Презентация, информационные технологии
Срок сдачи к 26 дек.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2025 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте