VBA

lxa85 · Отправлено: **15:02, 20-02-2011** | #2

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

Матвик · Отправлено: **15:41, 20-02-2011** | #3

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 · Отправлено: **17:25, 20-02-2011** | #4

Цитата Матвик:

B(1) = A(i, j) »

Вот тут ничего подозрительного нет? Ошибки например?

Цитата Матвик:

For i = 1 To 6
B(I) = A(i, i)
Next i »

Не проще будет?

Массив B - где задан? А - вижу, В - нет.

Матвик · Отправлено: **19:34, 20-02-2011** | #5

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