| InputBox, Do-Loop-Schleife |
| |
| |
| Private Sub Form_Load() | |
| LaufzeitBerechnung | |
| End Sub | |
| |
| Sub LaufzeitBerechnung() | |
| Dim Startkapital As Currency | |
| Dim Endkapital As Double | |
| Dim Zinssatz As Single | |
| Dim Jahre As Integer | |
| Dim Button As Integer | |
| Startkapital = InputBox("Geben Sie das Startkapital ein:") | |
| Endkapital = InputBox("Geben Sie das Endkapital ein:") | |
| Zinssatz = InputBox("Wie hoch ist der Zinssatz?", Default:="5,5") |
| Do | |
| Startkapital = Startkapital * (1 + Zinssatz / 100) | |
| Jahre = Jahre + 1 | |
| Loop Until Startkapital > Endkapital | |
| MsgBox "Nach " & Jahre & " Jahren ist das Endkapital erreicht." |
| Button = MsgBox("Berechnung wiederholen?", Buttons:=vbOKCancel + vbQuestion) |
| If Button = vbOK Then | |
| LaufzeitBerechnung | |
| Else | |
| Unload Me | |
| End If | |
| End Sub | |
| | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| . |
| |
zurück