行列式(一)：创建一个行列式类

Public Class Determinant
    Private TableData(,) As Double
    Private RankLength As Integer
    ‘行列式的阶
    Public ReadOnly Property Rank()
        Get
            Return RankLength
        End Get
    End Property
    ‘行列式第iRow行第iCol列的元素
        Public Property Item(ByVal iRow As Integer, ByVal iCol As Integer)
            Get
                Return TableData(iRow - 1, iCol - 1)
            End Get
            Set(ByVal value)
                TableData(iRow - 1, iCol - 1) = value
            End Set
        End Property

    Public Sub New(ByVal nRank As Integer)
        Dim tempArray(nRank - 1, nRank - 1) As Double
        TableData = tempArray
        RankLength = nRank
    End Sub
End Class