Class Module VB.Net Tutorial

  1. Home
  2. VB.Net Tutorial
  3. Class Module
  4. 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