imports System.Collections.Generic

​

imports System

'ho comprato 3 casse di frutta

'1 = 110 €

'2 = 85 €

'3 = 75 €

'le pagherò con 6 rate con un acconto (rata zero) di € 67,5 (tot. debito € 270)

'le rate quindi sono 6 da € 33,75

​

Public Module Module1

    Public Sub Main()

        Dim elencoNativo As New List(Of Double)(New Double() {110, 85, 75})

        Dim elencoRate As New List(Of Double)(New Double() {67.5, 33.75, 33.75, 33.75, 33.75, 33.75, 33.75})

        CalcolaValori(elencoNativo, elencoRate)

    End Sub

    private sub CalcolaValori(byval elenco as List(of Double),byval elencoRate as List(of Double) )

        Dim resto As Double = 0

        Dim i As Integer = 0

        Dim l As Integer = 0

        Dim num as Double

        For Each num In elenco

            Console.WriteLine("valore: " & num)

            If resto < 0 Then

                l += 1

                Console.writeline("Rata " & i+l & ": " & - resto & " Resto: " & resto + num)

            End If

            resto = num + resto

            Do While resto > 0

                resto = resto - elencoRate.Item(i)

                If resto > 0 Then

                    Console.writeline("Rata " & i+1+l & ": " & elencoRate.Item(i) & " Resto: " & resto)

                Else 

                    Console.writeline("Rata " & i+1+l & ": " & resto + elencoRate(i) & " Resto: " & resto)

                End If

                i += 1

            Loop

        Next

    end sub

End Module

​

'risultato che mi aspetto:

'cassa1 = € 110 --> rata 0 (€ 67,5) + rata 1 (€ 33,75)   + rata 2 (parziale di € 8,75)

'cassa2 = €  85 --> rata 2 (parziale a chiudere di € 25) + rata 3 (€ 33,75)  + rata 4 (parziale di € .....)

'cassa3 = €  75 --> rata 4 (parziale a chiudere di € xx) + rata 5 .........  + rata 6