mcs/btests/misc1.vb

   1 ' This test checks for the follwoing features\r
   2 ' # comments\r
   3 ' # Line Continuation\r
   4 ' # white space\r
   5 ' # case sensitivity\r
   6
   7 REM check comments ;-)\r
   8 \r
   9 Module misc1\r
  10     Function LineContinuation( _\r
  11         ByVal a As Integer, _\r
  12         ByVal b As Integer _\r
  13         )\r
  14         If a > b Then\r
  15             a = b\r
  16         Else\r
  17             b = a\r
  18         End If\r
  19     End Function\r
  20 \r
  21     Function WhiteSpace(ByVal a As Integer, ByVal b As Integer)\r
  22         If (a > b) Then\r
  23             a = b\r
  24         End If\r
  25     End Function\r
  26 \r
  27     Function CaseSensitivity(ByVal A As Integer, ByVal b As Integer)\r
  28         If (A > b) Then\r
  29             A = b\r
  30         End If\r
  31     End Function\r
  32 \r
  33     Sub main()
  34         try\r
  35         LineContinuation(10, 20)\r
  36         WhiteSpace(10, 20)\r
  37         CaseSensitivity(10, 20)
  38         catch e as System.Exception
  39                  System.Console.WriteLine(e.message)
  40         end try\r
  41     End Sub\r
  42 \r
  43 End Module\r