Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("حاسبة المعدل والتقدير")

        dim drjat(6) as single

        dim total as single

        dim mt as single

        for s=0 to 6

            Console.WriteLine("أدخل الدرجة: ")

            drjat(s) = Console.readLine()

            total = total + drjat(s)

        next

    Console.WriteLine("مجموع درجاتك هو :" & total)

    mt = total/7

    Console.WriteLine("معدلك هو :" & mt & "٪")

    if mt >= 90 then

        Console.WriteLine("ممتاز")

    elseif mt>=75 then

        Console.WriteLine("جيد جدا")

    elseif mt >= 65 then

        Console.WriteLine("جيد ")

    elseif mt >= 50  then

        Console.WriteLine("مقبول")

    elseif mt >= 0 then

        Console.WriteLine("راسب")

                      end if

    End Sub

End Module