狐狸找兔子VB

前端之家收集整理的这篇文章主要介绍了狐狸找兔子VB前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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
        狐狸找兔子(数组)

猜你在找的VB相关文章