mcs/btests/RelationalOperators1.vb

   1 \r
   2 Imports System\r
   3 \r
   4 Module RelationalOperators1\r
   5 \r
   6     Sub Main()\r
   7 \r
   8         Dim a As Long = 0\r
   9         Dim b As String = "Hello"\r
  10 \r
  11         If a < b Then\r
  12             Console.WriteLine("#A1-RelationalOperator: Not Expected")\r
  13         End If\r
  14 \r
  15     End Sub\r
  16 \r
  17 End Module\r