| InputBox, MsgBox, Me.Print |
| |
| |
| Private Sub Form_Load() | Leitet eine Prozedur mit Namen Form_Load ein. |
| ZinsBerechnung | Hier wird die Prozedur ZinsBerechnung ausgeführt. |
| End Sub | |
| |
| Sub ZinsBerechnung() | Gibt man keinen Datentyp an, wird automatisch |
| Dim Kapital, Zinssatz, Laufzeit, Jahre | Variant deklariert. |
| Me.AutoRedraw = True | Die Ausgabe erfolgt in der Innenfläche des Formulars. |
| Kapital1: | |
| Kapital = InputBox("Geben Sie das Anfangskapital ein:") | Nachfolgende Deklarationen wurden deaktiviert, weil |
| If Kapital = "" Then | diese nicht mit GoTo-Befehlen funktionieren: |
| MsgBox "Bitte Kapital eingeben!", _ | Dim Kapital As Currency |
| Buttons:=vbExclamation | |
| GoTo Kapital1 | Dim Zinssatz As Single |
| End If | Dim Laufzeit As Integer |
| Zins1: | Dim Jahre As Integer |
| Zinssatz = InputBox("Wie hoch ist der Zinssatz?", Default:="5,5") |
| If Zinssatz = "" Then | |
| MsgBox "Bitte Zinssatz eingeben!", Buttons:=vbExclamation, Title:="Falsche Eingabe!" |
| GoTo Zins1 | |
| End If | |
| Lauf1: | |
| Laufzeit = InputBox("Wie viele Jahre ist die Laufzeit?", Default:="10") |
| If Laufzeit = "" Then | |
| MsgBox "Bitte Laufzeit eingeben!", Buttons:=vbExclamation, Title:="Falsche Eingabe!" |
| GoTo Lauf1 | |
| End If | |
| Me.Print Tab(5); "Z i n s B e r e c h n u n g" | |
| Me.Print Tab(5); "===================" | |
| Me.Print Tab(5); "Kapital = " & Kapital; " DM; Zinssatz = " & Zinssatz; " Prozent; Laufzeit = " & Laufzeit; " Jahre" | |
| Me.Print "" | |
| Me.Print Tab(5); "Ihr Vermögen beträgt" | |
| For Jahre = 1 To Laufzeit | Leitet eine Programmschleife ein. |
| Kapital = Kapital * (1 + Zinssatz / 100) | |
| Me.Print Tab(5); "nach dem "; Jahre; ". Jahr"; Tab(35); Format(Kapital, "Currency") | |
| Next | Beendet die Programmschleife. |
| End Sub | Beendet die Prozedur. |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| Möchte man eine neue Berechnung durchführen, müsste man das Programm beenden und neu starten. |
| Dies lässt sich wie folgt umgehen: |
| Sub Form_Click() | |
| Dim Antwort As Integer | |
| Antwort = MsgBox("Berechnung wiederholen?", Buttons:=vbQuestion + vbYesNo) |
| If Antwort = vbYes Then | Alternativ kann man wählen: |
| Me.Cls | If Antwort = vbYes Then |
| ZinsBerechnung | Unload Me |
| Else | Me.Show |
| Unload Me | |
| End If | |
| End Sub | |
| |
zurück