Найти сумму нечетных элементов главной диагонали матрицы

Public Sub Counter_control_prg()
Dim a(1 To 500, 1 To 500) As Single
Dim I As Integer
Dim N As Integer
Dim J As Integer
Dim S As Single
 
N = InputBox("Размерность")
For i = 1 To N - 1
    For j = i + 1 To N
        If a(i, j) <> Round(a) Then
        S = S + a(i, j)
MsgBox S
Next j
Next i
End If
End Sub

Public Sub Counter_control_prg()
Dim a(1 To 500, 1 To 500) As Single
Dim I As Integer
Dim N As Integer
Dim J As Integer
Dim S As Single
 
N = InputBox("Размерность")
For i = 1 To N - 1
    For j = i + 1 To N
        If a(i, j) = Round(a) Then
            S = S + a(i, j)
        End If
    Next j
Next i
MsgBox S
End Sub

for i=1 to n: if a(i,i) mod 2 then s=s+a(i,i): next

for i=1 to n: for j=1 to n: a(i,j)=cint(rnd*100): next j: next i

sub x()
  dim i%, j%, n%, a%(), s&
  n=inputbox("введите N")
  redim a(1 to n, 1 to n)
  for i=1 to n: for j=1 to n: a(i,j)=cint(rnd*100): next j: next i
  for i=1 to n
    if a(i,i) mod 2 then s=s+a(i,i)
  next
  msgbox s
end sub

Sub x()
  Dim i%, j%, k%, n%, a%(), s&
  n = InputBox("ââåäèòå N")
  ReDim a(1 To n, 1 To n)
  For i = 1 To n
    For j = 1 To n
      a(i, j) = CInt(Rnd * 100)
    Next j
  Next i
  For i = 1 To n
    If a(i, i) Mod 2 Then s = s + a(i, i)
    k = k + a(i, i)
  Next
  MsgBox s
  MsgBox i
End Sub

If a(i, i) Mod 2 Then s = s + a(i, i): k = k + 1

MsgBox k

sub x()
  Dim i%, j%, k%, n%, a%(), s&
  n = InputBox("ââåäèòå N")
  ReDim a(1 To n, 1 To n)
  For i = 1 To n
    For j = 1 To n
      a(i, j) = CInt(Rnd * 100)
    Next j
  Next i
  k=0
  For i = 1 To n
    If a(i, i) Mod 2 Then
      s = s + a(i, i)
      k = k + 1
    endif
  Next
  MsgBox s
  MsgBox k
End Sub