sorttest.vb

说明: 这一段在复习数据结构和算法

Public Class SortTest
    Inherits SortAlogrithm

    Public Event ItemChanged()

    Protected Overrides Sub Exch(ByRef A As Integer, ByRef B As Integer)
        Dim T As Integer
        T = A
        A = B
        B = T
        RaiseEvent ItemChanged()
    End Sub

    Protected Overrides Function Compare(ByRef A As Integer, ByRef B As Integer) As Boolean
        RaiseEvent ItemChanged()
        If A < B Then
            Return True
        Else
            Return False
        End If
    End Function

    Protected Overrides Sub Evalvalue(ByRef ToData As Integer, ByRef FromDate As Integer)
        ToData = FromDate
        RaiseEvent ItemChanged()
    End Sub

End Class