*/
  1. 首页
  2. 技术
  3. 后台

VB.NET狐狸找兔子

    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

原创文章,作者:xianfajushi的博客,如若转载,请注明出处:https://www.zengqueling.com/vb-net%e7%8b%90%e7%8b%b8%e6%89%be%e5%85%94%e5%ad%90/

联系我们

15602395067

在线咨询:点击这里给我发消息

邮件:eden7@qq.com

工作时间:周一至周五,9:30-18:30,节假日休息

QR code