主题：[求助]

试试，不行就上传项目。

For Each r As Row In Tables("分考点订卷").rows
    Dim tt As Integer =  r("报考人数")
    Dim ary() As Integer = {31, 11, 5}
    Dim num As Integer = tt
    For i As Integer = 0 To num \ ary(0)
        For j As Integer = 0 To num \ ary(1)
            For k As Integer = 0 To num \ ary(2)
                Dim sum As Integer = ary(0) * i + ary(1) * j + ary(2) * k
                If math.abs(sum - num) <= 4 Then
                    If sum - num < 0 Then
                        r("大袋31份") = i
                        r("中袋11份") = j
                        r("小袋5份") = k + 1
                        r("合计份数") = i*31 + j*11 + k*5 + 5
                    Else If sum - sum > 0 Then
                        r("大袋31份") = i
                        r("中袋11份") = j
                        r("小袋5份") = k
                        r("合计份数") = i*31 + j*11 + k*5
                       
                    Else If sum - num = 0 Then
                        r("大袋31份") = i
                        r("中袋11份") = j
                        r("小袋5份") = k
                        r("合计份数") = i*31 + j*11 + k*5
                        Exit For
                    End If
                End If
            Next
        Next
    Next
Next