Imports System
Module DecimalTypeCharTest
    Sub Main()
	Dim a As Double
	a#=10.25

	Dim b#
	b=20.24

	Dim c As Double
	c#=23.45

	Dim d# As Double
	d=45.56
    End Sub
End Module