If then statement using relationship operators
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