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

Задание 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

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

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

 

PrivateSubCommand1_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 "сумма отрицательных значений функции"; sumo

Picture1.Print "сумма значений функции"; Sum

Private Sub Command2_Click()

End

End Sub

 

Присоединяйся

Зарегестрируйся с помощью социальных сетей.

Публикуй

Опиши работу, прикрепи файлы и назначь цену.

Зарабатывай

Получай пассивный доход с продажи работ.

Тебе понадобится 5 минут для публикации работы на сайте.
Скачать

бесплатно

Работа в среде Visual Basic.rtf
165831
Оцени работу

рейтинг

Поделись работой с друзьями

Мы не грузим циферки, чтоб ты увидел контент как можно быстрее;

Комментарии (0)

freebt2mobi

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегестрированые пользователи имеют возможность комментировать работы
Работа в среде Visual Basic
Цель работы: создать приложение для вычисления значений функций.
Категория: Образование
Стоимость: Бесплатно