無差別に技術をついばむ鳥

Imports System
Imports System.IO
Imports System.Reflection

Module Module1

    Sub Main()
        Dim file As FileStream = New FileStream( _
            "型の最小値と最大値.txt", FileMode.OpenOrCreate)
        Dim writer As StreamWriter = New StreamWriter(file)
        Dim types As Type() = {GetType(SByte), GetType(Byte), _
            GetType(Short), GetType(Short), _
            GetType(Integer), GetType(UInteger), _
            GetType(Long), GetType(ULong), _
            GetType(Single), GetType(Double), _
            GetType(Decimal)}
        For Each t As Type In types
            ShowType(t, writer)
        Next
        writer.Close()
    End Sub

    Sub ShowType(ByVal type As Type, ByVal writer As StreamWriter)
        Dim max As FieldInfo = type.GetField("MaxValue")
        Dim min As FieldInfo = type.GetField("MinValue")
        Dim str As String = String.Format( _
            "型【{0}】の最大値は【{1}】：最小値は【{2}】です。", _
            type.FullName, max.GetValue(Nothing), min.GetValue(Nothing))
        Console.WriteLine(Str)
        writer.WriteLine(Str)
    End Sub

End Module