mcs/btests/RelationalOperators1.vb

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