Imports System

Imports Microsoft.VisuaLBasic

​

Public Module Module1

    public Sub Main()

        Dim num(4) As Integer

        Dim sum As Integer

        For i = 0 to 4

        num (i) = Inputbox(" Enter a number","number:", "0")

       next

    For i = 0 to 4

        sum = sum + num (i) 

      next

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

Console.WriteLine("The average is " & sum / 5 )

    End Sub

End Module

​