Lab 5:


Module Module1

    Sub Main()

        Dim score As Double = 0
        Dim average As Double = 0
        Dim sum As Double = 0
        Dim numberofexams As Integer = 0
        sum = 0
        score = 0
        numberofexams = 0
        average = 0
        Console.WriteLine("Enter an exam score; (-999 to stop) : ")
        score = Convert.ToDouble(Console.ReadLine())
        Do While (score <> -999)
            numberofexams += 1
            sum += score
            Console.WriteLine("Enter an exam score; (-999 to stop) : ")
            score = Convert.ToDouble(Console.ReadLine())
        Loop
        average = sum / numberofexams
        Console.WriteLine("")
        Console.WriteLine("        The Sum of all test grades is: " & sum)
        Console.WriteLine("        The average is " & Math.Round(average, 1))
        Console.WriteLine("")

    End Sub

End Module