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
|