'Ασκηση 1

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

Προηγούμενη'Ασκηση 0
Περιεχόμενα