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

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

Введение. | Задание 1 | Задача 1.1 | Задача 1.2 | Задача 1.4. | Задача 1.5. | Задача 1.6. | Задача 1.7. | Задание 2 | Задача 4. |


Читайте также:
  1. VI. Общая задача чистого разума
  2. XV. СВЕРХЗАДАЧА. СКВОЗНОЕ ДЕЙСТВИЕ
  3. Возможно выделение определенных этапов развития семьи по соответствующим им задачам.
  4. Главная задача химии и основные этапы ее развития
  5. ДОКЛАД О ЗАДАЧАХ КРАСНОАРМЕЙСКИХ ДРАМКРУЖКОВ 13 января 1924 года
  6. Другие команды — и та же боевая задача
  7. Его задача — превращение индивидуальных знаний, опыта, навыков в доступные всем сотрудникам компании технологии реализации.

Вычислить

 

, где

Блок – схема.

 

Добавить необходимые элементы управления, используя панель элементов (см. рисунок): надпись 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-09-05; просмотров: 52 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Задача 1.| Задача 3.

mybiblioteka.su - 2015-2024 год. (0.007 сек.)