H/W 3

Module Module1

    Sub Main()
        'SimpleDivision()
        AverageStudents()

    End Sub

    Sub SimpleDivision()
        Dim Input1 As Integer
        Dim Input2 As Integer
        Dim Answer As Single
        Dim AnswerRounded As Single
        Dim Answer2 As Integer

        Console.WriteLine("Please input a number...")
        Input1 = Console.ReadLine()
        Console.WriteLine("Please input another number...")
        Input2 = Console.ReadLine()

        Answer = Input1 / Input2
        AnswerRounded = Math.Round(Answer, 3)
        Answer2 = Answer

        Console.WriteLine()
        Console.WriteLine(Answer)
        Console.WriteLine(AnswerRounded)
        Console.WriteLine(Answer2)
        Console.ReadKey()
    End Sub

    Sub AverageStudents()


    End Sub
End Module