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

[xrenomx]

Всем добрый день.Пытаюсь запустить код на подсчет суммы четных элементов матрицы(A(M,M)) главной диагонали и количество этих элементов.
Элементы и размерность матрицы заполняется вручную.

Public Sub RMN()
Dim K() As Single
n = InputBox("Размерность")
ReDim K(1 To n, 1 To n)
End Sub

После того как задали размерность,необходимо заполнить элементы массива какими-то значениями,вот тут то и проблема.

Прошу помощи.

[8Observer8]

Я начал изучать Visual Basic час назад (как прочитал ваше задание). Не нашёл способа считывания числа до символа пустого пространства. И Console.Read коды символов считывает, как оказалось.

У вас массив К() объявлен одномерным массивом, а не многомерным.

Забавно, как метод работает Console.Read. Он считывает всю строку и превращает её в число. К примеру:

1 2 3

будет преобразовано в число 123

Правда матрицу приходиться вводить по-одному элементу в строке:

Module Module1

    Sub Main()
        Dim arr(,) As Double = New Double(,) {}
        Dim n As Integer

        Console.Write("Введите размерность массива: ")
        n = Console.ReadLine()
        ReDim arr(n - 1, n - 1)

        Console.WriteLine("Введите элементы массива (по-одному в строке):")
        For i As Integer = 0 To n - 1
            For j As Integer = 0 To n - 1
                arr(i, j) = Console.ReadLine
            Next j
        Next i

        ' Сумма чётных элементов на главной диагонали
        Dim sum As Integer = 0
        For i As Integer = 0 To n - 1
            For j As Integer = 0 To n - 1
                If i = j Then
                    If arr(i, j) Mod 2 = 0 Then
                        sum = sum + arr(i, j)
                    End If
                End If
            Next j
        Next i

        ' Выводим результат на экран
        Console.WriteLine("Сумма чётных элементов на главной диагонали равна: {0}", sum)
    End Sub
End Module

[DarkVss]

перебери в цикле все элементы массива с присвоение рандомного значения.в первом(главном) цикле перебирай строки,во втором(внутреннем) столбцы.Приведу пример на С++,т.к. на нем пишу.
___________________________________ ________________
for(i=0;i<n;i++){ //перебираем строки
for(j=0;j<n;j++){ //перебираем столбцы
A[i][j]=rand()%20; //присваиваем рандомное значение
}
}
надеюсь суть понятна

[8Observer8]

Сообщение от DarkVss

перебери в цикле все элементы массива с присвоение рандомного значения.в первом(главном) цикле перебирай строки,во втором(внутреннем) столбцы.Приведу пример на С++,т.к. на нем пишу.
___________________________________ ________________
for(i=0;i<n;i++){ //перебираем строки
for(j=0;j<n;j++){ //перебираем столбцы
A[i][j]=rand()%20; //присваиваем рандомное значение
}
}
надеюсь суть понятна

Требование автора:

Сообщение от xrenomx

Элементы и размерность матрицы заполняется вручную.

[xrenomx]

Большоe спaсибо,кaк буду нa мeстe протeстирую код