最長子字串例




'最長子字串例
Module Module1
    Sub Main()
        Dim a() = {2, 5, 3, 6, 10, 8, 9, 7}
        Dim bL()
        ReDim bL(UBound(a) + 1)
        For i = 0 To 7
            bL(i) = 1
            Dim temStr = ""
            For j = 0 To i - 1
                If a(i) > a(j) And bL(i) <= bL(j) Then
                    bL(i) = bL(j) + 1
                    temStr = temStr & a(j) & ","
                End If
            Next
            temStr = temStr & a(i)
            Console.WriteLine("子字串 : " & temStr)
        Next
        Dim lmax = bL(0)
        For i = 1 To 7
            If bL(i) > lmax Then
                lmax = bL(i)
            End If
        Next
        Console.WriteLine("最長子字串，長度為：" & lmax)
        Console.Read()
    End Sub
End Module