Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

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

Tags:

find

vb.net

max

This is code for finding maximum in 3 but i want the code for finding maximum amoung 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 
like image 668
sangeen Avatar asked Mar 26 '13 18:03

sangeen


2 Answers

Put the values into 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
like image 118
David Avatar answered Nov 14 '22 14:11

David


As David suggested, keep your values in a list. That's easier than using individual variables and can be extended to as many values as requested (up to millions of values).

If you need to keep individual variables for some reason, 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")
like image 29
Olivier Jacot-Descombes Avatar answered Nov 14 '22 13:11

Olivier Jacot-Descombes