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