부서의 나머지 부분을 배포하는 방법은 무엇입니까?

Question

나는 그렇게

Dim i as Integer = 23 Mod 5 

준다, 5 개 그룹 (23 명) 학생을 분할해야 나머지 = 3

나는 나머지를 배포 할 수있는 방법 첫 번째, 두 번째, 세 번째 그룹이있을 것이다 1 명의 회원이 더 그러한 다른 사람들보다?

또는 역순으로 배포를 시작하려면 어떻게해야합니까? 다섯 번째, 네 번째 및 세 번째는 1 명의 여분 멤버가 있습니까?

내가이 값 싶어 그런 다음

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

: 당신은 그룹 크기와 나머지를 계산하는 방법을 알고

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

: 그래서

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

Answer 1

을 이곳에 설정입니다 각 그룹을 살펴보고 크기를 할당하십시오 :

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