Imports System

Public Module Module1

    Dim aNumbers(9) As Integer

    Dim i As Integer

    For i = 0 To 9

        aNumbers(i) = i*i

    Next

    Dim nIn As Integer = -1

    Do While (nIn <0 Or nIn > 10)

        Console.WriteLine("Please enter a number between 1 adn 10")

        nIn = Console.ReadLine()

    Loop 

    Dim iResult As Integer = 0

    For i = 0 To nIn-1

        iResult + iResult + aNumbers(i)

    Next

    Console.WriteLine("Result is" & iResult)

    Console.ReadLine()

End Sub 

​

End Module