Option Explicit
Dim zahl1&
Dim zahl2&
Dim ergebnis&
 
Private Sub cmdend_Click()
End
End Sub
 
Private Sub cmdrechnen_Click()
If optaddition.Value = True Then
    ergebnis = zahl1 + zahl2
ElseIf optsubtraktion.Value = True Then
    ergebnis = zahl1 - zahl2
ElseIf optmultiplikation.Value = True Then
    ergebnis = zahl1 * zahl2
ElseIf optdivision.Value = True Then
    ergebnis = zahl1 / zahl2
End If
lblresult = ergebnis
End Sub
 
Private Sub optaddition_Click()
lblrechenart = "+"
End Sub
 
Private Sub optdivision_Click()
lblrechenart = ":"
End Sub
 
Private Sub optmultiplikation_Click()
lblrechenart = "x"
End Sub
 
Private Sub optsubtraktion_Click()
lblrechenart = "-"
End Sub
 
Private Sub txtzahl1_Change()
zahl1 = txtzahl1
End Sub
 
Private Sub txtzahl2_Change()
zahl2 = txtzahl2
End Sub<pre><code>