Module Module1
Sub Main()
Dim arr(,) As Single = {{3, 8}, {4, 6}}
Dim determinant As Single
'
' a b
' arr =
' c d
'
' determinant = a*d - b*c
'
'
determinant = (arr(0, 0) * arr(1, 1)) - (arr(0, 1) * arr(1, 0))
Console.WriteLine(determinant)
End Sub
End Module
' run:
'
' -14