Имеется N групп учащихся и такое же количество учителей. Занятия проводятся ... - VB

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

Помогите пожалуйста решить следующую задачу: Имеется N групп учащихся и такое же количество учителей. Занятия проводятся в следующее (условно) выбранные часы: 1, 2, 3, ... N. Как распределить учителей по группам так, чтобы в течение дня учитель дал одно занятия группе ровно один раз. Пример При N=3 В 1 час 1 учитель работает с 1 группой 2 учитель работает с 2 группой 3 учитель работает с 3 группой Во 2 час 1 учитель работает с 2 группой 2 учитель работает с 3 группой 3 учитель работает с 1 группой В 3 час 1 учитель работает с 3 группой 2 учитель работает с 1 группой 3 учитель работает с 2 группой Входные данные: С клавиатуры вводится число, определяющее число груп учащихся и учителей

Решение задачи: «Имеется N групп учащихся и такое же количество учителей. Занятия проводятся ...»

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

                            Private Sub Command1_Click()
Dim u(), th()
n = 5
ReDim gr(n), th(n)
 
For i = 1 To n
gr(i) = "Group " & i
th(i) = "Teacher " & i
Next i
j = 1
Do While j <= n
Print j; " hour: "
For i = 1 To n
Print th(i); Tab; gr((i + j) Mod n + 1)
Next i
Print
j = j + 1
Loop
End Sub
                        