База знаний студента. Реферат, курсовая, контрольная, диплом на заказ

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

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

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

Лабораторная работа №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=
	Завершение

 

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

 

№	Объект	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=     Сумма положительных значений функции 2,87637274384731 Сумма отрицательных значений функции -5,74964601205689 Сумма отрицательных значений функции  -2,87327326820958
	Завершение

Федеральное агентство по образованию Государственное образовательное учреждение высшего профессионального образования «Вятский Государственный Университет» социально-экономический факультетЛабораторная работа №1 Курс информатика Тема: р

 

• 14:21 05 Июля 2016
  Российско-китайский медуниверситет откроет магистерскую программу по TCM
• 01:21 05 Июля 2016
  На форуме МГУ Россия и Китай обсудят научно-образовательное сотрудничество
• 11:00 04 Июля 2016
  Реморенко: "ЕГЭ-туризм" в России сходит на нет
• 10:52 04 Июля 2016
  Летняя российско-австрийская школа откроется в Москве
• 15:31 01 Июля 2016
  В СПбГУ могут воссоздать географический факультет

Заказать уникальную работу