[Матвик]

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 не работает