mcs/btests/LikeOperator1.vb

   1 \r
   2 Option Strict On\r
   3 \r
   4 Imports System\r
   5 \r
   6 Module LikeOperator1\r
   7     Sub Main()\r
   8 \r
   9         Dim a As Boolean\r
  10         a = "HELLO" Like "H[A- Z][!M-P][!A-K]O"\r
  11         If a <> True Then\r
  12             Console.WriteLine("#A1-LikeOperator:Unexpected behaviour")\r
  13         End If\r
  14 \r
  15     End Sub\r
  16 End Module\r