Imports System
Public Class Program
Private Shared Function CalculateNormal(ByVal matrix As Integer()()) As Double
Dim normal As Integer = 0
For i As Integer = 0 To matrix.Length - 1
For j As Integer = 0 To matrix.Length - 1
normal += matrix(i)(j) * matrix(i)(j)
Next
Next
Return Math.Sqrt(normal)
End Function
Private Shared Function CalculateTrace(ByVal matrix As Integer()()) As Integer
Dim trace As Integer = 0
For i As Integer = 0 To matrix.Length - 1
trace += matrix(i)(i)
Next
Return trace
End Function
Public Shared Sub Main(ByVal args As String())
Dim matrix As Integer()() = New Integer()() {
New Integer() {1, 1, 1, 1, 1},
New Integer() {2, 2, 2, 2, 2},
New Integer() {3, 3, 3, 3, 3},
New Integer() {4, 4, 4, 4, 4},
New Integer() {5, 5, 5, 5, 5}}
Console.WriteLine(CalculateTrace(matrix))
Console.WriteLine(CalculateNormal(matrix))
End Sub
End Class
' run:
'
' 15
' 16.583123951777
'
