Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
«Вятский Государственный Университет» социально-экономический факультет
Лабораторная работа №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
	Завершение