Imports System
Public Module Module1
Public Sub Main()
Dim x As Integer
Dim y As Integer
Console.WriteLine("enter 10 numbers")
while x<=10
x = Console.ReadLine()
x = y + x
x = x + 1
end while
Console.Write(x)
End Sub
End Module