10 4 40
40 4 10
Laenge (ganze Zahl)
Breite (ganze Zahl)
Flaeche (ganze Zahl)
a
(ganze Zahl) b
(ganze Zahl)
Flaechenberechnung
(ganze Zahl)
Funktionsstruktur (Strukturdiagramm)
Prüfungsverwalt ung
Stammdaten verwalten
Studentensta mmdaten verwalten
Fächerstamm daten
verwalten
Studentenstam mdaten anlegen
Studentenstam mdaten ändern
Studentenstam mdaten löschen
Bewegungsdaten
erfassen
Sub Reichtum()
Dim Anlagebetrag As Double, Zinssatz As Double, Endwert As Double Do
Anlagebetrag = InputBox("Geben Sie den Anlagebetrag ein") If Anlagebetrag <= 0 then
Msgbox(„Fehler“) End if
Loop until Anlagebetrag > 0
Do
Zinssatz = InputBox("Geben Sie den Zinssatz in Prozent ein") If Zinssatz <= 0 then
Msgbox(„Fehler“) End if
Loop until Zinssatz > 0
Endwert = Endwertberechnung (Anlagebetrag, Zinssatz)
MsgBox ("Aus Ihrem Betrag in Höhe von " & Anlagebetrag & " wird ein Betrag von " & Endwert) End Sub
Function Endwertberechnung(Byval A as double, Z as double) as double Endwertberechnung = A * (1+Z/100)
End Function