矩阵及其运算(一)：创建一个矩阵类

Public Class Matrix
    Private TableData(,) As Double
    Private RowLength, ColLength As Integer
    ‘矩阵的行长度
    Public ReadOnly Property Row()
        Get
            Return RowLength
        End Get
    End Property
    ‘矩阵的列长度
    Public ReadOnly Property Col()
        Get
            Return ColLength
        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 nRow As Integer, ByVal nColumn As Integer)
        Dim tempArray(nRow - 1, nColumn - 1) As Double
        TableData = tempArray
        RowLength = nRow
        ColLength = nColumn
    End Sub
End Class