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

Dim k(4, 4), i, j
 
Private Sub Form_Load()
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) = "ó÷åáíèê " & i * 10 + 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

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