mcs/btests/ShiftOperatorsA.vb

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