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

Формулировка задачи:

Помогите пожалуйста!!!Нужно написать код программы,вычисляющий сумму элементов главной диагонали матрицы С(5,5) с нечетными индексами. Элементы матрицы задать самостоятельно. Использовать процеду- ру Sub, Function и Property.

или хотя бы подскажите как написать в коде нечетные элементы???

Решение задачи: «Найти сумму элементов главной диагонали матрицы с нечетными индексами»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 
Dim C(5, 5) As Single
Dim i As Byte, j As Byte
Dim answer As Single
For i = 0 To 5
For j = 0 To 5
C(i, j) = Int(Rnd * 25)
Next j
Next i
MsgBox sum(C)
End Sub
 
Private Function sum(Mas)
Dim i As Byte
For i = 1 To 5 Step 2
   sum = sum + Mas(i, i)
Next i
End Function
                        

Оцени полезность:

5 голосов , оценка 3.2 из 5

Похожие ответы