likeoperatord.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 37 行

'Author:
'   K. Satya Sudha ([e-mail])
'
' (C) 2005 Novell, Inc.

Imports System
Module Test
    Function Main() As Integer
        Dim a As Boolean = "7" Like "?[]"
        If a <> True Then
            Throw New Exception("#A1 - Like operator failed")
        End If

        a = "7" Like "[]?"
        If a <> True Then
            Throw New Exception("#A2 - Like operator failed")
        End If

        a = "7" Like "[]*"
        If a <> True Then
            Throw New Exception("#A3 - Like operator failed")
        End If

        a = "7" Like "[]#"
        If a <> True Then
            Throw New Exception("#A4 - Like operator failed")
        End If

        a = "7" Like "#[]"
        If a <> True Then
            Throw New Exception("#A5 - Like operator failed")
        End If

    End Function
End Module