[решено] Массив

[Матвик]

Переписать элементы главной диагонали массива А[6,6] в одномерный массив В


напишите пожалуйста текст программы и блок-схему

[lxa85]

Матвик, мы здесь помогаем разобраться в проблемах программирования, а не пишем лабораторные работы за студентов. Поэтому сперва ваши соображения и измышления, а затем наши. Т.к. размеры матрицы задан, то можно хоть в ручную сделать. Задача в 10 строк.

[Матвик]

Dim A(1 To 6, 1 To 6) As Single
Dim i, j As Integer

Private Sub Command1_Click()

List1.Clear
Randomize

For i = 1 To 6
For j = 1 To 6
A(i, j) = Int(100 * Rnd)
Next j
Next i

For i = 1 To 6
List1.AddItem Str(A(i, 1)) + " " + Str(A(i, 2)) + " " + Str(A(i, 3)) + " " + Str(A(i, 4)) + " " + Str(A(i, 5)) + " " + Str(A(i, 6))
Next i
End Sub


Private Sub Command2_Click()
'

List1.Clear

For i = 1 To 6
For j = 1 To 6
If i = j Then
B(1) = A(i, j)
End If
Next j
Next i


Command2 не работает

[lxa85]

B(1) = A(i, j) »
Вот тут ничего подозрительного нет? Ошибки например? :)
For i = 1 To 6
B(I) = A(i, i)
Next i »
Не проще будет? :)
Массив B - где задан? А - вижу, В - нет.

[Матвик]

вот это я баклажан, все я въехал все сделал. Спасибо огромное)