Imports System

Public Module Module1

    Public Sub Main()

        dim grade as integer

        console.WriteLine(" enter the grade for the student")

    for x as integer= 1 to 3 

 grade =console.ReadLine()

    next

    dim total as integer= grade+ grade+grade

        dim average as string= total/3

        console.WriteLine(" the average is {0}", average)

    End Sub

End Module