'عبدالله سلطان عبدالله الشمري '

Imports System

Public Module Module1

    Public Sub Main()

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

        dim drjat(6) as single

        dim total as single 

        dim mt as single 

        for r=0 to 6

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

        drjat(r) =console.ReadLine()

        total = total + drjat(r)

    next 

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

    mt = total / 7

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

    if mt >= 90 then 

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

    elseif mt >= 75 then 

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

            elseif mt >= 60 then 

        Console.WriteLine("جيد")

            elseif mt >= 50 then 

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

            elseif mt >= 0 then 

        Console.WriteLine("راسب")

    end if

end sub 

end module