[أبو نوره]

مرحبا اخى

تفضل داله ترسل لها عدد الطلاب وعدد المجموعات وتعيد لك مصفوفه بعدد المجموعات في كل منها عدد طلبتها

PHP كود :

Function Calc(ByVal a As Integer, ByVal b As Integer) As Integer()
    Dim c As Integer = a \ b
    Dim d As Integer = a Mod b

    Dim r(b - 1) As Integer
    For i = 0 To b - 1
        r(i) = c
    Next
    For i = 0 To d - 1
        r(i) = r(i) + 1
    Next

    Return r
End Function 


---

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim rowCount As Integer = Me.DataGridView1.Rows.Count - If(Me.DataGridView1.AllowUserToAddRows, 1, 0)

    Dim z = Calc(Val(TextBox1.Text), rowCount)

    For i = 0 To z.Count - 1
        Me.DataGridView1.Item(2, i).Value = z(i)
    Next

End Sub