VB
Sub 狐狸找兔子(ByVal 数组() As Integer, Optional ByVal 找位 As Integer = 0, Optional ByVal 序位 As Integer = 1)
Dim 选 = ""
Do
找位 = 找位 Mod 10
Console.WriteLine(数组(找位))
Console.WriteLine(序位.ToString("间隔0"))
If 选.Contains(数组(找位).ToString) Then Exit Do
选 += 数组(找位).ToString
找位 += 序位 + 1
序位 += 1
Loop Until (False)
End Sub
Dim 数组 = Enumerable.Range(1, 10).ToArray
狐狸找兔子(数组)