Module Module1
    Sub Main()
        'x= 50.7,y=25.3 and z is defined as integer z, calculate z=x+y
        Const x As Double = 50.7
        Const y As Double = 25.3
        Dim sum As Integer = x + y
        Console.WriteLine("z = x + y = {0} + {1} = {2}", x, y, sum)
        Console.ReadLine()
    End Sub
End Module
Comments