Надо вывести двумерный массив (n,n) каждый элемент которого рассчитан в диапазоне (a,b) на 1 и 2 лист Excel. На втором листе в этом массиве заменить все элементы по главное диагонали на 1(единицу), а по второстепенной диагонали на 0(ноль).
Сделал все до второстепенной диагонали, дальше ни как, и мысли вроде бы есть, да вот ни как ни могу уловить и реализовать.
Вот что у меня получилось на данный момент:
- Код: Выделить всё
Sub trololo()
Dim n As Integer
Dim massiv() As Integer
Dim i As Integer, j As Integer
Dim a As Integer, b As Integer
Randomize
Worksheets("Лист1").Range("A1:Z30").Clear
Worksheets("Лист2").Range("A1:Z30").Clear
a = InputBox("Введите А")
b = InputBox("Введите Б")
n = InputBox("Введите Н")
ReDim massiv(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
massiv(i, j) = (b - a + 1) * Rnd() + a
Worksheets("Лист1").Cells(i, j) = massiv(i, j)
Worksheets("Лист2").Cells(i, j) = massiv(i, j)
Next j
Next i
For i = 1 To n
For j = 1 To n
If i = j Then
Worksheets("Лист2").Cells(i, j) = 1
End If
Next j
Next i
End Sub