vb System.Int32.MaxValue类(方法)实例源码

Module modMain
   Public Sub Main()
      Dim numbersToConvert() As Long = { 162345, 32183, -54000, Int64.MaxValue\2 }
      Dim newNumber As Integer
      For Each number As Long In NumbersToConvert
         If number >= Int32.MinValue And number <= Int32.MaxValue Then
            newNumber = Convert.ToInt32(number)
            Console.WriteLine("Successfully converted {0} to an Int32.", _
                              newNumber)
         Else
            Console.WriteLine("Unable to convert {0} to an Int32.", number)
         End If                     
      Next
   End Sub
End Module