VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Zinsen"
   ClientHeight    =   7575
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10380
   LinkTopic       =   "Form1"
   ScaleHeight     =   7575
   ScaleWidth      =   10380
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox tfEndstand 
      Enabled         =   0   'False
      Height          =   375
      Left            =   6360
      TabIndex        =   9
      Top             =   6840
      Width           =   3495
   End
   Begin VB.ListBox lfListe 
      Height          =   5715
      Left            =   6360
      TabIndex        =   7
      Top             =   600
      Width           =   3495
   End
   Begin VB.CommandButton bsBerechnen 
      Caption         =   "Berechnen"
      Height          =   375
      Left            =   3240
      TabIndex        =   6
      Top             =   3000
      Width           =   2295
   End
   Begin VB.TextBox tfJahre 
      Height          =   375
      Left            =   360
      TabIndex        =   4
      Top             =   3840
      Width           =   2295
   End
   Begin VB.TextBox tfZinssatz 
      Height          =   375
      Left            =   360
      TabIndex        =   2
      Top             =   3000
      Width           =   2295
   End
   Begin VB.TextBox tfBetrag 
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   2160
      Width           =   2295
   End
   Begin VB.Label Label4 
      Caption         =   "Endstand"
      Height          =   255
      Left            =   6360
      TabIndex        =   10
      Top             =   6600
      Width           =   2295
   End
   Begin VB.Label s 
      Caption         =   "Zwischenstand"
      Height          =   255
      Left            =   6360
      TabIndex        =   8
      Top             =   360
      Width           =   1815
   End
   Begin VB.Label Label3 
      Caption         =   "Jahre"
      Height          =   255
      Left            =   360
      TabIndex        =   5
      Top             =   3600
      Width           =   1815
   End
   Begin VB.Label Label2 
      Caption         =   "Zinssatz"
      Height          =   255
      Left            =   360
      TabIndex        =   3
      Top             =   2760
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "Betrag"
      Height          =   255
      Left            =   360
      TabIndex        =   1
      Top             =   1920
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim mBetrag As Single
Dim mZinssatz As Single
Dim mJahre As Integer

Dim mKontostand As Single
Dim mJahr As Integer

Private Sub Form_Load()
  Form1.Show
  tfBetrag.SetFocus
End Sub

Private Sub tfBetrag_KeyPress(keyAscii As Integer)
  If keyAscii = 13 _
  Then
    tfZinssatz.SetFocus
  End If
End Sub

Private Sub tfZinssatz_KeyPress(keyAscii As Integer)
  If keyAscii = 13 _
  Then
    tfJahre.SetFocus
  End If
End Sub

Private Sub tfJahre_KeyPress(keyAscii As Integer)
  If keyAscii = 13 _
  Then
    bsBerechnen.SetFocus
  End If
End Sub

Private Sub bsBerechnen_Click()
  przDatenuebernahme
  przBerechnung
  przDatenuebergabe
  tfBetrag.SetFocus
End Sub

Private Sub przDatenuebernahme()
  mBetrag = CSng(tfBetrag.Text)
  mZinssatz = CSng(tfZinssatz.Text)
  mJahre = CInt(tfJahre.Text)
End Sub

Private Sub przBerechnung()
  'Am Anfang hat der Kontostand den eingegebenen Betrag
  mKontostand = mBetrag
  
  'Mit Jahr 1 beginnen
  mJahr = 1
  
  'Solange laufen, bis alle Jahre abgearbeitet sind
  Do While mJahr <= mJahre
    'Zinsen fuer ein Jahr addieren
    mKontostand = mKontostand + (mKontostand * mZinssatz / 100)
    
    'Aktuellen Zwischenstand des Kontos in Liste eintragen
    lfListe.AddItem (mKontostand)
    
    'Aktuelles Jahr um 1 erhoehen
    mJahr = mJahr + 1
  Loop
End Sub

Private Sub przDatenuebergabe()
  tfEndstand.Text = CStr(mKontostand)
End Sub