Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Задача 2. Добавить необходимые элементы управления, испол




Вычислить

 

, где

Блок – схема.

 

Добавить необходимые элементы управления, используя панель элементов (см. рисунок): надпись y=; поле TextBox1 для вывода значения y; кнопку CommandButton1 с надписью Вычислить.

 

Label1
CommandButton1
TextBox1

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

 

Private Sub CommandButton1_Click()

Dim y, a, b, c, d As Single

b = 3.7

a = 4.6 * Exp(-Sqr(b))

If a*b >sin(a) Then

y = 0.65 * Cos(a)^3 - Atn(b^2)

ElseIf a*b = sin(a) Then

y = 3 * a * b + Tan(b)

Else

y = Log(Abs(a^2 – b^2))

End If

TextBox1.Text = Format(y,”0.00000”)

End Sub







Дата добавления: 2015-08-12; просмотров: 211. Нарушение авторских прав


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2020 год . (0.001 сек.) русская версия | украинская версия