Рефетека.ру / Информатика и програм-ие

Лабораторная работа: Работа в среде Visual Basic

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

«Вятский Государственный Университет» социально-экономический факультет


Лабораторная работа №1

Курс информатика

Тема: работа в среде Visual Basic


Киров 2009

Задание 1


Цель работы: создать приложение для вычисления значений функций.


Эскиз формы


Вычисление функции


Введите х и нажмите Enter


Вычисление


Результат












Таблица свойств объекта


Объект 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

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


Результаты вычислений и выводы


Вычисление функции

Введите х и нажмите Enter


2


Задание 2


Цель работы: создать приложение, в котором можно вычислить значение суммы функций.


Эскиз формы


Form 1

Пуск


S=Работа в среде Visual Basic



Завершение









Таблица свойств объекта


Объект 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

Пуск


2,3


S=Работа в среде Visual Basic


Сумма положительных значений функции 2,87637274384731

Сумма отрицательных значений функции -5,74964601205689

Сумма отрицательных значений функции -2,87327326820958



Завершение








Похожие работы:

  1. Электронный справочник по изучению Visual Basic
  2. •  ... создание тестовой программы в среде Visual Basic
  3. • Microsoft Visual Basic 5 0
  4. • Разработка программного продукта "ПК инфо"
  5. • Успеваемость студентов
  6. • Глобальная компьютерная сеть Интернет
  7. • Создание программы для работы со сканером
  8. •  ... показателей используемых в составлении бизнес-плана на языке ...
  9. • Расчет составной конструкции системы двух тел
  10. • Нахождение всех действительных корней алгебраического ...
  11. • Нахождение всех действительных корней алгебраического ...
  12. • Основное программное обеспечение персональных компьютеров
  13. • Основное программное обеспечение персональных компьютеров
  14. • Объектно-ориентированная среда программирования ...
  15. • Автоматизированная информационная система Учет экономической ...
  16. • Автоматизация работы и алгоритмирования в среде MS ...
  17. • Проектирование Базы Данных для коммерческого предприятия
  18. • Автоматизированное Рабочее Место Отдела Кадров
  19. • Наращивание экономической и статистической ...
Рефетека ру refoteka@gmail.com