Module Module1

    Sub Main()
        Dim a As Integer
        Console.WriteLine(" enter integer")
        a = Console.ReadLine

        Dim b As Byte
        Console.WriteLine(" enter byte")
        b = Console.ReadLine

        Dim c As SByte
        Console.WriteLine(" enter SByte")
        c = Console.ReadLine

        Dim d As Long
        Console.WriteLine(" enter Long integer")
        d = Console.ReadLine

        Dim e As Decimal
        Console.WriteLine(" enter Decimal")
        e = Console.ReadLine

        Dim f As Single
        Console.WriteLine(" enter Single")
        f = Console.ReadLine

        Dim g As Double
        Console.WriteLine(" enter Double")
        g = Console.ReadLine

        Dim h As String
        Console.WriteLine(" enter String")
        h = Console.ReadLine

        Dim i As Char
        Console.WriteLine(" enter Char")
        i = Console.ReadLine

        Dim j As Boolean
        Console.WriteLine(" enter Boolean")
        j = Console.ReadLine

        Dim k As Object
        Console.WriteLine(" enter Object")
        k = Console.ReadLine

        Dim l As Date
        Console.WriteLine("enter date")
        l = Console.ReadLine()

        Console.WriteLine("integer= " & a)
        Console.WriteLine("byte= " & b)
        Console.WriteLine("sbyte= " & c)
        Console.WriteLine("long integer= " & d)
        Console.WriteLine("decimal number= " & e)
        Console.WriteLine("single precision= " & f)
        Console.WriteLine("double precision= " & g)
        Console.WriteLine("string= " & h)
        Console.WriteLine("char= " & i)
        Console.WriteLine("boolean= " & j)
        Console.WriteLine("object= " & k)
        Console.WriteLine("date= " & l)

        Console.ReadKey()


    End Sub

End Module
