Как распределить остаток от деления?

Question

мне нужно разделить 23 студентов на 5 групп, так

Dim i as Integer = 23 Mod 5 

дает остаток = 3.

Как я могу распределить остаток таким образом, что первый, второй, и третьей групп будет иметь один член более чем другие?

Или как начать распределение в обратном направлении, где пятый, четвертый и третий будут иметь 1 дополнительный член?

Я хочу, чтобы получить эти значения:

Dim groups(4) As Integer 
groups(0) = 5 
groups(1) = 5 
groups(2) = 5 
groups(3) = 4 
groups(4) = 4 

Answer 1

Итак, вот ваша установка:

Dim groups As Integer() = New Integer(4) {} 
Dim students As Integer = 23 

Вы знаете, как рассчитать размер группы и остаток:

Dim groupSize As Integer = students \ groups.Length  ' \ is integer division 
Dim remainder As Integer = students Mod groups.Length 

Тогда пройти через каждую группу и присвоить ей размер:

For i As Integer = 0 To groups.Length-1 
    groups(i) = groupSize 
Next 

Наконец, вам необходимо распределить остаток. Согласно вашему вопросу, вы хотите добавить 1 к первому остаток количество групп.

Что переводится:

For i As Integer = 0 To remainder-1 
    groups(i) = groups(i) + 1 
Next 

Answer 2

Это работает для меня:

Dim value = 23 
Dim divisor = 5 
Dim remainder = value Mod divisor 

Dim groups(divisor - 1) As Integer 

For i = 0 To divisor - 1 
    groups(i) = value \ divisor + If(i < remainder, 1, 0) 
Next 

Answer 3

Вы можете попробовать следующий код

Dim r As Integer = 23 Mod 5 
Dim d As Integer = 23 \ 5 
Dim group(4) As Integer 
For i = 0 To group.Length - 1 
    group(i) = d 
    If r > 0 Then 
     group(i) += 1 
     r -= 1 
    End If 
Next