Module Module1 Sub Main() Dim BigInteger As Integer = 10000 Dim LittleInteger As Short Dim BigFloat As Double = 0.123456789 Dim LittleFloat As Single LittleInteger = BigInteger LittleFloat = BigFloat Console.WriteLine(LittleInteger) Console.WriteLine(LittleFloat) End Sub End Module
10000 0.1234568