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