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

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