Private Sub Label2_Click()

End Sub

Private Sub ResultButton_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Select Case OperationsComboBox.Text
        Case "+"
        If TextBoxA.Text = "" Or TextBoxB.Text = "" Then
    ResultLabel.Caption = "Îøèáêà: ïóñòîå çíà÷åíèå!"
    Else
    a = CInt(TextBoxA.Text)
    b = CInt(TextBoxB.Text)
    End If
            ResultLabel.Caption = a + b
        Case "-"
         If TextBoxA.Text = "" Or TextBoxB.Text = "" Then
    ResultLabel.Caption = "Îøèáêà: ïóñòîå çíà÷åíèå!"
    Else
    a = CInt(TextBoxA.Text)
    b = CInt(TextBoxB.Text)
    End If
            ResultLabel.Caption = a - b
        Case "*"
         If TextBoxA.Text = "" Or TextBoxB.Text = "" Then
    ResultLabel.Caption = "Îøèáêà: ïóñòîå çíà÷åíèå!"
    Else
    a = CInt(TextBoxA.Text)
    b = CInt(TextBoxB.Text)
    End If
            ResultLabel.Caption = a * b
        Case "/"
         If TextBoxA.Text = "" Or TextBoxB.Text = "" Then
    ResultLabel.Caption = "Îøèáêà: ïóñòîå çíà÷åíèå!"
    Else
    a = CInt(TextBoxA.Text)
    b = CInt(TextBoxB.Text)
    End If
            If b = 0 Then
                ResultLabel.Caption = "Íà 0 äåëèòü íåëüçÿ!"
            Else
                ResultLabel.Caption = a / b
            End If
        Case "^"
         If TextBoxA.Text = "" Or TextBoxB.Text = "" Then
    ResultLabel.Caption = "Îøèáêà: ïóñòîå çíà÷åíèå!"
    Else
    a = CInt(TextBoxA.Text)
    b = CInt(TextBoxB.Text)
    End If
            ResultLabel.Caption = a ^ b
        Case "êîðåíü"
         If TextBoxA.Text = "" Or TextBoxB.Text = "" Then
    ResultLabel.Caption = "Îøèáêà: ïóñòîå çíà÷åíèå!"
    Else
    a = CInt(TextBoxA.Text)
    b = CInt(TextBoxB.Text)
    End If
           If a < 0 Then
           ResultLabel.Caption = "Ïîäêîðåííîå âûðàæåíèå äîëæíî áûòü áîëüøå 0!"
           Else
           ResultLabel.Caption = a ^ (1 / b)
           End If
           Case "!"
           If TextBoxA.Text = "" Then
    ResultLabel.Caption = "Îøèáêà: ïóñòîå çíà÷åíèå!"
    Else
    a = CInt(TextBoxA.Text)
    End If
          c = 1
          For i = 1 To a
          c = c * i
          Next i
            ResultLabel.Caption = c
    End Select
End Sub

Private Sub ExitButton_Click()
    Unload kaka
End Sub


Private Sub UserForm_Initialize()
    OperationsComboBox.AddItem "+"
    OperationsComboBox.AddItem "-"
    OperationsComboBox.AddItem "*"
    OperationsComboBox.AddItem "/"
    OperationsComboBox.AddItem "^"
    OperationsComboBox.AddItem "êîðåíü"
    OperationsComboBox.AddItem "!"
    OperationsComboBox.Text = "+"

End Sub

Private Sub âûáðàòü_Click()
 Select Case OperationsComboBox.Text
        Case "+"
        TextBoxB.Visible = True
        Label2.Visible = True
        Case "-"
        TextBoxB.Visible = True
        Label2.Visible = True
         Case "*"
        TextBoxB.Visible = True
        Label2.Visible = True
        Case "/"
        TextBoxB.Visible = True
        Label2.Visible = True
         Case "^"
        TextBoxB.Visible = True
        Label2.Visible = True
         Case "êîðåíü"
        TextBoxB.Visible = True
        Label2.Visible = True
         Case "!"
          TextBoxB.Visible = False
          Label2.Visible = False
    End Select
End Sub