Answer to Question #217233 in Visual Basic for Vee

Question

Write an app that reads the integers representing the total sales for three sales people then determines ad prints the largest and the smallest integers in the group.

Answer 1

Module Module1
    Sub Main()
        Dim totalSale As Double = -1
        Dim largest As Double = Double.MinValue
        Dim smallest As Double = Double.MaxValue
        'reads the integers representing the total sales for three sales people
        For i As Integer = 0 To 2
            Console.Write("Enter the total sales for sale person {0}: ", (i + 1))
            Double.TryParse(Console.ReadLine(), totalSale)
            If totalSale < smallest Then
                smallest = totalSale
            End If
            If totalSale > largest Then
                largest = totalSale
            End If
        Next
        Console.WriteLine(vbNewLine + "The largest integer in the group is: {0}", largest)
        Console.WriteLine("The smallest integer in the group is: {0}", smallest)


        Console.ReadLine()
    End Sub
End Module