mcs/btests/ArithmeticOperators.vb

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