1Option Strict Off 2Imports System 3Module DoubleLiteral 4 Function Main() As Integer 5 Dim a As Double = True 6 If a <> -1 Then 7 System.Console.WriteLine("DoubleLiteralB:Failed") : Return 1 8 End If 9 End Function 10End Module 11