vb System.Int16.MinValue类(方法)实例源码

Dim numbersToConvert() As Long = {162345, 32183, -54000}
Dim newNumber As Int16
For Each number As Long In NumbersToConvert
   If number >= Int16.MinValue And number <= Int16.MaxValue Then
      newNumber = Convert.ToInt16(number)
      Console.WriteLine("Successfully converted {0} to an Int16.", _
                        newNumber)
   Else
      Console.WriteLine("Unable to convert {0} to an Int16.", number)
   End If                     
Next