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