mcs/btests/ArithmeticOperators3.vb

   1 \r
   2 Imports System\r
   3 \r
   4 Module ArithmeticOperators3\r
   5 \r
   6     Sub main()\r
   7 \r
   8         Dim a1 As Decimal\r
   9         a1 = System.Decimal.MaxValue\r
  10         a1 = a1 ^ 2\r
  11         Console.WriteLine(a1)\r
  12 \r
  13     End Sub\r
  14 \r
  15 End Module