Сгенерировать 2 массива по 20 эл-тов. Упорядочить по возрастанию. Определить равные эл-ты. Нанести массив на числовую ось. - VB

Формулировка задачи:

Сгенерировать функцией RND 2 массива по 20 элементов. Упорядочить каждый массив по возрастанию. Написать номер (№№) и значение равных элементов. Если нет, то написать комментарий "Равных элементов нет" . Нанести массив на числовую ось в масштабе в пределах экрана и цветом выделить( Nj1) = Nj2),создать в программе обе ситуации. пояснить метод решения задачи. помогите пожалуйста горю, эта задача есть на сайте но не могу найти ответ

Решение задачи: «Сгенерировать 2 массива по 20 эл-тов. Упорядочить по возрастанию. Определить равные эл-ты. Нанести массив на числовую ось.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command4_Click()
Cls
sum = 0
dim pp() as double
dim gg() as double
dim k,k_1,k_2,k_3
k = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ", "Г‚ГўГ®Г¤")
k_1 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў", "Г‚ГўГ®Г¤")
ReDim pp(1 To k, 1 To k_1)
Print "Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў:"
For i = 1 To k
    For j = 1 To k_1
    pp(i, j) = Int(Rnd * 10 - 2)
        If j <> k_1 Then
            Print ; pp(i, j);
        Else
            Print pp(i, j);
            Print vbLf
        End If
Next j
Next i
 
k_2 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ", "Г‚ГўГ®Г¤")
k_3 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў", "Г‚ГўГ®Г¤")
ReDim pp(1 To k_2, 1 To k_3)
Print "Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў:"
For i = 1 To k_2
    For j = 1 To k_3
    pp(i, j) = Int(Rnd * 10 - 2)
        If j <> k_3 Then
            Print ; gg(i, j);
        Else
            Print gg(i, j);
            Print vbLf
        End If
Next j
Next i