Imports System
Public Module Module1
Public Sub Main()
dim totale, n, i as integer
totale=0
n=0
for i=1 to 10
console.writeline("inserisci numero")
n=console.readline()
if n=0
exit for
end if
totale = totale + n
next
End Sub
End Module