Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Finds the maximum of three numbers input

Module Tester     Sub Main()       Dim value1, value2, value3 As Double       value1 = 1.1       value2 = 2.2       value3 = 3.3       Console.WriteLine( Maximum(value1, value2, value3) )     End Sub         Function Maximum(ByVal valueOne As Double, _       ByVal valueTwo As Double, ByVal valueThree As Double) _       As Double       Return Math.Max(Math.Max(valueOne, valueTwo), valueThree)    End Function End Module 3.3