module1.vb

编程之道VB.NETt程序设计入门-589M.zip

Module Module1

    Sub Main()
        Dim int1 As Int16 = Int16.MinValue
        Dim int2 As Int64 = Int64.MaxValue
        Dim int3 As Int32

        Dim single1 As Single = Single.MaxValue
        Dim double1 As Double = 0.0

        Dim s1 As String = "Hello"
        Dim s2 As String = s1

        Dim date1 As DateTime = Now()
        Dim date2 As DateTime = DateTime.MaxValue

        System.Console.WriteLine("int1: " & int1)
        System.Console.WriteLine("int2: " & int2)
        System.Console.WriteLine("int3: " & int3)
        System.Console.WriteLine("single1: " & single1)
        System.Console.WriteLine("double1: " & double1)
        System.Console.WriteLine("s1: " & s1)
        System.Console.WriteLine("s2: " & s2)
        System.Console.WriteLine("date1: " & date1)
        System.Console.WriteLine("date2: " & date2)
        System.Console.ReadLine()
    End Sub

End Module