Question

2) Largest and Smallest Design a program with a loop that lets the user enter a series of numbers. The user should enter-99-99 to signal the end of the series. After all the numbers have been entered, the program should display the largest and smallest numbers entered. a) Use a Do-Until Loop

Answer 1

Here is code:

Public Module Program
Public Sub Main(args() As string)
Dim input As Integer = 1
Dim max As Integer
Dim min As Integer
Dim count As Integer = 0
Do Until input = -99 'Condition is False.Hence loop will be executed
Console.WriteLine("Enter number -99 to quit : ")
input = CInt(Console.ReadLine())
If input <> -99 Then
If count = 0 Then
max = input
min = input
count = count + 1
Else
If max < input Then
max = input
End If
If min > input Then
min = input
End If
End If
End If
Loop
Console.WriteLine("The Maximun number is : " & max)
Console.WriteLine("The Minimun number is : " & min)
End Sub
End Module

Output:

Enter number -99 to quit : 5
Enter number -99 to quit : 5
Enter number -99 to quit : 6
Enter number -99 to quit : 9
Enter number -99 to quit : -5
Enter number -99 to quit : 8
Enter number -99 to quit : -99
The Maximun number is  : 9
The Minimun number is  : -5