جمع عناصر روی قطر اصلی ماتریس n در n

[msrc_68]

سلام دوستان

می خواستم بدونم برای نوشتن یک ماتریس n در n که عناصر روی قطر اصلی با هم جمع شوند در وی بی باید چه کرد

خودم یک چیزایی نوشتم ولی نمیدونم درسته یا نه





Dim i, j As Integer
Dim n As Integer
Dim l As Integer
Dim mat() As Integer
ReDim mat(n)
For i = 1 To n
For j = 1 To n
If i = j Then
l = i + j
End If
Next
Next

[xxxxx_xxxxx]

مگه ماتریس رو با آرایه دو بعدی پیاده سازی نمی کنید؟ ماتریس شما یک بعدی هست!
چون عناصر قطر اصلی یک ایندکس یکسان دارند نیازی به استفاده از دو حلقه نیست.
دستور درون حلقه باید محتوای عناصر ماتریس رو جمع کنه، نه ایندکس ها رو!


Dim met(5, 5) As Integer
Dim sum As Integer
Dim i As Integer

For i = 1 To 5
sum = sum + met(i, i)
Next i
MsgBox sum