По кодам названия дисциплин, изучаемых в вузе, вывести на экран список учебников рекомендуемых к изучению - VB

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

По кодам названия дисциплин, изучаемых в вузе, вывести на экран список учебников рекомендуемых к изучению.

Количество дициплин не более 4. Количество учебников не более 3

Помогите с решением пожалуйста. Попала в больницу, все пропустила, теперь разобраться не могу( Буду благодарна.

Решение задачи: «По кодам названия дисциплин, изучаемых в вузе, вывести на экран список учебников рекомендуемых к изучению»

textual
                            Листинг программы 
                        

                            Dim k(4, 4), i, j
 
Private Sub Form_Load()
a = Array("m", "f", "h", "tm", "inf", "gfd", "g", "567567", "1545", "6+6987", "srgsgr", "ghgh", "jfdghj")
List1.Clear
For i = 1 To 4
k(1, i) = Int(Rnd * 899999) + 100000
List1.AddItem k(1, i)
For j = 1 To 3
'k(j + 1, i) = "учебник: " & a(Int(Rnd * 12)) 'i * 10 + j
k(j + 1, i) = "учебник: " & a((i - 1) * 3 + j)
Next j
Next i
End Sub
 
Private Sub List1_Click()
List2.Clear
For j = 1 To 3
List2.AddItem k(j + 1, List1.ListIndex + 1)
Next j
End Sub
                        