1Imports System 2Module DoubleLiteral 3 Function Main() As Integer 4 Dim a As Double = 1.23 5 Dim b As Double = 12300000000.0 6 End Function 7End Module 8