VBA2. Разветвления

Date: 2015-10-07; view: 579.

Разработка событийных процедур.

Рассмотрим несколько процедур: Сложение – выполняется при нажатии командной кнопки с надписью + (свойство Caption), Умножение (*), Извлечение квадратного корня - командная кнопка с именем (Name) x12 и c надписью (Caption) x^(1/2).

Private Sub Сложение_Click()

R3.Value = Val(R1.Text) + Val(R2.Text) ' Функция Val преобразует символы в числа

End Sub

Private Sub Умножение_Click()

R3.Value = R1.Value * R2.Value

End Sub

Private Sub x12_Click()

If R1.Value > 0 Then ' если знаменатель больше нуля, то возможна операция деления

' Функция Format преобразует число в символы с тремя знаками после запятой

' Функция Sqr извлекает квадратный корень из числа

R3.Text = Format(Sqr(R1.Value), "0.000")

Else

' сообщение с помощью функции MsgBox, если подкоренное выражение отрицательно

MsgBox ("R1 <= 0 или отрицательное число под квадратным корнем")

End If

End Sub

Для перехода к тексту процедуры в окне редактора VBA - двойной щелчок мышью по командной кнопке в режиме конструктора.

Вычислить значения функций в области определения х [-1.7,1.5].

Y = (1+x)/(1+ )

f = cos²(3px) - cos(px)sin(px)

p = 3.14159265 (p можно также вычислить как функцию ПИ( ) )

, x<=0

g =

(1+x)/(1+ ), x >0

(1+x+x²)/(1+x²), x<0

z = , x>=0 и x<1

2Abs(0.5+Sin(x)), x>=1

Для вычислений на листе Excel (см. приведенный ниже рисунок) разместить поля (TextBox) с именами TBx, TBy, TBf, TBg, TBz. Рядом с полями поместить надписи x, y, f, g, z. Кроме того, на лист Excel поместить кнопку CommandButton1 и написать процедуру для вычисления указанных функций. Если заданное значение x не попадает в область определения функции, то в соответствующее поле занести пробел.