mcs/btests/LikeOperatorC1.vb

   1 ' BC30201: Expression expected \r
   2 ' BC30512: Option Strict On disallows implicit conversions from 'Integer' to 'String'\r
   3 \r
   4 Option Strict On\r
   5 \r
   6 Imports System\r
   7 \r
   8 Module LikeOperatorC1\r
   9     Sub main()\r
  10 \r
  11         Dim a As Boolean\r
  12 \r
  13         a = "HELLO" Like \r
  14         If a <> True Then\r
  15             Console.WriteLine("#A1-LikeOperator:Failed")\r
  16         End If\r
  17 \r
  18         a =  Like "H*O"\r
  19         If a <> True Then\r
  20             Console.WriteLine("#A2-LikeOperator:Failed")\r
  21         End If\r
  22 \r
  23         a = 123 Like 123\r
  24 \r
  25     End Sub\r
  26 \r
  27 End Module\r