mcs/btests/ConcatenationOperator.vb

   1 Imports System\r
   2 \r
   3 Module ConcatenationOperator\r
   4     Sub main()\r
   5         Dim a As String = "Hello "\r
   6         Dim b As String = "World"\r
   7 \r
   8         Dim c As String = a & b\r
   9         If c <> "Hello World" Then\r
  10             Console.WriteLine("#A1-Concatenation Failed")\r
  11         End If\r
  12 \r
  13         c = a & CInt(123)\r
  14         If c <> "Hello 123" Then\r
  15             Console.WriteLine("#A2-Concatenation Failed")\r
  16         End If\r
  17 \r
  18         c = a & Nothing\r
  19         If c <> "Hello " Then\r
  20             Console.WriteLine("#A3-Concatenation Failed")\r
  21         End If\r
  22 \r
  23         c = Nothing & a\r
  24         If c <> "Hello " Then\r
  25             Console.WriteLine("#A4-Concatenation Failed")\r
  26         End If\r
  27 \r
  28         c = a & CDec(123.23)\r
  29         If c <> "Hello 123.23" Then\r
  30             Console.WriteLine("#A5-Concatenation Failed")\r
  31         End If\r
  32 \r
  33         c = a & CBool(123)\r
  34         If c <> "Hello True" Then\r
  35             Console.WriteLine("#A6-Concatenation Failed")\r
  36         End If\r
  37 \r
  38     End Sub\r
  39 \r
  40 End Module