Imports System
Friend Class Program
Public Shared Sub Main(ByVal args As String())
Dim d As Double = 24278.0
If d = Math.Floor(d) Then
Console.WriteLine("The double variable contains an integer")
Else
Console.WriteLine("The double variable contains a floating point")
End If
End Sub
End Class
' run:
'
' The double variable contains an integer
'