Задача по VisualBasic 6

[ride013]

Определить из каких разных элементов состоит матрица и сколько раз каждый из них повторяется.

Вообще не пойму как написать код(((

Написал заполнение матрицы
вот:

Private Sub Command1_Click()
Command3.Enabled = True
M = Val(InputBox("Ñêîêî ñòðîê?", "Âîïðîñ", 5))
N = Val(InputBox("Ñêîêî ñòîëáöîâ?", "Âîïðîñ", 5))
ReDim A(1 To M, 1 To N)
fg1.Cols = N + 1
fg1.Rows = M + 1
fg2.Cols = N + 1
fg2.Rows = M + 1

 For I = 1 To M
    For J = 1 To N
     A(I, J) = Rnd * 20 + 10
     fg1.TextMatrix(I, J) = A(I, J)
 Next J
 Next I

For I = 1 To M
For J = 1 To N
fg1.TextMatrix(0, J) = J
fg1.TextMatrix(J, 0) = J
Next J, I


For I = 1 To M
For J = 1 To N
fg2.TextMatrix(0, J) = J
fg2.TextMatrix(J, 0) = J
Next J, I
End Sub

Но с остальным заданием не разберусь никак((
Помогите))


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[was3110]

могу помочь... (контакты в профиле)