Теоретическая часть. Наименование раздела 1.1 по варианту

Наименование раздела 1.1 по варианту

Наименование подраздела 1.1.1

Текст……………….

Наименование раздела 1.2 по варианту

Наименование подраздела 1.2.1

Текст …………….

Наименование подраздела 1.2.2

Текст ………………….:

• подпункты;
• подпункты;
• подпункты.

·

Практическая часть

Задача 1

Для выполнения задания на рабочем листе Excel введем исходные данные для вычислений, а также добавим элемент управления «Кнопка».

Рисунок 2.1 – Вид рабочего листа Excel

Дважды нажмем на созданную кнопку, после чего в редакторе Visual Basic напишем код макроса, запускаемого по нажатию кнопки:

Private Sub CommandButton1_Click()

Dim a As Double

Dim b As Double

Dim c As Double

Dim x As Double

Dim y As Double

Dim PI As Double

a = Range("B2").Value

b = Range("B3").Value

c = Range("B4").Value

PI = 4 * Atn(1)

If b <= a - 1 Then

x = c + a * b

Else

x = c - a * b

End If

If x < 3 Then

y = a + Abs(c * x) ^ (1 / 2)

ElseIf x <= 5 Then

y = b + Sin(PI * x)

Else

y = c - Cos(a * x)

End If

Range("B8").Value = x

Range("B9").Value = y

End Sub

Рисунок 2.2 – Результат выполнения макроса

Date: 2015-12-12; view: 398; Нарушение авторских прав