Λύσεις ασκήσεων

Διομήδης Σπινέλλης
Τμήμα Διοικητικής Επιστήμης και Τεχνολογίας
Οικονομικό Πανεπιστήμιο Αθηνών
dds@aueb.gr

'Ασκηση 0

Sub main()
    Dim Ammt As Double
    
    Ammt = InputBox("Δώστε την αρχική τιμή")
    MsgBox "Η τιμή χωρίς το ΦΠΑ είναι " + Str(Ammt / 1.18)
End Sub

'Ασκηση 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

Περιεχόμενα