Работа в среде 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=









Завершение 

















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



№

Объект

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







Завершение