mcs/btests/ArithmeticOperatorsA.vb

   1 \r
   2 Imports System\r
   3 \r
   4 Module ArithmeticOperatorsA\r
   5 \r
   6     Sub main()\r
   7 \r
   8         Dim a1, a2 As Double\r
   9         a1 = 3 / 2\r
  10         If a1 <> 1.5 Then\r
  11             Console.WriteLine("#A1-RegularDivisionOperator:Failed")\r
  12         End If\r
  13 \r
  14         Dim b1 As Integer\r
  15 \r
  16         b1 = 12 \ 2.5\r
  17         If b1 <> 6 Then\r
  18             Console.WriteLine("#A2-IntegerDivisionOperator:Failed")\r
  19         End If\r
  20 \r
  21         b1 = 11 \ 4\r
  22         If b1 <> 2 Then\r
  23             Console.WriteLine("#A3-IntegerDivisionOperator:Failed")\r
  24         End If\r
  25 \r
  26         b1 = 67 \ -4\r
  27         If b1 <> -16 Then\r
  28             Console.WriteLine("#A4-IntegerDivisionOperator:Failed")\r
  29         End If\r
  30 \r
  31         a1 = 12 Mod 2\r
  32         If a1 <> 0 Then\r
  33             Console.WriteLine("#A5-ModOperator:Failed")\r
  34         End If\r
  35 \r
  36         'a1 = 12.6 Mod 5\r
  37         'If a1 <> 2.6 Then\r
  38         'Console.WriteLine("#A6-ModOperator:Failed")\r
  39         'End If\r
  40 \r
  41         a1 = 2 ^ 3\r
  42         If a1 <> 8 Then\r
  43             Console.WriteLine("#A7-ExponentialOperator:Failed")\r
  44         End If\r
  45 \r
  46         a1 = (-2) ^ 3\r
  47         If a1 <> -8 Then\r
  48             Console.WriteLine("#A8-ExponentialOperator:Failed")\r
  49         End If\r
  50 \r
  51 \r
  52     End Sub\r
  53 \r
  54 End Module