Mega Code Archive
This example demonstrates Math Max()
<![CDATA[
Class Sample
Public Shared Sub Main()
Dim xByte1 As Byte = 1
Dim xByte2 As Byte = 51
Dim xShort1 As Short = - 2
Dim xShort2 As Short = 52
Dim xInt1 As Integer = - 3
Dim xInt2 As Integer = 53
Dim xLong1 As Long = - 4
Dim xLong2 As Long = 54
Dim xSingle1 As Single = 5F
Dim xSingle2 As Single = 55F
Dim xDouble1 As Double = 6.0
Dim xDouble2 As Double = 56.0
Dim xDecimal1 As [Decimal] = 7D
Dim xDecimal2 As [Decimal] = 57D
Dim xSByte1 As SByte = 101
Dim xSByte2 As SByte = 111
Dim xUShort1 As UShort = 102
Dim xUShort2 As UShort = 112
Dim xUint1 As UInteger = 103
Dim xUint2 As UInteger = 113
Dim xUlong1 As ULong = 104
Dim xUlong2 As ULong = 114
Console.WriteLine(Math.Max(xByte1, xByte2))
Console.WriteLine(Math.Max(xShort1, xShort2))
Console.WriteLine(Math.Max(xInt1, xInt2))
Console.WriteLine(Math.Max(xLong1, xLong2))
Console.WriteLine(Math.Max(xSingle1, xSingle2))
Console.WriteLine(Math.Max(xDouble1, xDouble2))
Console.WriteLine(Math.Max(xDecimal1, xDecimal2))
Console.WriteLine(Math.Max(xSByte1, xSByte2))
Console.WriteLine(Math.Max(xUShort1, xUShort2))
Console.WriteLine(Math.Max(xUint1, xUint2))
Console.WriteLine(Math.Max(xUlong1, xUlong2))
End Sub
End Class
]]>