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

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

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

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

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

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

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

Киров 2009

Задание 1

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

Эскиз формы

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

Список идентификаторов

Непосредственные коды процедур

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

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

Задание 2

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

Эскиз формы

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

Список идентификаторов

Непосредственные коды процедур

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

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