VB  Sub 狐狸找兔子(ByVal 数组() As Integ...