?? mtrenchmainmodule.bas
字號(hào):
Attribute VB_Name = "MainModule"
Sub Main()
Dim t(6) As Double
Dim tt(6) As Double
Dim mtxB(6, 6) As Double
t(1) = 10
t(2) = 5
t(3) = 4
t(4) = 3
t(5) = 2
t(6) = 1
tt(1) = 0
tt(2) = -1
tt(3) = -2
tt(4) = -3
tt(5) = -4
tt(6) = -5
'求解
If MTinv(6, t, tt, mtxB) Then
MsgBox "求解成功!" & Chr$(13) & Chr$(13) & _
"逆矩陣為" & Chr$(13) & Chr$(13) & _
MatrixToString(6, 6, mtxB, "######0.0000000")
Else
MsgBox "求解失敗!"
End If
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -