mcs/btests/ShiftOperatorsA.vb

   1 \r
   2 Imports System\r
   3 \r
   4 Module ShiftOperatorsA\r
   5 \r
   6     Sub Main()\r
   7         Dim a1 As Double = 200.93\r
   8         a1 = a1 >> 109.95\r
   9         Console.WriteLine(a1)\r
  10 \r
  11     End Sub\r
  12 \r
  13 End Module