How do you find the largest number among 5 with vb.net?

Question

This is the code to search for a maximum of 3, but I need a code to search for a maximum of 5:

Dim a, b, c As Integer a = InputBox("enter 1st no.") b = InputBox("enter 2nd no.") c = InputBox("enter 3rd no.") If a > b Then If a > c Then MsgBox("A is Greater") Else MsgBox("C is greater") End If Else If b > c Then MsgBox("B is Greater") Else MsgBox("C is Greater") End If End If 

Answer 1

As David suggested, keep your values ​​on the list. This is easier than disabling individual variables, and can be extended to as many values ​​as required (up to millions of values).

If for some reason you need to save separate variables, do this:

 Dim max As Integer = a Dim name As String = "A" If b > max Then max = b name = "B" End If If c > max Then max = c name = "C" End If If d > max Then max = d name = "D" End If ' ... extend to as many variables as you need. MsgBox(name & " is greater") 

Answer 2

Put the values ​​in an array and use the Max function on IEnumerable :

 'Requires Linq for Max() function extension Imports System.Linq 'This is needed for List Imports System.Collections.Generic ' Create a list of Long values. Dim longs As New List(Of Long)(New Long() _ {4294967296L, 466855135L, 81125L}) ' Get the maximum value in the list. Dim max As Long = longs.Max() ' Display the result. MsgBox("The largest number is " & max) ' This code produces the following output: ' ' The largest number is 4294967296 

Answer 3

A simple solution for you

 Dim xMaxNo As Integer Dim xTemp As Integer For i as integer = 1 To 5 xTemp = InputBox("enter No: " & i) xMaxNo = if(xTemp > xMaxNo, xTemp, xMaxNo) Next MsgBox("The Highest Number is " & xMaxNo)