Imports System

Public Module Module1

    Public Sub Main()

        dim num(10),sum as integer

        sum=0

        for i = 1 to 10

        Console.WriteLine("Enter number")

        num(i)=Console.ReadLine()

        sum=sum+ num(i)

    next

    Console.WriteLine("the sum is" & sum)

    End Sub

End Module