mcs/btests/StringLiteralsA.vb

   1 Imports System
   2 Module StringLiteral
   3         Sub Main()
   4                 Try
   5                         Dim a As String="Hello"
   6                         Dim b As String=" World "
   7                         Dim c As String=47
   8                         Dim d As String=a+b+c
   9                         If d<>"Hello World 47" Then
  10                                 Throw New Exception("StringLiteralA:Failed-String concatenation does not work right")
  11                         End If
  12                 Catch e As Exception
  13                         Console.WriteLine(e.Message)
  14                 End Try
  15
  16         End Sub
  17 End Module