mcs/btests/LikeOperator1.vb

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