Вложенные циклы. Двумерные массивы

Задание

Задана квадратная матрица 10×10. Подсчитать среднее арифметическое элементов, расположенных на главной диагонали.

 

1 На новую форму Иванов И.И. Гр. Д-1-2005 Задача 5 помещаем элементы:

1.1 Label1 «Вложенные циклы. Двумерные массивы.

1.2 CommandButton1 «Задать матрицу».

1.3 Label2 «».

1.4 ListBox1 – для размещения элементов матрицы.

1.5 CommandButton2 «Среднее арифметическое».

 

2 Записываем код программы:

 

Const N = 10

Dim M(1 To N, 1 To N) As Integer

 

Private Sub CommandButton1_Click()

Label2.Caption = "Исходный массив "

Randomize

For i = 1 To N

L = ""

For j = 1 To N

M(i, j) = Rnd * 9

L = L + Str(M(i, j))

Next

' Добавить строку матрицы в элемент ListBox1

ListBox1.AddItem (L)

 

Next

End Sub

 

Private Sub CommandButton2_Click()

 

S = 0

For i = 1 To N

S = S + M(i, i)

Next

Sr = S / N

Res = MsgBox("Среднее значение диагональных элементов =" & Sr, , "Результат")

 

End Sub

 

3 Запускаем программу на выполнение: