求 将已知行数和列数的二维矩阵 存为一维形式的代码,该如何解决

Function mat2str(ByVal mat As Integer(,)) As String
        mat2str = "["
        For row = LBound(mat, 1) To UBound(mat, 1)
            For col = LBound(mat, 2) To UBound(mat, 2)
                mat2str += CStr(mat(row, col))
                mat2str += IIf(col = UBound(mat, 2), "", ",")
            Next
            mat2str += IIf(row = UBound(mat, 1), "]", ";")
        Next
    End Function

    Function str2mat(ByVal str As String) As Integer(,)
        Dim result As Integer(,)
        Dim rows As String(), cols As String()
        Dim row As Integer, col As Integer

        str = Replace(str, "[", "")
        str = Replace(str, "]", "")
        rows = Split(str, ";")
        row = UBound(rows) - LBound(rows) + 1
        cols = Split(rows(0), ",")
        col = UBound(cols) - LBound(cols) + 1

        ReDim result(row, col)
        For row = LBound(rows) To UBound(rows)
            cols = Split(rows(row), ",")
            For col = LBound(cols) To UBound(cols)
                result(row, col) = CInt(cols(col))
            Next
        Next
        str2mat = result
    End Function