#16
|
||||
|
||||
Private Sub Command1_Click()
Dim Zahl1, zahl2 As Double Zahl1 = InputBox("Bitte die erste Zahl eingeben", "Addition") zahl2 = InputBox("Bitte zweite Zahl eingeben", "Addition") E = Zahl1 + zahl2 MsgBox E End Sub Jetzt verstanden? ![]() |