sorttest.vb

来自「排序的测试 程序 数据结构 实现程序」· VB 代码 · 共 29 行

Public Class SortTest
    Inherits SortAlogrithm

    Public Event ItemChanged(ByVal i As Integer, ByVal j As Integer)

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

    Protected Overrides Function Compare(ByRef A As Integer, ByRef B As Integer, ByVal i As Integer, ByVal j As Integer) As Boolean
        RaiseEvent ItemChanged(i, j)
        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, ByVal i As Integer, ByVal j As Integer)
        ToData = FromDate
        RaiseEvent ItemChanged(i, j)
    End Sub

End Class