Imports System Module Program Sub Main(args As String()) Dim i As Integer Console.WriteLine("*** signed byte ***") Console.WriteLine("-- System.Convert.ToInt32() --") Dim sb As SByte sb = 123 i = Convert.ToInt32(sb) Console.WriteLine(i) sb = -123 i = Convert.ToInt32(sb) Console.WriteLine(i) Dim sb_ary As SByte() = {10, -20, 30, -40} Console.WriteLine("-- foreach and System.Convert.ToInt32() --") For Each s As SByte In sb_ary Console.WriteLine(Convert.ToInt32(s)) Next Console.WriteLine("-- foreach and sbyte[].GetValue(index) --") For j As Integer = 0 To sb_ary.Length - 1 Console.WriteLine(sb_ary.GetValue(j)) Next Console.WriteLine("*** unsigned byte ***") Console.WriteLine("-- System.Convert.ToInt32() --") Dim b As Byte b = 200 i = Convert.ToInt32(b) Console.WriteLine(i) Dim b_ary As Byte() = {0, 10, 100, 200, 255} Console.WriteLine("-- foreach and System.Convert.ToInt32() --") For Each ub As Byte In b_ary Console.WriteLine(Convert.ToInt32(ub)) Next Console.WriteLine("-- foreach and byte[].GetValue(index) --") For k As Integer = 0 To b_ary.Length - 1 Console.WriteLine(b_ary.GetValue(k)) Next End Sub End Module