Hallo ich soll ein Programm schreiben bezueglich einer Kapitallrechnung. Ich komme allerdings nicht weiter.
Aufgabe 1: Erstellen Sie für die Aufgabe aus der Vorlesung „Erstellen Kapitalliste“ ein Visual Basic Programm.
Eingabe: Anfangskapital und Zinssatz. Nutzen Sie zur Eingabe die „InputBox“.
Ausgabe: (z.B. bei einem Anfangskapital von € 20.000 und einem Zinssatz von 5%): Periode Anlagebetrag Zinsbetrag 1 20.000 1.000 2 21.000 1.050 … … …
Die Liste ist beendet, wenn sich das Kapital verdoppelt hat.
Mein Ansatz:
Rem Kapitalliste
Sub Kapitalliste()
Rem Vorlauf
'deklarieren
Dim preis As Double
Dim menge As Integer
Startkapital = 0
'lesen
Betrag = InputBox("Bitte geben Sie ein Startkapital ein")
Rem Hauptlauf
While preis <> -1
'aufsummieren
If preis > 20.000 Then menge = menge +0,05%
'neues Kapital lesen
Betrag = InputBox("Bitte geben Sie einen Startkapital ein")
Wend
Rem Nachlauf
'Output
MsgBox "
End Sub
Aufgabe 1: Erstellen Sie für die Aufgabe aus der Vorlesung „Erstellen Kapitalliste“ ein Visual Basic Programm.
Eingabe: Anfangskapital und Zinssatz. Nutzen Sie zur Eingabe die „InputBox“.
Ausgabe: (z.B. bei einem Anfangskapital von € 20.000 und einem Zinssatz von 5%): Periode Anlagebetrag Zinsbetrag 1 20.000 1.000 2 21.000 1.050 … … …
Die Liste ist beendet, wenn sich das Kapital verdoppelt hat.
Mein Ansatz:
Rem Kapitalliste
Sub Kapitalliste()
Rem Vorlauf
'deklarieren
Dim preis As Double
Dim menge As Integer
Startkapital = 0
'lesen
Betrag = InputBox("Bitte geben Sie ein Startkapital ein")
Rem Hauptlauf
While preis <> -1
'aufsummieren
If preis > 20.000 Then menge = menge +0,05%
'neues Kapital lesen
Betrag = InputBox("Bitte geben Sie einen Startkapital ein")
Wend
Rem Nachlauf
'Output
MsgBox "
End Sub