主题：[求助]点上面的国开教室安排老是计算要很长时间，而且死机，哪位高手有设有更好的计算方法？求助

自定义函数

组合排列

Dim a As object = args(0)

Dim n As Integer = args(1)

Dim m As Integer = args(2)

Dim b() As Integer = args(3)

Dim Mm As Integer = args(4)

Dim cls As object = args(5)

Dim IsPick As Object = args(6)

For i As Integer = n To m Step -1

    If IsPick.Contains(i-1) = False Then

        b(m-1) = i-1

        If m > 1 Then

            Functions.Execute("组合排列", a, i-1, m-1, b, Mm, cls, IsPick)

        Else

            Dim sum As Double = 0

            For j As Integer = 0 To Mm - 1

                If IsPick.Contains(b(j)) Then Return Nothing

                sum += a(b(j))("人数")

            Next

            If sum = cls(vars("cidx"))("最大安排人数") Then

                For j As Integer = Mm - 1 To 0 Step -1

                    a(b(j))("教室") = cls(vars("cidx"))("教室名称")

                    IsPick.add(b(j))

                Next

                vars("cidx") += 1

            End If

        End If

    End If

Next

全局代码

Default

Public delimg As Image = GetImage("del.png")

 还有上面这个能不能优化下！