mcs/btests/StringTypeCharTestB.vb

   1 Imports System
   2 Module StringTypeCharTest
   3     Sub Main()
   4         Try
   5             Dim m As String
   6             m = f(20)
   7             If m <> 20 Then
   8                 Throw New Exception("StringTypeCharTest: failed")
   9             End If
  10             Exit Sub
  11         Catch e As Exception
  12             Console.WriteLine(e.Message)
  13         End Try
  14     End Sub
  15
  16     Function f$(ByVal param$)
  17         f$ = param
  18     End Function
  19 End Module