Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim filipino, math, english, mapeh, science, computer, tle, arpan, grade as double

        Console.WriteLine("enter your grade in FILIPINO")

        filipino = Console.ReadLine()

        Console.WriteLine("enter your grade in MATH")

        math = Console.ReadLine()

        Console.WriteLine("enter your grade in ENGLISH")

        english = Console.ReadLine()

        Console.WriteLine("enter your grade in MAPEH")

        mapeh = Console.ReadLine

        Console.WriteLine("enter your grade in SCIENCE")

        science = Console.ReadLine()

        Console.WriteLine("enter your grade in COMPUTER")

        computer = Console.ReadLine()

        Console.WriteLine("enter your grade in TLE")

        tle = Console.ReadLine()

        Console.WriteLine("enter your grade in ARPAN")

        arpan = Console.ReadLine()

        grade =(filipino + math + english + mapeh + science + computer + tle + arpan) / 8

        Console.WriteLine("the average of your GRADE" & grade)

        if grade <= 70 then

            Console.WriteLine("your grade is POOR")

        else if grade <= 80 then

            Console.WriteLine("your grade is GOOD")

        else if grade <= 90 then

            Console.WriteLine("your grade is BETTER")

        else if grade >= 99 then

            Console.WriteLine("your grade is BEST")

        else

        end if

    End Sub

End Module

​