mcs/mbas/Test/tests/ConcatenationOperator.vb

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