Заменить единицами элементы главной и обратной диагонали матрицы С(5,5) - VB

Узнай цену своей работы

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

HELP me

Решение задачи: «Заменить единицами элементы главной и обратной диагонали матрицы С(5,5)»

textual
Листинг программы
Private Sub Command1_Click()
Dim a(5, 5) As Integer
 
For i = 1 To 5
For j = 1 To 5
 a(i, j) = 10 * Rnd(1) \ 1
 Print a(i, j);
Next j
Print
Next i
Print
 
For i = 1 To 5
  a(i, i) = 1
  a(6 - i, i) = 1
Next i
 
For i = 1 To 5
For j = 1 To 5
 Print a(i, j);
Next j
Print
Next i
 
End Sub

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

13   голосов , оценка 4.154 из 5
Похожие ответы