Hi everyone,

I'm trying to create a console application where a user enters 5 numbers and then the application gives them back the smallest and the largest number. However, I can't get my code to work. Here is what I have so far.

Thank you to anyone that can help.

Module Module1

Sub Main()

Dim number1 As Integer
Dim number2 As Integer
Dim number3 As Integer
Dim number4 As Integer
Dim number5 As Integer

Console.Write("Please enter the first number: ")
number1 = Console.ReadLine

Console.Write("Please enter the second number: ")
number2 = Console.ReadLine

Console.Write("Please enter the third number: ")
number3 = Console.ReadLine

Console.Write("Please enter the fourth number: ")
number4 = Console.ReadLine

Console.Write("Please enter the fifth and final number: ")
number5 = Console.ReadLine

If number1 < number2 And number3 And number4 And number5 Then
Console.WriteLine(number1 & " is the smallest number!")
End If

If number1 > number2 And number3 And number4 And number5 Then
Console.WriteLine(number1 & " is the largest number!")
End If

If number2 < number1 And number3 And number4 And number5 Then
Console.WriteLine(number2 & " is the smallest number!")
End If

If number2 > number1 And number3 And number4 And number5 Then
Console.WriteLine(number2 & " is the largest number!")
End If

If number3 < number1 And number2 And number4 And number5 Then
Console.WriteLine(number3 & " is the smallest number!")
End If

If number3 > number1 And number2 And number4 And number5 Then
Console.WriteLine(number3 & " is the largest number!")
End If

If number4 < number1 And number2 And number3 And number5 Then
Console.WriteLine(number4 & " is the smallest number!")
End If

If number4 > number1 And number2 And number3 And number5 Then
Console.WriteLine(number4 & " is the largest number!")
End If

If number5 < number1 And number2 And number3 And number4 Then
Console.WriteLine(number5 & " is the smallest number!")
End If

If number5 > number1 And number2 And number3 And number4 Then
Console.WriteLine(number5 & " is the largest number!")
End If

Console.Read()

End Sub

End Module

Its been a while since I've looked at VB, but I'd do this slightly different. I'd create a container variable to hold the highest number (or smallest). For example, create a variable x as integer. Then do your if statements like this (pseudo code)

if number1 > number2 then x = number1 else x = number2

if number3 > x then x = number3

if number4 > x then x = number4

if number5 > x then x = number5

etc, etc. This way you always put the highest number into x, and then display x. Same would work in reverse for smallest number. You could even do smallest at the same time, by creating y.

Late reply, but I hope I help.