Орындалу тәртібі: 1. VBA редакторында пішін құру (6 сурет).
2. Закрыть және Вычислить батырмаларының оқиғаларын өңдеу. Dim a, b, c, k, l, m As Double
‘Shet процедурасын жазу
Sub shet()
a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text)
k = a * b + b / c l = Sin(a) + (b + c) ^ 2 m = a + b + c
End Sub
‘Вычислить батырмасына жазу
Private Sub CommandButton1_Click()
‘Call shet – процедураны шақыру
If OptionButton1.Value = True Then
Label5.Caption = «a*b+b/c=» & k
End If
If OptionButton2.Value = True Then
Label5.Caption = «sin(a)+(b+c)^2=» & l
End If
If OptionButton3.Value = True Then
Label5.Caption = «a+b+c=» & m
End If End Sub
Private Sub CommandButton2_Click()
Unload Me End Sub