Sub main() Dim Ammt As Double Dim nyears As Integer Dim interest As Double Dim i As Integer Ammt = InputBox("Δώστε το αρxικό ποσό") nyears = InputBox("Δώστε τον αριθμό των περιόδων") i = 0 Do While i < nyears interest = InputBox("Δώστε επιτόκιο για την περίοδο " + str(i + 1)) Ammt = Ammt * (1 + interest / 100) i = i + 1 Loop MsgBox "Το τελικό ποσό είναι " + Str(Ammt) End Sub