imports System.Collections.Generic
Dim elencoNativo As New List(Of Double)(New Double() {328.37, 295.3, 149.36, 162.78, 2441.08, 1821.79, 882.48, 240.65, 885.85, 1545.06, 1267.94})
Dim elencoRate As New List(Of Double)(New Double() {2505.17, 835.05, 835.05, 835.05, 835.05, 835.05, 835.05, 835.05, 835.05, 835.09})
CalcolaValori(elencoNativo, elencoRate)
private sub CalcolaValori(byval elenco as List(of Double),byval elencoRate as List(of Double) )
Console.WriteLine("valore: " & num)
Console.writeline("Rata " & i+l & ": " & - resto & " Resto valore(+) o rata(-): " & resto + num)
resto = resto - elencoRate.Item(i)
Console.writeline("Rata " & i+1+l & ": " & elencoRate.Item(i) & " Resto valore: " & resto)
Console.writeline("Rata " & i+1+l & ": " & resto + elencoRate(i) & " Resto rata: " & -resto)