2. 100个人排队上飞机，飞机上有100个座位，每个人对应一个座位，队首的人是个瞎子，上飞机后随便坐，后面的人都尽量找自己的座位，如果已经被占，则随机做，问第100个人坐到自己座位的概率

2. 100个人排队上飞机，飞机上有100个座位，每个人对应一个座位，队首的人是个瞎子，上飞机后随便坐，后面的人都尽量找自己的座位，如果已经被占，则随机做，问第100个人坐到自己座位的概率
 

另写一程序计算，效率很低

 

Module Module1

 

    Sub Main()

        Console.WriteLine(Count(7, 7))

        Console.ReadKey()

    End Sub

 

    Public Function Count(ByVal totalPersons As Integer, ByVal targetPerson As Integer, Optional ByVal currentPerson As Integer = 0, Optional ByVal container() As Boolean = Nothing) As Integer

        Dim result = 0

 

        If currentPerson = 0 Then

            For firstPerson = 0 To totalPersons - 1

                Dim currentContainer(totalPersons - 1) As Boolean

                currentContainer(firstPerson) = True

 

                result += Count(totalPersons, targetPerson, currentPerson + 1, currentContainer)

            Next

        Else

 

            If currentPerson = targetPerson - 1 Then

                If container(targetPerson - 1) = False Then

                    result += 1

                End If

 

                Return result

            End If

 

            If container(currentPerson) = False Then

                Dim currentContainer(totalPersons - 1) As Boolean

                container.CopyTo(currentContainer, 0)

 

                currentContainer(currentPerson) = True

                result += Count(totalPersons, targetPerson, currentPerson + 1, currentContainer)

            Else

                For personIndex = 1 To totalPersons - 1 - currentPerson

                    Dim index = 0

                    For person = 0 To totalPersons - 1

                        If container(person) = False Then

                            index += 1

                            If personIndex = index Then

                                Dim currentContainer(totalPersons - 1) As Boolean

                                container.CopyTo(currentContainer, 0)

 

                                currentContainer(person) = True

                                result += Count(totalPersons, targetPerson, currentPerson + 1, currentContainer)

                                Continue For

                            End If

                        End If

                    Next

                Next

            End If

        End If

 

            Return result

    End Function

 

End Module