mcs/mbas/Test/tests/ArithmeticOperators.vb

   1 \r
   2 Imports System\r
   3 \r
   4 Module ArithmeticOperators\r
   5 \r
   6     Sub main()\r
   7         Dim a1, a3 As Integer\r
   8         Dim a2 As String\r
   9 \r
  10         a1 = 2 + 3\r
  11         If a1 <> 5 Then\r
  12             Console.WriteLine("#A1-AdditionOperator:Failed")\r
  13         End If\r
  14 \r
  15         a1 = 1204.08 + 3433\r
  16         If a1 <> 4637 Then\r
  17             Console.WriteLine("#A2-AdditionOperator:Failed")\r
  18         End If\r
  19 \r
  20         a3 = 2\r
  21         a2 = "235"\r
  22         a1 = a2 + a3\r
  23         If a1 <> 237 Then\r
  24             Console.WriteLine("#A3-AdditionOperator:Failed")\r
  25         End If\r
  26 \r
  27         a1 = a3 + Nothing\r
  28         If a1 <> 2 Then\r
  29             Console.WriteLine("#A4-AdditionOperator:Failed")\r
  30         End If\r
  31 \r
  32         Dim b1, b2, b3 As Char\r
  33         b1 = "a"\r
  34         b2 = "c"\r
  35         b3 = b1 + b2\r
  36         If b3 <> "a" Then\r
  37             Console.WriteLine("#A5-AdditionOperator:Failed")\r
  38         End If\r
  39 \r
  40         Dim c1 As Double\r
  41         c1 = 463.338 - 338.333\r
  42         If c1 <> 125.005 Then\r
  43             Console.WriteLine("#A6-SubtractionOperator:Failed")\r
  44         End If\r
  45 \r
  46         c1 = 463.338 * 338.3\r
  47         If c1 <> 156747.2454 Then\r
  48             Console.WriteLine("#A7-MultiplicationOperator:Failed")\r
  49         End If\r
  50 \r
  51     End Sub\r
  52 \r
  53 End Module