用VB编程 题目:小明有5本书,要借给A,B,C三位同学,若每人每次只能借一本书,则有多少种不同的借书方案???

Question

如题所述

Answer 1

第一种算法：先从5本书中任选3本，然后对3本书进行全排列：C53*P33=60种

第二种算法：A同学可以5选一，B同学就只能4选一，C同学只能3选一，所以结果是5*4*3=60种

所以选第二种算法：

Sub Command1_Click()
    Dim i As Long, m As Long, n As Long
    For i = 1 To 5
        For m = 1 To 5
            If m = i Then GoTo mNext
            For n = 1 To 5
                If n = i Or n = m Then GoTo nNext
                Print i & m & n
nNext:
        Next n
mNext:
    Next m, i
End Sub

Answer 2

我觉得应该是A33=27 不知道对不对