Imports System

Public Module Module1

    Public Sub Main()

        'Test 0

        Dim test as Double = 0

        test = 0

        if (test = 0) then

            Console.WriteLine("0")

        End if

        if (test = 0.0) then

            Console.WriteLine("0.0")

        End if

        'Test 0.0

        Dim test2 as Double = 0

        test2 = 0.0

        if (test2 = 0) then

            Console.WriteLine("0")

        End if

        if (test2 = 0.0) then

            Console.WriteLine("0.0")

        End if

    End Sub

End Module