Option Explicit

Dim r1, r2 As Double

Dim p As Boolean

Dim oper As String

=============================================================== Следующая процедура запускает форму с калькулятором и отражает ее на экране

====================================================================

Sub Calculator()

Load UserForm.Calculator

Show UserForm

End Sub

================================================================

Ряд следующих процедур являются приватными, то есть работают в рамках формы, и обрабатывают нажатие кнопок с цифрами и знаками действий.

CommandButton1_Click() считывает содержимое текстового поля и если оно не пустое, то преобразует его в число, а переменной oper присвает значение +. Аналогично работают процедуры для других действий.

=====================================================================

Private Sub CommandButton1_Click()

r1 = Val(TextBox1.text)

p = True

oper = "+"

End Sub

================================================================

CommandButton10_Click() проверяет истинность переменной p. Если она истинна, то в текстовом поле пишется 0, затем переменной p присваивается значение ложь. Если в текстовом поле не ноль, то к содержащемуся там числу приписываем 7. Аналогично работают процедуры для кнопок с другими цифрами.

====================================================================

Private Sub CommandButton10_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "7" Else TextBox1.text = "7"

End Sub

 

Private Sub CommandButton11_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "2" Else TextBox1.text = "2"

End Sub

 

Private Sub CommandButton12_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "5" Else TextBox1.text = "5"

End Sub

 

Private Sub CommandButton13_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "8" Else TextBox1.text = "8"

End Sub

 

Private Sub CommandButton14_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "3" Else TextBox1.text = "3"

End Sub

 

Private Sub CommandButton15_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "6" Else TextBox1.text = "6"

End Sub

 

Private Sub CommandButton16_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "9" Else TextBox1.text = "9"

End Sub

 

Private Sub CommandButton17_Click()

If p Then TextBox1.text = "0"

p = False

If TextBox1.text <> "0" Then TextBox1.text = TextBox1.text + "0" Else TextBox1.text = "0"