mrankmainmodule.bas

来自「编程中经常用到的一些算法,算法已模块化,来自于<科学工程与数值算法大全&g」· BAS 代码 · 共 22 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim mtxA(5, 4) As Double
    Dim nRankA As Integer
    
    mtxA(1, 1) = 1:  mtxA(1, 2) = 2:  mtxA(1, 3) = 3:  mtxA(1, 4) = 4
    mtxA(2, 1) = 5:  mtxA(2, 2) = 6:  mtxA(2, 3) = 7:  mtxA(2, 4) = 8
    mtxA(3, 1) = 9:  mtxA(3, 2) = 10:  mtxA(3, 3) = 11:  mtxA(3, 4) = 12
    mtxA(4, 1) = 13:  mtxA(4, 2) = 14:  mtxA(4, 3) = 15:  mtxA(4, 4) = 16
    mtxA(5, 1) = -17:  mtxA(5, 2) = 18:  mtxA(5, 3) = 19:  mtxA(5, 4) = 20
    
    '求解
    nRankA = MRank(5, 4, mtxA)
    
    MsgBox "Rank(A) = " & nRankA
    
End Sub