MSFlexGrid Help

[Лиза]

Пожалуйста, помогите срочно.

Составить программу, создающую (NxN) по обеим диагоналям которой 1. Остальные элементы 0.


Выглядеть должна следующем образом:


Размер квадратной матрицы : [N] - text
N
N 1 0 0 1 -------------MSFlexGrid
0 1 1 0
0 1 1 0
1 0 0 1

[Показать]




Мне люди подсказали что будет такой код:

Sub SquareMatrix()
Dim size As Integer
size = InputBox("Size of matrix")
' fill with zero
For i = 1 To size
For j = 1 To size
Cells(i, j) = 0
Next j
Next i

' diagonals
For i = 1 To size
Cells(i, i) = 1
Cells(size - i + 1, i) = 1
Next i
End Sub

что то он не работает, или я не понимаю, объясните, пожалуйста, что куда и как. Заранее очень благодарна

[Хакер]

1) viewtopic.php?f=1&t=29448
2) Либо ты оформляешь свою тему норльмано, включая правильное оформление кода, хорошо, грамотно (с человеческой стороны) ставишь вопрос. Либо тему ждёт известная судьба.

[Хакер]

Поскольку автор создал тему в разделе «Работа», эта тема закрывается.