mcs/btests/ArithmeticOperatorsA.vb

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