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

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

Задача 3. Вычислить значения аргумента и функции .




Вычислить значения аргумента и функции .

где

 

Блок – схема.

 

На листе Excel разместить необходимые элементы управления: надпись X=; список ListBox1 для вывода значений x; надпись Y=; список ListBox2 для вывода значений y; кнопку CommandButton1 с надписью Вычислить – см. рисунок.

 

ListBox1
ListBox2
Label2
Label1

CommandButton1

 


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

 

Private Sub CommandButton1_Click()

Dim x, y, a, b As Single

ListBox1.Clear

ListBox2.Clear

For x=-2 To 1 Step 0.6

a = Log(x^2)

b = Sqr(Abs(x))-a

If x < - 1 Then

y = Cos(a+x) ^ 2

ElseIf x = - 1 Then

y = b *Abs(x)

Else

y=Exp(x - 2)

End If

ListBox1.AddItem (x)

ListBox2.AddItem (Format(y,”0.000”))

Next x

End Sub







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


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


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