【VB.net矩陣函數】方陣求特徵值Math

Ret Math While K1 Int16 xy Else